[Autoit] - Bildfehler mit Kodaform

[Valkosh]

Hallo Leute,

Habe mit Koda ein kleine Menülayout gemacht mit integrieten Tabs und ein paar Buttons.
Wenn ich das Programm nun öffne, ist am Anfang alles OK, jedoch sobald ich es minimiere oder ein Fenster darübergezogen wird, bekommt das Prgramm komische Artefakte oder kopiert sozusagen das darüberliegende programm. Wie wenn z. B. der Desktop ausgelastet ist. Habe mal 2 Bilder angehängt welches die Situation verdeutlichen sollten. Vielleicht kennt das ja jemand und hat einen Lösung parat. :-)

1 = Gut
2 = Schlecht

Danke für Eure Unterstützung.

Code nur vom GUI:

#Region ### START Koda GUI section ### Form=
$Form1_1_1 = GUICreate("Tool", 520, 492, 207, 207, -1, BitOR($WS_EX_TRANSPARENT,$WS_EX_WINDOWEDGE))
$MenuItem2 = GUICtrlCreateMenu("&Tools")
$MenuItem7 = GUICtrlCreateMenuItem("Regedit", $MenuItem2)
$MenuItem8 = GUICtrlCreateMenuItem("Computer Infos", $MenuItem2)
$MenuItem6 = GUICtrlCreateMenuItem("Ipconfig", $MenuItem2)
$MenuItem3 = GUICtrlCreateMenuItem("Passwort Generator", $MenuItem2)
$MenuItem5 = GUICtrlCreateMenuItem("Prozess Explorer", $MenuItem2)
$MenuItem9 = GUICtrlCreateMenuItem("Ccleaner", $MenuItem2)
$MenuItem12 = GUICtrlCreateMenu("&Portable Apps")
$MenuItem27 = GUICtrlCreateMenuItem("7 Zip", $MenuItem12)
$MenuItem26 = GUICtrlCreateMenuItem("Audacity", $MenuItem12)
$MenuItem25 = GUICtrlCreateMenuItem("xyz", $MenuItem12)
$MenuItem24 = GUICtrlCreateMenuItem("ConvertAll", $MenuItem12)
$MenuItem23 = GUICtrlCreateMenuItem("DIA", $MenuItem12)
$MenuItem22 = GUICtrlCreateMenuItem("FileZilla", $MenuItem12)
$MenuItem21 = GUICtrlCreateMenuItem("FireFox", $MenuItem12)
$MenuItem18 = GUICtrlCreateMenuItem("Infra Recorder", $MenuItem12)
$MenuItem17 = GUICtrlCreateMenuItem("xyz", $MenuItem12)
$MenuItem16 = GUICtrlCreateMenuItem("Notepad++", $MenuItem12)
$MenuItem15 = GUICtrlCreateMenuItem("PuTTy", $MenuItem12)
$MenuItem14 = GUICtrlCreateMenuItem("VLC", $MenuItem12)
$MenuItem13 = GUICtrlCreateMenuItem("WinDir Strukturinfo", $MenuItem12)
$MenuItem1 = GUICtrlCreateMenu("&About")
$MenuItem11 = GUICtrlCreateMenuItem("??", $MenuItem1)
$MenuItem12 = GUICtrlCreateMenuItem("Beenden", $MenuItem1)
$MenuItem30 = GUICtrlCreateMenuItem("Full Update Starten", $MenuItem1)
$MenuItem31 = GUICtrlCreateMenuItem("Small Update Starten", $MenuItem1)
GUISetCursor (3)
GUISetBkColor(0xA6CAF0)
GUISetIcon("prog.ico", -1)
$Tab1 = GUICtrlCreateTab(16, 16, 489, 433, BitOR($TCS_FIXEDWIDTH,$TCS_FOCUSONBUTTONDOWN,$WS_BORDER))
$TabSheet1 = GUICtrlCreateTabItem("Basic")
GUICtrlSetState(-1,$GUI_SHOW)
$Button1 = GUICtrlCreateButton("Java", 36, 61, 83, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Button2 = GUICtrlCreateButton("Flash Iexplorer", 36, 101, 83, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Button3 = GUICtrlCreateButton("Flash FireFox", 36, 141, 83, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Button4 = GUICtrlCreateButton("VLC Player", 36, 181, 83, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Button5 = GUICtrlCreateButton("Adobe Reader", 36, 221, 83, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Button6 = GUICtrlCreateButton("Inst. alle", 132, 61, 75, 185)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$TabSheet2 = GUICtrlCreateTabItem("Updates")
$Group1 = GUICtrlCreateGroup("Windows XP", 28, 53, 145, 185)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Button7 = GUICtrlCreateButton("SP2", 36, 77, 131, 25)
$Button8 = GUICtrlCreateButton("SP3", 36, 117, 131, 25)
$Button9 = GUICtrlCreateButton("Updatepack SP2", 36, 157, 131, 25)
$Button10 = GUICtrlCreateButton("Updatepack SP3", 36, 197, 131, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Windows VIsta", 180, 53, 145, 185)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Button11 = GUICtrlCreateButton("SP2 x86", 188, 77, 131, 25)
$Button12 = GUICtrlCreateButton("SP2 x64", 188, 117, 131, 25)
$Button13 = GUICtrlCreateButton("Updatepack SP1", 188, 157, 131, 25)
$Button14 = GUICtrlCreateButton("Updatepack SP2", 188, 197, 131, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Windows 7", 332, 53, 145, 185)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Button15 = GUICtrlCreateButton("Updatepack x86", 340, 77, 131, 25)
$Button16 = GUICtrlCreateButton("Updatepack x64", 340, 117, 131, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("Office", 28, 245, 145, 169)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Label1 = GUICtrlCreateLabel("2007 ->", 36, 277, 41, 18)
$Button17 = GUICtrlCreateButton("SP2", 84, 269, 83, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group5 = GUICtrlCreateGroup("Others", 180, 245, 145, 169)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Button18 = GUICtrlCreateButton("Direct X feb2010", 188, 269, 131, 25)
$Button19 = GUICtrlCreateButton(".Net 3.5", 188, 309, 131, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TabSheet3 = GUICtrlCreateTabItem("Spyware")
$Button20 = GUICtrlCreateButton("HiJackThis", 36, 69, 115, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Button21 = GUICtrlCreateButton("Super Anti Spyware", 36, 109, 115, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Button22 = GUICtrlCreateButton("Spybot", 36, 149, 115, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Button23 = GUICtrlCreateButton("Malewarebytes", 36, 189, 115, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$TabSheet4 = GUICtrlCreateTabItem("Others")
$Button24 = GUICtrlCreateButton("CD Burner XP", 36, 69, 107, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Button25 = GUICtrlCreateButton("Open Office", 36, 109, 107, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Button26 = GUICtrlCreateButton("Paint .Net 3.5.5", 36, 149, 107, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Button27 = GUICtrlCreateButton("PDF Creator", 36, 189, 107, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Button28 = GUICtrlCreateButton("XP Antispy", 36, 229, 107, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Button29 = GUICtrlCreateButton("SysInternal Suites", 36, 269, 107, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlCreateTabItem("")
Dim $Form1_1_1_AccelTable[6][2] = [[$MenuItem8],[$MenuItem27],[$MenuItem18],[$MenuItem15],[$MenuItem13],[$MenuItem11]]
GUISetAccelerators($Form1_1_1_AccelTable)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

 

[H1deAndSeek]

Ich glaube ja nicht, dass es an der GUI liegt.
Vielmehr an vllt. 2 parallelen Endlosschleifen?

 

[Valkosh]

Hallo,

Werde es mal durchgehen. Danke für den Tipp.

 

[CreeTar]

Ich würde eher mit Events arbeiten. Ich mag die Loops nicht,
Kannst ja mal GUI On Event nachschauen, da gibts du jedem Menüpunkt eine Funktion die aufgerufen
wird.

Ansonsten kansnt mal einen GUI refresh versuchen,
$hWnd = GUICreate() ;das hast ja schon oben, einfach die Variable speicerhn
DLLCall("user32.dll","int","InvalidateRect","hwnd",$hWnd,"int",0,"int",0)

Allerdings hatte ich das Problem noch nie das die GUI nicht nachgezeichnet wurde.

 

[Valkosh]

Hi,

Werde ich versuchen. Melde mich wenn ich ein Ergebniss habe. Lese mich mal in die Gui on Events ein. Danke für den Tipp