Meldetext mit automatischen Zeilenumbruch

;-- TIME_STAMP   2017-12-18 22:26:00   v 0.1

#Region    ;************ Includes ************
#Include <WinAPISys.au3>
#Include <GuiEdit.au3>
#Include <GuiScrollBars.au3>
#Include <WinAPIDiag.au3>
#Include <StaticConstants.au3>
#Include <WindowsConstants.au3>
#Include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#Include <WinAPIGdi.au3>
#Include <Array.au3>
#EndRegion ;************ Includes ************

; Primary display native resolution
; https://technet.microsoft.com/en-us/library/dn528846.aspx
Global Const $iAppliedDPI = RegRead('HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics', 'AppliedDPI')
Global Const $fScale = Round(96 / $iAppliedDPI, 2)
; DPI     Scale factor
;  96    100
; 120    125
; 144    150
; 192    200

Global $bDEBUG; = True

Example()

Func Example()
    Local $hGUI = GUICreate("String height & width.", -1, -1, -1, -1, $WS_POPUP)
    GUISetState(@SW_SHOWMAXIMIZED, $hGUI)
    GUISetBkColor(0x000000, $hGUI)

    Local $aPos = WinGetPos($hGUI)

    ; The text we want to find the height & width of.
    Local $sSomeText = "<Text> Ich soll einen Alarmmonitor für meine Freiwillige Feuerwehr aufbauen. Der Meldetext ist dabei immer sehr lang (mehr als 100 Zeichen). Jetzt suche ich ein Skript das den Text Bildschirmfüllend und mit automatischen Zeilenumbruch und automatischen anpassen der Textgröße. Kennt einer solch ein Skript bzw. einen Lösungsansatz? </Text>"

    Local $iStyleEdit  = BitOR($GUI_SS_DEFAULT_Edit, $ES_MULTILINE, $ES_CENTER)
    Local $iStyleLABEL = BitOR($GUI_SS_DEFAULT_LABEL, $WS_BORDER, $SS_LEFT)

    ; So (as shown in the AutoIt help) does not!
;~     Local $aStringDimension = GetStringDimensions($hGUI, $sSomeText) ; Retrieve a 1 dimensional array: $aStringDimension[0] = width & $aStringDimension[1] = height.
;~     _ArrayDisplay($aStringDimension, '$aStringDimension')

    Local $iFontSize = 100 * $fScale

    Local $idEdit = _CreateEdit($sSomeText, 0, 0, $aPos[2], $aPos[3], $iStyleEdit, 0x0F8FFF, 0x1F1F2F, $iFontSize, 600, 8, 'Comic Sans MS')
;~     Local $idLABEL = _CreateLabel($sSomeText, 0, 0, $aPos[2], $aPos[3], $iStyleLABEL, 0x0F8FFF, 0x1F1F2F, $iFontSize, 600, 8, 'Comic Sans MS')

    _ReSizeCtrl($idEdit, $sSomeText, $iFontSize)
;~     _ReSizeCtrl($idLABEL, $sSomeText, $iFontSize)

    Local $msg
    While 1
        $msg = GUIGetMsg()
        Switch $msg
            Case $GUI_EVENT_CLOSE
                ExitLoop
        EndSwitch
    WEnd
EndFunc   ;==>Example

Func _ReSizeCtrl($hCtrl, $sText = '', $iFontSize = 8)

    If Not IsHWnd($hCtrl) Then $hCtrl = GUICtrlGetHandle($hCtrl)
    If $sText = '' Then $sText = ControlGetText($hCtrl, '', '')

    Local $hParent = _WinAPI_GetParent($hCtrl)
    Local $idCtrl = _WinAPI_GetDlgCtrlID($hCtrl)
    Local $aPos = (IsHWnd($hParent) = 1) ? ControlGetPos($hCtrl, '', '') : WinGetHandle($hCtrl)
    Local $w = $aPos[2], $h = $aPos[3]

    ConsoleWrite('! $aPos             = ' & _ArrayToString($aPos, ', ') & @CRLF)
    ConsoleWrite('! Old $iFontSize    = ' & $iFontSize & @CRLF & @CRLF)

    Local $aStringDimension

    GUICtrlSetState($idCtrl, $GUI_HIDE)

    Local $iLoop = 0
    While $iLoop < 100
        If GUIGetMsg() = $GUI_EVENT_CLOSE Then Exit

        If $iLoop Then
            ConsoleWrite('> New $iFontSize    = ' & $iFontSize & @CRLF)
            ConsoleWrite('- $aStringDimension = ' & _ArrayToString($aStringDimension, ', ') & @CRLF)
        EndIf

        $iLoop += 1

        ; Tatda...
        $aStringDimension = GetStringDimensions($hCtrl, $sText)

        If $aStringDimension[0] <= $w And $aStringDimension[1] <= $h Then ExitLoop

        Select
