Pseudo-Rebar (da AutoIt mit XP keine Rebar kann)

1. offizieller Beitrag
    • Offizieller Beitrag

    Da hatte ich ein recht umfangreiches Skript fix und fertig, schön mit Rebar gestaltet. Schicke es meinem Kollegen und der fragt was das soll - nur in einer Ecke irgendwelche Button - sonst nix. (Ich habe Win7, er XP) Das habe ich dann mal in VirtualXP angesehen und tatsächlich: _GUICtrlRebar_AddBand() bleibt wirkungslos und somit landen alle Ctrl der Bänder an Pos 0,0 übereinander. :pinch:

    Da Programme aber abwärtskompatibel zu XP sein sollten habe ich mir nun eine Rebar optisch nachgebaut (die Funktionalität ist natürlich nicht dabei). Dazu habe ich einfach Groups missbraucht. Man muss sie etwas vergewaltigen um sie dort anzuzeigen wo man will. :D Denn die Group behält Platz für Beschriftung vor - ich möchte aber nur die reine Linie anzeigen. Aber schauts euch einfach an.
    Das Skript hier verwendet allerdings Pfade für lokale Icondateien, entweder ihr ersetzt das mit eigenen Pfaden oder kommentiert es aus. Ist für die Rebarsimulation aber nicht wichtig.

    autoit.de/wcf/attachment/20332/

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <ComboConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>

    [/autoit] [autoit][/autoit] [autoit]

    $Gui = GUICreate("PB Log-To-Report", 609, 595)
    GUISetBkColor(0xD3DAED)

    [/autoit] [autoit][/autoit] [autoit]

    #Region - PseudoRebar
    GUICtrlCreateGroup('', 0, -7, 609, 34)
    GUICtrlCreateLabel('Log-Datei', 16, 6, 80, 17)
    $inLog = GUICtrlCreateInput('', 100, 3, 450, 20)
    GUICtrlSendMsg($inLog, 0x1501, 0, " Log-Datei mit Button auswählen")
    $btLogOpen = GUICtrlCreateButton('', 571, 2, 22, 22, $BS_ICON)
    ;~ GUICtrlSetImage(-1, $sPath & "log.ico")
    GUICtrlSetTip(-1, "Pfad zur Logdatei auswählen")
    GUICtrlCreateGroup("", -99, -99, 1, 1)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateGroup('', 0, 20, 609, 34)
    GUICtrlCreateLabel('Report-Datei', 16, 33, 80, 17)
    $inReport = GUICtrlCreateInput('', 100, 31, 450, 20)
    GUICtrlSendMsg($inReport, 0x1501, 0, " Speicherort Report-Datei mit Button auswählen")
    $btReport = GUICtrlCreateButton('', 571, 30, 22, 22, $BS_ICON)
    ;~ GUICtrlSetImage(-1, $sPath & "report.ico")
    GUICtrlSetTip(-1, "Speicherort für die Reportdatei festlegen")
    GUICtrlCreateGroup("", -99, -99, 1, 1)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateGroup('', 0, 47, 609, 35)
    GUICtrlCreateLabel("Name Patient", 16, 62, 80, 17)
    $inName = GUICtrlCreateInput('', 100, 59, 225, 20)
    GUICtrlSendMsg($inName, 0x1501, 0, " optional: Patientenname / Identschlüssel")
    GUICtrlCreateLabel("Gerät-SN", 335, 62, 60, 17)
    $inGeraet = GUICtrlCreateInput('', 395, 59, 155, 20)
    $btConfig = GUICtrlCreateButton('', 571, 58, 22, 22, $BS_ICON)
    ;~ GUICtrlSetImage(-1, $sPath & "config.ico")
    GUICtrlSetTip(-1, "Programm Einstellungen")
    GUICtrlCreateGroup("", -99, -99, 1, 1)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateGroup('', 0, 75, 609, 35)
    $btLogfileEvents = GUICtrlCreateButton("Daten Lesen", 16, 86, 82, 22)
    GUICtrlSetColor(-1, 0x000080)
    GUICtrlSetBkColor(-1, 0xD3DAED)
    GUICtrlSetState(-1, $GUI_DISABLE)
    GUICtrlSetTip(-1, "Nutzungsdaten aus Log-Datei auslesen")
    GUICtrlCreateLabel('Datum von', 110, 90, 60, 17)
    $cbFrom = GUICtrlCreateCombo("", 170, 86, 155, 22, BitOR($WS_VSCROLL,$CBS_DROPDOWN,$CBS_AUTOHSCROLL))
    GUICtrlCreateLabel('Datum bis', 335, 90, 60, 17)
    $cbTo = GUICtrlCreateCombo("", 395, 86, 155, 22, BitOR($WS_VSCROLL,$CBS_DROPDOWN,$CBS_AUTOHSCROLL))
    $btHelp = GUICtrlCreateButton('', 571, 86, 22, 22, $BS_ICON)
    ;~ GUICtrlSetImage(-1, $sPath & "help.ico")
    GUICtrlSetTip(-1, "Hilfe")
    GUICtrlCreateGroup("", -99, -99, 1, 1)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateGroup('', 0, 103, 609, 35)
    $btRangeSelect = GUICtrlCreateButton("Zeitraum Übernehmen", 16, 114, 130, 22)
    GUICtrlSetColor(-1, 0x000080)
    GUICtrlSetBkColor(-1, 0xD3DAED)
    GUICtrlSetState(-1, $GUI_DISABLE)
    GUICtrlSetTip(-1, "Detaildaten aus Von-Bis Zeitraum in Tabelle einlesen")
    $btClear = GUICtrlCreateButton("Eingaben Löschen", 195, 114, 130, 22)
    GUICtrlSetColor(-1, 0x000080)
    GUICtrlSetBkColor(-1, 0xD3DAED)
    GUICtrlSetState(-1, $GUI_DISABLE)
    GUICtrlSetTip(-1, "Alle Eingaben löschen")
    GUICtrlCreateLabel('Report', 335, 118, 55, 17)
    $btPreviewReport = GUICtrlCreateButton("Vorschau", 395, 114, 90, 22)
    GUICtrlSetColor(-1, 0x000080)
    GUICtrlSetBkColor(-1, 0xD3DAED)
    GUICtrlSetState(-1, $GUI_DISABLE)
    GUICtrlSetTip(-1, "Report in Vorschau anzeigen")
    $btCreateReport = GUICtrlCreateButton("Erstellen", 503, 114, 90, 22)
    GUICtrlSetColor(-1, 0x000080)
    GUICtrlSetBkColor(-1, 0xD3DAED)
    GUICtrlSetState(-1, $GUI_DISABLE)
    GUICtrlSetTip(-1, "Report erstellen und im Standard Editor öffnen")
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    #EndRegion - PseudoRebar

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState()

    [/autoit] [autoit][/autoit] [autoit]

    Do
    Until GUIGetMsg() = -3

    [/autoit]

    Und du hast die Bilder deaktiviert, weshalb es nicht ging.
    Danke, so mag ich es wieder gerne starten. :)

    Ich werde bei Gelegenheit mal eine alte Version von AutoIt installieren, ich bin mir fast sicher, dass es auch auf XP einmal funktioniert hat. Aber für die Zwischenzeit wird das auch reichen. Danke.