| 1 | ;; AUTOIT TARGET VERSION: Beta 3.2.11.1
|
|---|
| 2 | ;; Summary: Auto resize of GUICtrlCreateGraphic control notify area. (?)
|
|---|
| 3 |
|
|---|
| 4 | #include <GuiConstantsEx.au3> ;; <-> (Gui Event Const)
|
|---|
| 5 | #include <WindowsConstants.au3> ;; <-> (Gui Create Const)
|
|---|
| 6 | #include <Constants.au3> ;; <-> ($COLOR_*)
|
|---|
| 7 | #include <StaticConstants.au3> ;; <-> ($SS_BLACKFRAME)
|
|---|
| 8 |
|
|---|
| 9 | Opt('MustDeclareVars', 1)
|
|---|
| 10 | Opt("GUIOnEventMode", 0)
|
|---|
| 11 |
|
|---|
| 12 | ;~ Global $hGUI
|
|---|
| 13 | Global Const $_X = 0
|
|---|
| 14 | Global Const $_Y = 1
|
|---|
| 15 | Global Const $_Margin = 10
|
|---|
| 16 |
|
|---|
| 17 | _Main()
|
|---|
| 18 |
|
|---|
| 19 | Func _Main()
|
|---|
| 20 | Local $hGUI = GUICreate('GUI_Main', 200, 200, -1, -1, BitOR($GUI_SS_DEFAULT_GUI, $WS_SIZEBOX))
|
|---|
| 21 | AddGraphControle($hGUI)
|
|---|
| 22 | AddFakeNotifyArea($hGUI)
|
|---|
| 23 | GUISetState(@SW_SHOW, $hGUI)
|
|---|
| 24 | GUI_Event($hGUI)
|
|---|
| 25 | EndFunc ;==>_Main
|
|---|
| 26 |
|
|---|
| 27 | Func AddGraphControle($hGUI)
|
|---|
| 28 | Local $Size_A = WinGetClientSize($hGUI)
|
|---|
| 29 | Local $GRAP_ID = GUICtrlCreateGraphic(0 + $_Margin, 0 + $_Margin, $Size_A[$_X] - ($_Margin * 2), $Size_A[$_Y] - ($_Margin * 2))
|
|---|
| 30 | GUICtrlSetColor($GRAP_ID, $COLOR_BLUE)
|
|---|
| 31 | GUICtrlSetBkColor($GRAP_ID, $COLOR_WHITE)
|
|---|
| 32 | ConsoleWrite('+ $GRAP_ID = ' & $GRAP_ID & @CR)
|
|---|
| 33 | EndFunc ;==>AddGraphControle
|
|---|
| 34 |
|
|---|
| 35 | Func AddFakeNotifyArea($hGUI)
|
|---|
| 36 | Local $Size_A = WinGetClientSize($hGUI)
|
|---|
| 37 | Local $LABEL_ID = GUICtrlCreateLabel('', 0 + $_Margin, 0 + $_Margin, $Size_A[$_X] - ($_Margin * 2), $Size_A[$_Y] - ($_Margin * 2))
|
|---|
| 38 | GUICtrlSetStyle($LABEL_ID, $SS_BLACKFRAME)
|
|---|
| 39 | GUICtrlSetState($LABEL_ID, $GUI_DISABLE)
|
|---|
| 40 | ConsoleWrite('+ $LABEL_ID = ' & $LABEL_ID & @CR)
|
|---|
| 41 | EndFunc ;==>AddFakeNotifyArea
|
|---|
| 42 |
|
|---|
| 43 | Func GUI_Event($hGUI)
|
|---|
| 44 | Local $Msg_Cur
|
|---|
| 45 | Local $Msg_Last
|
|---|
| 46 | While 1
|
|---|
| 47 | $Msg_Cur = GUIGetMsg()
|
|---|
| 48 | If $Msg_Cur And ($Msg_Cur <> $Msg_Last) Then BD_GUIGetMsg($Msg_Cur, $Msg_Last) ;;
|
|---|
| 49 | Select
|
|---|
| 50 | Case $Msg_Cur = $GUI_EVENT_CLOSE ;; exit
|
|---|
| 51 | GUIDelete()
|
|---|
| 52 | Exit
|
|---|
| 53 | EndSelect
|
|---|
| 54 | WEnd
|
|---|
| 55 | EndFunc ;==>GUI_Event
|
|---|
| 56 |
|
|---|
| 57 | Func BD_GUIGetMsg($msg_new, ByRef $Msg_Last)
|
|---|
| 58 | If ($msg_new = $Msg_Last) Then Return
|
|---|
| 59 | $Msg_Last = $msg_new
|
|---|
| 60 | Switch $msg_new
|
|---|
| 61 | Case $GUI_EVENT_MOUSEMOVE
|
|---|
| 62 | ConsoleWrite(' $msg_new = $GUI_EVENT_MOUSEMOVE[' & $msg_new & ']' & @CR)
|
|---|
| 63 | Case $GUI_EVENT_MINIMIZE
|
|---|
| 64 | ConsoleWrite(' $msg_new = $GUI_EVENT_MINIMIZE[' & $msg_new & ']' & @CR)
|
|---|
| 65 | Case $GUI_EVENT_RESTORE
|
|---|
| 66 | ConsoleWrite(' $msg_new = $GUI_EVENT_RESTORE[' & $msg_new & ']' & @CR)
|
|---|
| 67 | Case $GUI_EVENT_MAXIMIZE
|
|---|
| 68 | ConsoleWrite(' $msg_new = $GUI_EVENT_MAXIMIZE[' & $msg_new & ']' & @CR)
|
|---|
| 69 | Case $GUI_EVENT_PRIMARYDOWN
|
|---|
| 70 | ConsoleWrite(' $msg_new = $GUI_EVENT_PRIMARYDOWN[' & $msg_new & ']' & @CR)
|
|---|
| 71 | Case $GUI_EVENT_PRIMARYUP
|
|---|
| 72 | ConsoleWrite(' $msg_new = $GUI_EVENT_PRIMARYUP[' & $msg_new & ']' & @CR)
|
|---|
| 73 | Case $GUI_EVENT_SECONDARYDOWN
|
|---|
| 74 | ConsoleWrite(' $msg_new = $GUI_EVENT_SECONDARYDOWN[' & $msg_new & ']' & @CR)
|
|---|
| 75 | Case $GUI_EVENT_SECONDARYUP
|
|---|
| 76 | ConsoleWrite(' $msg_new = $GUI_EVENT_SECONDARYUP[' & $msg_new & ']' & @CR)
|
|---|
| 77 | Case $GUI_EVENT_RESIZED
|
|---|
| 78 | ConsoleWrite(' $msg_new = $GUI_EVENT_RESIZED[' & $msg_new & ']' & @CR)
|
|---|
| 79 | Case $GUI_EVENT_DROPPED
|
|---|
| 80 | ConsoleWrite(' $msg_new = $GUI_EVENT_DROPPED[' & $msg_new & ']' & @CR)
|
|---|
| 81 | Case $GUI_EVENT_PRIMARYDOWN
|
|---|
| 82 | ConsoleWrite(' $msg_new = $GUI_EVENT_PRIMARYDOWN[' & $msg_new & ']' & @CR)
|
|---|
| 83 | Case $GUI_EVENT_CLOSE
|
|---|
| 84 | ConsoleWrite(' $msg_new = $GUI_EVENT_CLOSE[' & $msg_new & ']' & @CR)
|
|---|
| 85 | Case Else
|
|---|
| 86 | ConsoleWrite(' $msg_new = (controle)[' & $msg_new & ']' & @CR)
|
|---|
| 87 | EndSwitch
|
|---|
| 88 | EndFunc ;==>BD_GUIGetMsg
|
|---|
| 89 |
|
|---|
| 90 | ;; EOF ;;
|
|---|