;~             Case $aStringDimension[0] < $w
;~                 ConsoleWrite('- Case $aStringDimension[0] < $w' & @CRLF)
;~                 $iFontSize += 1
            Case $aStringDimension[0] > $w
                ConsoleWrite('! Case $aStringDimension[0] > $w' & @CRLF)
                $iFontSize -= 1
                GUICtrlSetFont($idCtrl, $iFontSize)
                ContinueLoop
        EndSelect
        Select
;~             Case $aStringDimension[1] < $h
;~                 ConsoleWrite('+ Case $aStringDimension[1] < $h' & @CRLF)
;~                 $iFontSize += 1
            Case $aStringDimension[1] > $h
                ConsoleWrite('> Case $aStringDimension[1] > $h' & @CRLF)
                $iFontSize -= 1
                GUICtrlSetFont($idCtrl, $iFontSize)
                ContinueLoop
        EndSelect

;~         Sleep(25)
    WEnd

    GUICtrlSetState($idCtrl, $GUI_SHOW)
EndFunc   ;==>_ReSizeCtrl

Func _CreateEdit($sText, $x, $y, $w, $h, $iStyle, $iColor = '', $iBkColor = '', $iSize = '', $iWeight = '', $iAttribute = '', $sFontname = '')
    Local $idControl = GUICtrlCreateEdit($sText, $x, $y, $w, $h, $iStyle)
    If @error Then Exit 1
    If $iColor <> '' Then GUICtrlSetColor($idControl, $iColor)
    If @error Then Exit 2
    If $iBkColor <> '' Then GUICtrlSetBkColor($idControl, $iBkColor)
    If @error Then Exit 3
    If $sFontname <> '' Then GUICtrlSetFont($idControl, $iSize, $iWeight, $iAttribute, $sFontname)
    If @error Then Exit 4
    Return $idControl
EndFunc

Func _CreateLabel($sText, $x, $y, $w, $h, $iStyle, $iColor = '', $iBkColor = '', $iSize = '', $iWeight = '', $iAttribute = '', $sFontname = '')
    Local $idControl = GUICtrlCreateLabel($sText, $x, $y, $w, $h, $iStyle)
    If @error Then Exit 1
    If $iColor <> '' Then GUICtrlSetColor($idControl, $iColor)
    If @error Then Exit 2
    If $iBkColor <> '' Then GUICtrlSetBkColor($idControl, $iBkColor)
    If @error Then Exit 3
    If $sFontname <> '' Then GUICtrlSetFont($idControl, $iSize, $iWeight, $iAttribute, $sFontname)
    If @error Then Exit 4
    Return $idControl
EndFunc

Func GetStringDimensions($hWnd, $sText)
    Local $hDC = _WinAPI_GetDC($hWnd) ; Get the device context handle of the current window.
    Local $hFont = _SendMessage($hWnd, $WM_GETFONT) ; Retrieve the font with which the control is currently drawing its text.
    Local $hSelectObject = _WinAPI_SelectObject($hDC, $hFont) ; Select the object of the context device.

    ; The total extra space, in logical units, to be added to the line of text and the number of break characters in the line.
    Local $iBreakExtra = 1, $iBreakCount = 1
    Local $bAPI = _WinAPI_SetTextJustification($hDC, $iBreakExtra, $iBreakCount)

    Local $aMargins[2] = [0, 0], $iLineCount = 1, $iFinalReturn = StringRegExp($sText, '.+\R$'), $sClassName = _WinAPI_GetClassName($hWnd), $hParent = _WinAPI_GetParent($hWnd)

    ; Margins ermitteln - funktioniert nicht immer!
    Local $iMargins = _SendMessage($hWnd, $EM_GETMARGINS)
    $aMargins[0] = _WinAPI_LoWord($iMargins) ; Left Margin
    $aMargins[1] = _WinAPI_HiWord($iMargins) ; Right Margin
