Must AutoIt
Сообщения: 3054
Благодарности: 1009
|
Профиль
|
Сайт
|
Отправить PM
| Цитировать
Код:
#include <GUIConstantsEx.au3>
#include <GUITab.au3>
$Gui = GUICreate("_GUICtrlTab_SetBkColor() Demo", 320, 280)
$hTab = GUICtrlCreateTab(10, 20, 300, 250)
GUICtrlCreateTabItem("Tab 1")
_GUICtrlTab_SetBkColor($Gui, $hTab, 0xFF0000)
GUICtrlCreateButton("Some Button", 20, 50)
GUICtrlCreateTabItem("Tab 2")
_GUICtrlTab_SetBkColor($Gui, $hTab, 0x00CC00)
GUICtrlCreateCheckbox("Some Checkbox", 20, 50)
GUISetState()
While 1
$Msg = GUIGetMsg()
Switch $Msg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func _GUICtrlTab_SetBkColor($hWnd, $hSysTab32, $sBkColor)
Local $aTabPos = ControlGetPos($hWnd, "", $hSysTab32)
Local $aTab_Rect = _GUICtrlTab_GetItemRect($hSysTab32, -1)
GUICtrlCreateLabel("", $aTabPos[0]+2, $aTabPos[1]+$aTab_Rect[3]+4, $aTabPos[2]-4, $aTabPos[3]-$aTab_Rect[3]-7)
GUICtrlSetBkColor(-1, $sBkColor)
GUICtrlSetState(-1, $GUI_DISABLE)
EndFunc
И ещё по теме: Решение проблемы цвета для элементов на Tab'ах
|
-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.” Альберт Эйнштейн
P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»
http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community
Отправлено: 23:32, 14-05-2010
| #2
|