| 1 |
|
|---|
| 2 | #include <GUIConstantsEx.au3>
|
|---|
| 3 | #include <WindowsConstants.au3>
|
|---|
| 4 | #include <ButtonConstants.au3>
|
|---|
| 5 |
|
|---|
| 6 |
|
|---|
| 7 | Global $width=700, $height=580
|
|---|
| 8 | Global $styles[4][2] = [[0, "Default"], [$BS_LEFT, "Left"], [$BS_CENTER, "Center"], [$BS_RIGHT, "Right"] ]
|
|---|
| 9 |
|
|---|
| 10 |
|
|---|
| 11 | _Main()
|
|---|
| 12 |
|
|---|
| 13 | Func _Main()
|
|---|
| 14 |
|
|---|
| 15 | Local $msg
|
|---|
| 16 |
|
|---|
| 17 | GUICreate("Demo", $width, $height, 50, 10, $WS_POPUP+$WS_SYSMENU)
|
|---|
| 18 | GUISetBkColor(0x000000)
|
|---|
| 19 | GUISetFont (10, 500)
|
|---|
| 20 |
|
|---|
| 21 | CreateButtons (False, False, "Create", "Correct")
|
|---|
| 22 | CreateButtons (False, True, "Create; SetColour", "Left/Right wrong 3.3.8.1; Center/Right wrong 3.3.12.0/3.3.13.19")
|
|---|
| 23 | CreateButtons (True, False, "Create; ChangeStyle", "Correct")
|
|---|
| 24 | CreateButtons (True, True, "Create; ChangeStyle; SetColour", "Left/Right wrong 3.3.8.1; Center/Right wrong 3.3.12.0/3.3.13.19")
|
|---|
| 25 |
|
|---|
| 26 |
|
|---|
| 27 | GUICtrlSetDefBkColor(0x004040)
|
|---|
| 28 | GUICtrlSetDefColor(0xFFFFFF)
|
|---|
| 29 | CreateButtons (False, False, "SetDefColour; Create", "Left/Right wrong 3.3.8.1; Center/Right wrong 3.3.12.0/3.3.13.19")
|
|---|
| 30 | CreateButtons (False, True, "SetDefColour; Create; SetColour", "Left/Right wrong 3.3.8.1; Center/Right wrong 3.3.12.0/3.3.13.19")
|
|---|
| 31 | CreateButtons (True, False, "SetDefColour; Create; ChangeStyle", "Colours wrong 3.3.8.1/3.3.12.0/3.3.13.19")
|
|---|
| 32 | CreateButtons (True, True, "SetDefColour; Create; ChangeStyle; SetColour", "Left/Right wrong 3.3.8.1; Center/Right wrong 3.3.12.0/3.3.13.19")
|
|---|
| 33 |
|
|---|
| 34 |
|
|---|
| 35 | GUISetState()
|
|---|
| 36 | $msg = 0
|
|---|
| 37 |
|
|---|
| 38 | While $msg <> $GUI_EVENT_CLOSE
|
|---|
| 39 | $msg = GUIGetMsg ()
|
|---|
| 40 | If $msg > 0 Then ExitLoop
|
|---|
| 41 | WEnd
|
|---|
| 42 |
|
|---|
| 43 | GUIDelete()
|
|---|
| 44 |
|
|---|
| 45 | Exit
|
|---|
| 46 | EndFunc ;==>_Main
|
|---|
| 47 |
|
|---|
| 48 |
|
|---|
| 49 | Func CreateButtons ( $fChgStyle, $fChgColour, $sDesc, $sResult )
|
|---|
| 50 |
|
|---|
| 51 | Local $gx=8, $dx=Int($width/UBound($styles)), $bw=$dx-2*$gx
|
|---|
| 52 | Local $gy=3, $dy=Int($height/8), $bh=Int (($dy-5*$gy)/3)
|
|---|
| 53 | Static $y=0
|
|---|
| 54 |
|
|---|
| 55 | $y += $gy*2
|
|---|
| 56 | GUICtrlCreateButton ( $sDesc & @LF & $sResult, $gx, $y, $width-2*$gx, 2*$bh, $BS_MULTILINE )
|
|---|
| 57 | GUICtrlSetBkColor ( -1, 0x000000 )
|
|---|
| 58 | GUICtrlSetColor ( -1, 0xffffff )
|
|---|
| 59 |
|
|---|
| 60 | $y += 2*$bh+$gy
|
|---|
| 61 | For $i = 0 To UBound($styles)-1
|
|---|
| 62 | GUICtrlCreateButton ( $styles[$i][1], $gx+$i*$dx, $y, $bw, $bh, $styles[$i][0] )
|
|---|
| 63 | If $fChgStyle Then GUICtrlSetStyle ( -1, $Styles[$i][0] )
|
|---|
| 64 | If $fChgColour Then GUICtrlSetBkColor ( -1, 0x005020 )
|
|---|
| 65 | Next
|
|---|
| 66 |
|
|---|
| 67 | $y += $bh+$gy*2
|
|---|
| 68 | EndFunc ;==>CreateButtons
|
|---|