;~     ConsoleWrite('- $aMargins     = ' & _ArrayToString($aMargins, ', ') & @CRLF)

    ; Input/Edit?
    If $sClassName = 'Edit' Then
        $iLineCount = _SendMessage($hWnd, $EM_GETLINECOUNT)
;~         ConsoleWrite('- $iLineCount   = ' & $iLineCount & @CRLF)

        ; mehrzeiliges Edit?
        If $iLineCount > 1 Then
            ; längste Zeile ermitteln
            Local $aLine = [0, 0], $iLength
            For $i = 0 To $iLineCount -1 Step 1
                $iLength = _SendMessage($hWnd, $EM_LINELENGTH, _SendMessage($hWnd, $EM_LINEINDEX, $i))
                If $iLength > $aLine[0] Then
                    $aLine[0] = $iLength
                    $aLine[1] = $i
                EndIf
            Next
;~             ConsoleWrite('- $aLine        = ' & _ArrayToString($aLine, ', ') & @CRLF)
            $sText = _GUICtrlEdit_GetLine($hWnd, $aLine[1])
;~             ConsoleWrite('! $sText        = ' & $sText & @CRLF)

            ; Breite/Höhe der Scrollbars ermitteln
            Local $aRectH = _GUIScrollBars_GetScrollBarRect($hWnd, $OBJID_HSCROLL)
            Local $aRectV = _GUIScrollBars_GetScrollBarRect($hWnd, $OBJID_VSCROLL)
;~             ConsoleWrite('- $aRectH       = ' & _ArrayToString($aRectH, ', ') & ' (+' & ($aRectV[2] - $aRectV[0]) +1 & ' +1)' & @CRLF)
;~             ConsoleWrite('- $aRectV       = ' & _ArrayToString($aRectV, ', ') & ' (+' & ($aRectH[3] - $aRectH[1]) +1 & ' +1)' & @CRLF)
        EndIf
    EndIf

    Local $sClassNameNN, $iEditNN, $iInputNN, $iCN, $iNH, $iNN, $aAll, $aChildWindows = _WinAPI_EnumChildWindows($hParent), $iStyles, $aTopWindows = _WinAPI_EnumWindowsTop()
    $iCN = _ArraySearch($aChildWindows, $sClassName, 1, 0, 0, 0, 1, 1)
    If @error Then
        $aAll = _ArrayFindAll($aTopWindows, $sClassName, 1, 0, 0, 0, 1)
        $sClassNameNN &= $sClassName & UBound($aAll)
    Else
        $iNH = _ArraySearch($aChildWindows, $hWnd, 1)
        While $iCN <= $iNH
            ; Control default styles
            ; $GUI_SS_DEFAULT_EDIT  = 0x003010c0 ; BitOR($ES_WANTRETURN, $WS_VSCROLL, $WS_HSCROLL, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL)
            ; $GUI_SS_DEFAULT_INPUT = 0x00000080 ; BitOR($ES_LEFT, $ES_AUTOHSCROLL)
            $iStyles = _WinAPI_GetWindowLong($aChildWindows[$iCN][0], $GWL_STYLE)
            Switch True
                Case $aChildWindows[$iCN][1] = 'Edit'
                    If BitAND($iStyles, BitOR($ES_WANTRETURN, $WS_VSCROLL)) = BitOR($ES_WANTRETURN, $WS_VSCROLL) Then
                        $iEditNN += 1
                    Else
                        $iInputNN += 1
                    EndIf
                Case $sClassName = $aChildWindows[$iCN][1]
                    $iNN += 1
                EndSwitch
            $iCN += 1
        WEnd

        Switch True
            Case $sClassName = 'Edit'
                If BitAND($iStyles, BitOR($ES_WANTRETURN, $WS_VSCROLL)) = BitOR($ES_WANTRETURN, $WS_VSCROLL) Then
                    $sClassNameNN &= $sClassName & $iEditNN
                Else
                    $sClassName = 'Input' ; (AutoIt)
                    $sClassNameNN &= $sClassName & $iInputNN
                EndIf
            Case Else
                $sClassNameNN &= $sClassName & $iNN
        EndSwitch
    EndIf
