| 1 | #include <GuiToolbar.au3> |
|---|
| 2 | #include <GuiConstantsEx.au3> |
|---|
| 3 | #include <WindowsConstants.au3> |
|---|
| 4 | #include <Constants.au3> |
|---|
| 5 | |
|---|
| 6 | Opt('MustDeclareVars', 1) |
|---|
| 7 | |
|---|
| 8 | $Debug_TB = False ; Check ClassName being passed to functions, set to True and use a handle to another control to see it work |
|---|
| 9 | Global $iMemo |
|---|
| 10 | |
|---|
| 11 | _Main() |
|---|
| 12 | |
|---|
| 13 | Func _Main() |
|---|
| 14 | Local $hGUI, $hToolbar, $aStrings[4] |
|---|
| 15 | Local Enum $idNew = 1000, $idOpen, $idSave, $idHelp |
|---|
| 16 | |
|---|
| 17 | ; Create GUI |
|---|
| 18 | $hGUI = GUICreate("Toolbar", 400, 300) |
|---|
| 19 | $hToolbar = _GUICtrlToolbar_Create($hGUI) |
|---|
| 20 | $iMemo = GUICtrlCreateEdit("", 2, 60, 396, 238, $WS_VSCROLL) |
|---|
| 21 | ; $iMemo = GUICtrlCreateEdit("", 2, 36, 396, 262, $WS_VSCROLL) |
|---|
| 22 | GUICtrlSetFont($iMemo, 10, 400, 0, "Courier New") |
|---|
| 23 | GUISetState() |
|---|
| 24 | |
|---|
| 25 | ; Add standard system bitmaps |
|---|
| 26 | Switch _GUICtrlToolbar_GetBitmapFlags($hToolbar) |
|---|
| 27 | Case 0 |
|---|
| 28 | _GUICtrlToolbar_AddBitmap($hToolbar, 1, -1, $IDB_STD_SMALL_COLOR) |
|---|
| 29 | Case 2 |
|---|
| 30 | _GUICtrlToolbar_AddBitmap($hToolbar, 1, -1, $IDB_STD_LARGE_COLOR) |
|---|
| 31 | EndSwitch |
|---|
| 32 | |
|---|
| 33 | ; Add strings |
|---|
| 34 | $aStrings[0] = _GUICtrlToolbar_AddString ($hToolbar, "&New") |
|---|
| 35 | $aStrings[1] = _GUICtrlToolbar_AddString ($hToolbar, "&Open") |
|---|
| 36 | $aStrings[2] = _GUICtrlToolbar_AddString ($hToolbar, "&Save") |
|---|
| 37 | $aStrings[3] = _GUICtrlToolbar_AddString ($hToolbar, "&Help") |
|---|
| 38 | |
|---|
| 39 | ; Add buttons |
|---|
| 40 | _GUICtrlToolbar_AddButton ($hToolbar, $idNew, $STD_FILENEW, $aStrings[0]) |
|---|
| 41 | _GUICtrlToolbar_AddButton ($hToolbar, $idOpen, $STD_FILEOPEN, $aStrings[1]) |
|---|
| 42 | _GUICtrlToolbar_AddButton ($hToolbar, $idSave, $STD_FILESAVE, $aStrings[2]) |
|---|
| 43 | _GUICtrlToolbar_AddButtonSep ($hToolbar) |
|---|
| 44 | _GUICtrlToolbar_AddButton ($hToolbar, $idHelp, $STD_HELP, $aStrings[3]) |
|---|
| 45 | |
|---|
| 46 | ; Change Save button text |
|---|
| 47 | _GUICtrlToolbar_SetButtonText($hToolbar, $idSave, "&Close") |
|---|
| 48 | |
|---|
| 49 | ; Show Save button text |
|---|
| 50 | MemoWrite("Save button text: " & _GUICtrlToolbar_GetButtonText($hToolbar, $idSave)) |
|---|
| 51 | |
|---|
| 52 | |
|---|
| 53 | ; Loop until user exits |
|---|
| 54 | Do |
|---|
| 55 | Until GUIGetMsg() = $GUI_EVENT_CLOSE |
|---|
| 56 | |
|---|
| 57 | EndFunc ;==>_Main |
|---|
| 58 | |
|---|
| 59 | ; Write message to memo |
|---|
| 60 | Func MemoWrite($sMessage = "") |
|---|
| 61 | GUICtrlSetData($iMemo, $sMessage & @CRLF, 1) |
|---|
| 62 | EndFunc ;==>MemoWrite |
|---|
