Changelog in GUI ausgeben

oliver4friends

Hallo,

Ich übe mich mit programmieren mit der AutoIt Skriptsprache, schreibe gerne das "Changelog" in eine Textdatei. Nun möchte ich diese in einer GUI ausgeben. Mein Code schaut bis jetzt so aus:
Beim ausführen markiert er mir den eingelesenen Text, und das stört mich.

Ich habe es schon versucht in ein GUICtrlCreateLabel reinzustellen, dann ist aber das Scrollen nicht mehr möglich. Habt ihr eine Idee dazu?

Danke für die Hilfe!

C

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Date.au3>


Dim $version = "Version 0.2.6"
;~ Dim $changelog = @WorkingDir & "Changelog.txt"
Dim $changelog = "C:\Windows\WindowsUpdate.log" ; Zur Demonstration


GUICreate("About", 613, 506)


$Output =	GUICtrlCreateEdit("", 8, 90, 600, 380, $WS_VSCROLL)


GUICtrlCreateLabel("Changelog " & $Version, 59, 11, 500, 20)
GUICtrlSetFont(-1, 9, 800, 0, "MS Sans Serif")
GUICtrlCreateLabel("(c) 2017" & @CRLF & @CRLF & "Company Name", 59, 30, 135, 40)
GUICtrlCreateLabel("myname@company.com", 59, 70, 135, 15)
GUICtrlSetFont(-1, 9, 800, 100, "MS Sans Serif")
GUICtrlCreateLabel("Release Date: " & _DateTimeFormat(_NowCalc(), 2), 8, 480, 135, 15)
$frmHaupt_cmdFormDiag = GUICtrlCreateButton("Diagnose", 475, 480, 135, 20)


	$_ReadFile = FileRead($changelog)
	GUICtrlSetData($Output, $_ReadFile)


    GUISetState()


    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop
        EndSwitch
    WEnd

Alles anzeigen

**alpines**

Es liegt an der Reihenfolge wie du die Controls erstellst, hättest du danach noch ein Input, so wäre das fokussiert worden.
Ein einfacher workaround wäre wohl wenn du einfach den Diagnose-Button fokussierst ControlFocus($hGUI, "", $frmHaupt_cmdFormDiag).
Du kannst bei ControlFocus auch den Titel mit angeben, aber es gibt viele Fenster die mit "About" beginnen, also solltest du lieber den Handle nehmen,
welchen du von GUICreate zurückbekommst.

**Oscar**

Es gibt doch die GuiEdit-UDF. Einfach _GUICtrlEdit_SetSel($idEdit, 0, 0) und es ist nichts markiert.
Alternativ kannst Du auch einfach den Focus auf ein anderes Control-Element setzen GUICtrlSetState($label, $GUI_FOCUS).

oliver4friends

Super! Das mit dem Fokus nehmen hat geholfen. Jetzt kann ich das Teil fertig ausprogrammieren.

Danke.

Hier der FIX:

Code

#include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <Date.au3>


    Dim $version = "Version 0.2.6"
    ;~ Dim $changelog = @WorkingDir & "Changelog.txt"
    Dim $changelog = "C:\Windows\WindowsUpdate.log" ; Zur Demonstration


    $hGUI= GUICreate("About", 613, 506)


    $Output =	GUICtrlCreateEdit("", 8, 90, 600, 380, $WS_VSCROLL)


    GUICtrlCreateLabel("Changelog " & $Version, 59, 11, 500, 20)
    GUICtrlSetFont(-1, 9, 800, 0, "MS Sans Serif")
    GUICtrlCreateLabel("(c) 2017" & @CRLF & @CRLF & "Company Name", 59, 30, 135, 40)
    GUICtrlCreateLabel("myname@company.com", 59, 70, 135, 15)
    GUICtrlSetFont(-1, 9, 800, 100, "MS Sans Serif")
    GUICtrlCreateLabel("Release Date: " & _DateTimeFormat(_NowCalc(), 2), 8, 480, 135, 15)
    $frmHaupt_cmdFormDiag = GUICtrlCreateButton("Diagnose", 475, 480, 135, 20)


    	$_ReadFile = FileRead($changelog)
    	GUICtrlSetData($Output, $_ReadFile)
; FIX
	ControlFocus($hGUI, "", $frmHaupt_cmdFormDiag)


        GUISetState()


        While 1
            Switch GUIGetMsg()
                Case $GUI_EVENT_CLOSE
                    ExitLoop
            EndSwitch
        WEnd

Alles anzeigen

**alpines**

Super, und beim nächsten Mal den grünen Haken für erledigt setzen nicht vergessen! (1. Beitrag bearbeiten, Threadstatus anpassen)