#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
;
Opt("GUIOnEventMode", 1)
$Form = GUICreate("Только как пример", 524, 204, 203, 181)
GUISetOnEvent($GUI_EVENT_CLOSE, "Close")
$Dummy_Ctrl = GUICtrlCreateLabel("", -10, -10)
$Edit = GUICtrlCreateEdit("", 8, 8, 249, 153)
GUICtrlSetColor(-1, 0xff0000)
GUICtrlSetFont(-1, 10, 800)
$Button1 = GUICtrlCreateButton("Добавить текст в поле Edit", 8, 168, 249, 25, 0)
GUICtrlSetOnEvent(-1, "AddEdit")
$List = GUICtrlCreateList("", 272, 8, 241, 149)
GUICtrlSetColor(-1, 0xff0000)
GUICtrlSetFont(-1, 10, 800)
$Button2 = GUICtrlCreateButton("Добавить текст в поле List", 272, 168, 241, 25, 0)
GUICtrlSetOnEvent(-1, "AddList")
GUISetState(@SW_SHOW)
GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")
While 1
Sleep(30)
WEnd
Func Close()
GUIDelete($Form)
Exit
EndFunc
Func AddEdit()
GUICtrlSetData($Edit, "Этот текс должен быть красным" & @CRLF, "-")
GUICtrlSetData($Edit, "Этот текс должен быть черным" & @CRLF, "-")
EndFunc
Func AddList()
GUICtrlSetData($List, "Этот текс должен быть красным" & @CRLF, "-")
GUICtrlSetData($List, "Этот текс должен быть черным" & @CRLF, "-")
EndFunc
Func WM_COMMAND($hWnd, $nMsg, $wParam, $lParam)
Local $nNotifyCode = BitShift($wParam, 16)
Local $nID = BitAND($wParam, 0xFFFF)
Switch $nID
Case $Edit
Switch $nNotifyCode
Case $EN_SETFOCUS
ControlFocus($hWnd, "", $Dummy_Ctrl)
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc |
