Войти

Показать полную графическую версию : [решено] Как здать прозрачный фон в GUICtrlCreateLabel


Centrinar
25-03-2011, 22:01
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include "GUICtrlOnHover.au3"

#Region Main form
$hMain_GUI = GUICreate("Главное окно", 300, 200)
$Label = GUICtrlCreateLabel("Настройки", 10, 170, 55, 20)
GUICtrlSetFont($Label, 8.5, 400, 0)
_GUICtrl_OnHoverRegister($Label, "_Hover_Func", "_Hover_Func")
$nExit_Btn = GUICtrlCreateButton("Выход", 90, 170, 70, 20)
GUISetState(@SW_SHOW, $hMain_GUI)
#EndRegion Main form

#Region Settings form
$hStngs_GUI = GUICreate("Настройки", 400, 200)
$nStngs_Ok_Btn = GUICtrlCreateButton("ОК", 10, 170, 80, 25)
$nStngs_Close_Btn = GUICtrlCreateButton("Закрыть", 310, 170, 80, 25)
#EndRegion Settings form


While 1
$aMsg = GUIGetMsg(1) ;Расширенная обработка событий

Switch $aMsg[0]
Case $GUI_EVENT_CLOSE, $nExit_Btn, $nStngs_Close_Btn
Switch $aMsg[1]
Case $hMain_GUI ;Событие поступило от главного окна - завершаем работу скрипта
Exit
Case $hStngs_GUI ;Событие поступило от окна настроек - закрываем его
GUISetState(@SW_HIDE, $hStngs_GUI)
EndSwitch
Case $Label
GUISetState(@SW_SHOW, $hStngs_GUI)
EndSwitch
WEnd

Func _Hover_Func($iCtrlID, $iParam)
Local $sConsole_Data = "Hovered"
Local $iLabel_Color = 0x00000FF
Local $iLabel_FontAttrib = 4
Local $iLabel_CursorID = 0

If $iParam = 2 Then ;Indicates On *Leave* Hover process
$sConsole_Data = "NOT Hovered"

$iLabel_Color = 0x000000
$iLabel_FontAttrib = 0
$iLabel_CursorID = -1
EndIf

Printf("Control " & $iCtrlID & " [Data: " & GUICtrlRead($iCtrlID, 1) & "] Is Now " & $sConsole_Data)

Switch $iCtrlID
Case $Label
GUICtrlSetColor($iCtrlID, $iLabel_Color)
GUICtrlSetFont($iCtrlID, 8.5, 400, $iLabel_FontAttrib)
GUICtrlSetCursor($iCtrlID, $iLabel_CursorID)
EndSwitch
EndFunc

Func Printf($Str, $Line=@ScriptLineNumber)
ConsoleWrite("!===========================================================" & @LF & _
"+======================================================" & @LF & _
"--> Script Line (" & $Line & "):" & @LF & "!" & @TAB & $Str & @LF & _
"+======================================================" & @LF)
EndFunc

Creat0R
26-03-2011, 00:27
Зачем?

P.S
И мы кажется проходили это уже не раз.

Centrinar
26-03-2011, 00:30
GUICtrlCreateLabel создается в GUI окне в котором установлена фоновая картинка, соответственно вокруг GUICtrlCreateLabel образуются черный контур.

madmasles
26-03-2011, 00:49
Centrinar,
;...
GUICtrlCreatePic (http://www.autoitscript.com/autoit3/docs/functions/GUICtrlCreatePic.htm)(@TempDir (http://www.autoitscript.com/autoit3/docs/macros.htm#@tempdir) & '\Optimal.jpg', 0, 0, 385, 145)
GUICtrlSetState (http://www.autoitscript.com/autoit3/docs/functions/GUICtrlSetState.htm)(-1, $GUI_DISABLE)
GUICtrlCreateLabel (http://www.autoitscript.com/autoit3/docs/functions/GUICtrlCreateLabel.htm)('Test', 150, 50, 85, 20)
GUICtrlSetBkColor (http://www.autoitscript.com/autoit3/docs/functions/GUICtrlSetBkColor.htm)(-1, $GUI_BKCOLOR_TRANSPARENT)
;...




© OSzone.net 2001-2012