Gerne,
100% Zufrieden bin ich noch nicht, weil es schwer ist die Labels zu färben. Aber es ist gut genug für mich.
C
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <TabConstants.au3>
; Colors
Dim Const $cgreen = 0x00DD00 ; Farbe Grün
Dim Const $cred = 0xFF0000 ; Farbe Rot
Dim Const $cwhite = 0xFFFFFF ; Farbe Weiss
Dim Const $cblack = 0x000000 ;Farbe Schwarz
Dim Const $clist = 0xF3F3F3 ;Hintergundfarbe für Liste
$maindlg = GUICreate("Main", 732, 500, -1, -1)
;~ === Start TAB ===
GuiCtrlCreateTab (1, 35, 740, 350, $TCS_FLATBUTTONS)
GUICtrlSetFont (-1, 14, 400, 0, "Lucida Sans")
;~ === ERSTER TAB ===
GuiCtrlCreateTabItem(" Einstellungen ")
GUICtrlCreateLabel (" " , 0, 50 + 15, 732, 320)
GUICtrlSetBKColor (-1,$cblack)
GUICtrlSetState (-1,$GUI_DISABLE)
;~ === ZWEITER TAB ===
GuiCtrlCreateTabItem(" Installer ")
;~ Als Beispiel eine Installer mit Checkbox und Scrolldown
$gsw_list = GUICtrlCreateListView('Install|Program|Version|Kommentar', 1, 50 + 15, 732, 320, $LVS_SHOWSELALWAYS, $LVS_SINGLESEL)
_GUICtrlListView_SetExtendedListViewStyle($gsw_list, BitOR($LVS_EX_GRIDLINES, $LVS_EX_CHECKBOXES))
_GUICtrlListView_SetBkColor($gsw_list, $clist)
_GUICtrlListView_SetTextBkColor($gsw_list, $clist)
_GUICtrlListView_SetColumnWidth($gsw_list, 0, 50)
_GUICtrlListView_SetColumnWidth($gsw_list, 1, 200)
_GUICtrlListView_SetColumnWidth($gsw_list, 2, 50)
_GUICtrlListView_SetColumnWidth($gsw_list, 3, 360)
Dim $sw_list[20][19]
$sw_list[0][0] = 19
$sw_list[1][0] = ''
$sw_list[2][0] = ''
$sw_list[3][0] = ''
$sw_list[4][0] = ''
$sw_list[5][0] = ''
$sw_list[6][0] = ''
$sw_list[7][0] = ''
$sw_list[8][0] = ''
$sw_list[9][0] = ''
$sw_list[10][0] = ''
$sw_list[11][0] = ''
$sw_list[12][0] = ''
$sw_list[13][0] = ''
$sw_list[14][0] = ''
$sw_list[15][0] = ''
$sw_list[16][0] = ''
$sw_list[17][0] = ''
$sw_list[18][0] = ''
$sw_list[19][0] = ''
$sw_list[1][1] = ''
$sw_list[2][1] = ''
$sw_list[3][1] = ''
$sw_list[4][1] = ''
$sw_list[5][1] = ''
$sw_list[6][1] = ''
$sw_list[7][1] = ''
$sw_list[8][1] = ''
$sw_list[9][1] = ''
$sw_list[10][1] = ''
$sw_list[11][1] = ''
$sw_list[12][1] = ''
$sw_list[13][1] = ''
$sw_list[14][1] = ''
$sw_list[15][1] = ''
$sw_list[16][1] = ''
$sw_list[17][1] = ''
$sw_list[18][1] = ''
$sw_list[19][1] = ''
$sw_list[1][2] = ''
$sw_list[2][2] = ''
$sw_list[3][2] = ''
$sw_list[4][2] = ''
$sw_list[5][2] = ''
$sw_list[6][2] = ''
$sw_list[7][2] = ''
$sw_list[8][2] = ''
$sw_list[9][2] = ''
$sw_list[10][2] = ''
$sw_list[11][2] = ''
$sw_list[12][2] = ''
$sw_list[13][2] = ''
$sw_list[14][2] = ''
$sw_list[15][2] = ''
$sw_list[16][2] = ''
$sw_list[17][2] = ''
$sw_list[18][2] = ''
$sw_list[19][2] = ''
$sw_list[1][3] = 'program1'
$sw_list[2][3] = 'program2'
$sw_list[3][3] = 'program3'
$sw_list[4][3] = 'program4'
$sw_list[5][3] = 'program5'
$sw_list[6][3] = 'program6'
$sw_list[7][3] = 'program7'
$sw_list[8][3] = 'program8'
$sw_list[9][3] = 'program9'
$sw_list[10][3] = 'program10'
$sw_list[11][3] = 'program11'
$sw_list[12][3] = 'program12'
$sw_list[13][3] = 'program13'
$sw_list[14][3] = 'program14'
$sw_list[15][3] = 'program15'
$sw_list[16][3] = 'program16'
$sw_list[17][3] = 'program17'
$sw_list[18][3] = 'program18'
$sw_list[19][3] = 'program19'
For $i = 1 To $sw_list[0][0]
$sw_list[$i][1] = GUICtrlCreateListViewItem($sw_list[$i][0] & '|' & $sw_list[$i][3] & '|' & $sw_list[$i][1] & '|' & $sw_list[$i][2], $gsw_list)
Next
GUICtrlCreateLabel("Start", 5 + 20, 430+35, 110, 28)
GUICtrlSetFont(-1, 14)
;~ === DRITTER TAB ===
GuiCtrlCreateTabItem(" Laufwerke ")
GUICtrlCreateLabel(" " , 0, 50 + 15, 732, 320)
GUICtrlSetBKColor(-1,$cred)
GUICtrlSetState(-1,$GUI_DISABLE)
;~ === VIERTER TAB ===
GuiCtrlCreateTabItem(" Zugänge ")
GUICtrlCreateLabel(" " , 0, 50 + 15, 732, 320)
GUICtrlSetBKColor(-1,$cgreen)
GUICtrlSetState(-1,$GUI_DISABLE)
; Ende der Tabs
GuiCtrlCreateTabItem("")
$lb_exit = GUICtrlCreateLabel("Exit", 670, 430+35, 130, 28)
GUICtrlSetFont(-1, 14)
ControlFocus($maindlg, "", $lb_exit) ; Nimmt den Fokus von den TABS.
GUISetState()
; =====================================================================================================================
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
exit
EndSwitch
WEnd
Exit
Alles anzeigen