;~     ConsoleWrite('+ $hWnd         = ' & $hWnd & @CRLF)
;~     ConsoleWrite('- $sClassName   = ' & $sClassName & @CRLF)
;~     ConsoleWrite('- $sClassNameNN = ' & $sClassNameNN & @CRLF)
;~     ConsoleWrite('- $iFinalReturn = ' & $iFinalReturn & @CRLF)

    ; TextMetrics ermitteln
    Local $tSIZE = _WinAPI_GetTextExtentPoint32($hDC, $sText) ; Retrieve the height & width of a string.
    Local $tTEXTMETRIC = _WinAPI_GetTextMetrics($hDC)
    Local $iPad = 0, $iItalic = DllStructGetData($tTEXTMETRIC, 'tmItalic')

    If $bDEBUG Then
        _WinAPI_DisplayStruct($tTEXTMETRIC, $tagTEXTMETRIC)
        If _WinAPI_GetParent($hWnd) Then ControlSetText($hWnd, '', '', ControlGetText($hWnd, '', ''))
    EndIf

    ; wenn Italic dann Zuschlag hizufügen
    If $iItalic Then $iPad = DllStructGetData($tTEXTMETRIC, 'tmInternalLeading') +1

    ; Resourcen wieder feigeben
    _WinAPI_SelectObject($hDC, $hSelectObject)
    _WinAPI_ReleaseDC($hWnd, $hDC) ; Release the device context.
    Local $aReturn[2] = [DllStructGetData($tSIZE, 'X') + $iPad, DllStructGetData($tSIZE, 'Y')] ; Set an array with the width & height of the string.
;~     ConsoleWrite('> $aReturn      = ' & _ArrayToString($aReturn, ', ') & @CRLF)

    ; wenn mehrzeiliges Edit, dann die Höhe mit Anzahl der Zeilen mutiplizieren, die Höhe/Breite der Scrollbars hinzufügen
    If $iLineCount > 1 Then
        $aReturn[1] *= $iLineCount + $iFinalReturn ; and an additional line for the final return
;~         ConsoleWrite('- V             = ' & ($aRectV[2] - $aRectV[0]) & @CRLF)
;~         ConsoleWrite('- H             = ' & ($aRectH[3] - $aRectH[1]) & @CRLF)
        $aReturn[0] += ($aRectV[2] - $aRectV[0]) + $iBreakExtra
        $aReturn[1] += ($aRectH[3] - $aRectH[1]) + $iBreakExtra
    EndIf

;~     ConsoleWrite('> $aReturn      = ' & _ArrayToString($aReturn, ', ') & @CRLF)

    ; die Margins hinzufügen
    $aReturn[0] += $aMargins[0] + $aMargins[1]
;~     ConsoleWrite('> $aReturn      = ' & _ArrayToString($aReturn, ', ') & @CRLF)

;~     ConsoleWrite('! $sText        = ' & $sText & @CRLF)
;~     ConsoleWrite('! $aReturn      = ' & _ArrayToString($aReturn, ', ') & @CRLF & @CRLF)

    Return $aReturn
EndFunc   ;==>GetStringDimensions

Func _Wait()
    Local $aMousePos
    Do
        $aMousePos = MouseGetPos()
        ToolTip('Sleep ' & @DesktopHeight /2 - $aMousePos[1], $aMousePos[0] +50, $aMousePos[1] -50)
        Sleep(250)
    Until $aMousePos[1] > @DesktopHeight /2
    ToolTip('')
EndFunc