Beiträge von funkey

[autoit]

#include <Constants.au3>
#include <GUIConstantsEx.au3>
#include <SendMessage.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

Global Enum _
$i_Start_Row = -1, _
$i_hGUI_Row, $i_hPic_Row, $i_hCB_Row, _
$i_Total_Rows
Global $aTrnsChckBxs_DATA[1][$i_Total_Rows]

[/autoit] [autoit][/autoit] [autoit]

Global $hGUI = GUICreate("Test transparent checkbox replacement", 400, 240)
Global $nPic = GUICtrlCreatePic(@AutoItExe & "\..\Examples\GUI\msoobe.jpg", 0, 0, 400, 240, 0)

[/autoit] [autoit][/autoit] [autoit]

GUICtrlCreateCheckbox("Standard checkbox", 10, 10, 200, 20)
GUICtrlCreateCheckbox("Standard checkbox transparent", 10, 50, 200, 20)
GUICtrlSetBkColor(-1, -2)
GUICtrlCreateCheckbox("Standard checkbox without theme", 10, 90, 200, 20)
GUICtrlSetBkColor(-1, -2)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle(-1), "wstr", "Explorer", "wstr", 0)

[/autoit] [autoit][/autoit] [autoit]

GUICtrlCreateRadio("Standard checkbox without theme", 210, 90, 170, 20)
GUICtrlSetBkColor(-1, -2)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle(-1), "wstr", "Explorer", "wstr", 0)

[/autoit] [autoit][/autoit] [autoit]

GUICtrlCreateCheckbox("Standard checkbox workaround", 10, 130, 13, 13)
GUICtrlCreateLabel("Standard checkbox workaround", 26, 130, 170, 13)
GUICtrlSetBkColor(-1, -2)

[/autoit] [autoit][/autoit] [autoit]

GUICtrlCreateRadio("Standard radio button workaround", 210, 130, 13, 13)
GUICtrlCreateLabel("Standard radio button workaround", 226, 130, 200, 13)
GUICtrlSetBkColor(-1, -2)

[/autoit] [autoit][/autoit] [autoit]

Global $nCB1 = _GUICtrlTransCheckbox_Create($hGUI, $nPic, "TransparentCheckbox 1", 10, 170)
Global $nCB2 = _GUICtrlTransCheckbox_Create($hGUI, $nPic, "TransparentCheckbox 2", 10, 210)

[/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW, $hGUI)

[/autoit] [autoit][/autoit] [autoit]

While 1
$nGUIMsg = GUIGetMsg()

[/autoit] [autoit][/autoit] [autoit]

Switch $nGUIMsg
Case $GUI_EVENT_CLOSE
Exit
Case $nCB1, $nCB2
ConsoleWrite("CheckBox [" & GUICtrlRead($nGUIMsg, 1) & "] checked = " & (GUICtrlRead($nGUIMsg) = $GUI_CHECKED) & @LF)
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _GUICtrlTransCheckbox_Create($hGUI, $nBackPic, $sText, $iLeft, $iAbove, $iWidth = -1, $iHeight = -1, $iStyle = -1, $iExStyle = 0)
Local $nCB = GUICtrlCreateCheckbox($sText, $iLeft, $iAbove, $iWidth, $iHeight, $iStyle, $iExStyle)
Local $hCB = GUICtrlGetHandle($nCB)
Local $hPic = GUICtrlGetHandle($nBackPic)

[/autoit] [autoit][/autoit] [autoit]

If $aTrnsChckBxs_DATA[0][0] = 0 Then
GUIRegisterMsg($WM_NOTIFY, '_TrnsChckBx_WM_NOTIFY')
EndIf

[/autoit] [autoit][/autoit] [autoit]

$aTrnsChckBxs_DATA[0][0] += 1
ReDim $aTrnsChckBxs_DATA[$aTrnsChckBxs_DATA[0][0] + 1][$i_Total_Rows]

[/autoit] [autoit][/autoit] [autoit]

$aTrnsChckBxs_DATA[$aTrnsChckBxs_DATA[0][0]][$i_hGUI_Row] = $hGUI
$aTrnsChckBxs_DATA[$aTrnsChckBxs_DATA[0][0]][$i_hPic_Row] = $hPic
$aTrnsChckBxs_DATA[$aTrnsChckBxs_DATA[0][0]][$i_hCB_Row] = $hCB

[/autoit] [autoit][/autoit] [autoit]

Return $nCB
EndFunc ;==>_GUICtrlTransCheckbox_Create

[/autoit] [autoit][/autoit] [autoit]

Func _GUICtrlTransCheckbox_Delete($nChckBx)
Local $hCB = GUICtrlGetHandle($nChckBx)
Local $aTmp[$aTrnsChckBxs_DATA[0][0]][$i_Total_Rows]

[/autoit] [autoit][/autoit] [autoit]

GUICtrlDelete($nChckBx)

[/autoit] [autoit][/autoit] [autoit]

For $i = 1 To $aTrnsChckBxs_DATA[0][0]
If $aTrnsChckBxs_DATA[$i][$i_hCB_Row] <> $hCB Then
$aTmp[0][0] += 1

[/autoit] [autoit][/autoit] [autoit]

$aTmp[$aTmp[0][0]][$i_hGUI_Row] = $aTrnsChckBxs_DATA[$i][$i_hGUI_Row]
$aTmp[$aTmp[0][0]][$i_hPic_Row] = $aTrnsChckBxs_DATA[$i][$i_hPic_Row]
$aTmp[$aTmp[0][0]][$i_hCB_Row] = $aTrnsChckBxs_DATA[$i][$i_hCB_Row]
EndIf
Next

[/autoit] [autoit][/autoit] [autoit]

ReDim $aTmp[$aTmp[0][0] + 1][$i_Total_Rows]
$aTrnsChckBxs_DATA = $aTmp

[/autoit] [autoit][/autoit] [autoit]

Return $aTmp[0][0]
EndFunc ;==>_GUICtrlTransCheckbox_Delete

[/autoit] [autoit][/autoit] [autoit]

Func _TrnsChckBx_WM_NOTIFY($hWnd, $iMsg, $wParam, $lParam)
Local $hWndFrom, $iIDFrom, $tNMHDR
Local Const $tagNMCUSTOMDRAW = 'hwnd hWndFrom;uint_ptr IDFrom;int_ptr Code;dword DrawStage;hwnd hDC;' & $tagRECT & ';dword_ptr ItemSpec;uint ItemState;lparam ItemlParam'

[/autoit] [autoit][/autoit] [autoit]

Local Const $STM_GETIMAGE = 0x0173

[/autoit] [autoit][/autoit] [autoit]

Local $tNMCD = DllStructCreate($tagNMCUSTOMDRAW, $lParam)
Local $hWndFrom = DllStructGetData($tNMCD, 'hWndFrom')
Local $iCode = BitOR(DllStructGetData($tNMCD, 'Code'), 0)
Local $DrawStage = DllStructGetData($tNMCD, 'DrawStage')
Local $ItemSpec = DllStructGetData($tNMCD, 'ItemSpec')
Local $hDC = DllStructGetData($tNMCD, 'hDC')
Local $hPic, $aPos, $hMemDC, $hBitmap, $hPrev
Local $iAbove, $iBeneath, $iBoxSize = 13
For $i = 1 To $aTrnsChckBxs_DATA[0][0]
If $hWndFrom = $aTrnsChckBxs_DATA[$i][$i_hCB_Row] Then
Switch $iCode
Case $NM_CUSTOMDRAW
Switch $DrawStage
Case $CDDS_PREPAINT
$hPic = $aTrnsChckBxs_DATA[$i][$i_hPic_Row]
$aPos = ControlGetPos($hWnd, '', $hWndFrom)

[/autoit] [autoit][/autoit] [autoit]

If @error Then
ExitLoop
EndIf

[/autoit] [autoit][/autoit] [autoit]

If $aPos[3] < $iBoxSize Then $iBoxSize = $aPos[3]
$iAbove = Floor(($aPos[3] - $iBoxSize) / 2)
$iBeneath = $iAbove + $iBoxSize

[/autoit] [autoit][/autoit] [autoit]

$hMemDC = _WinAPI_CreateCompatibleDC($hDC)
$hBitmap = _SendMessage($hPic, $STM_GETIMAGE, $IMAGE_BITMAP, 0)
$hPrev = _WinAPI_SelectObject($hMemDC, $hBitmap)
_WinAPI_BitBlt($hDC, 0, 0, $iBoxSize, $iAbove, $hMemDC, $aPos[0], $aPos[1], $SRCCOPY) ;field above checkbox
_WinAPI_BitBlt($hDC, 0, $iBeneath, $iBoxSize, $iBeneath - $iAbove, $hMemDC, $aPos[0], $aPos[1] + $iBeneath, $SRCCOPY) ;field beneath checkbox
_WinAPI_BitBlt($hDC, $iBoxSize, 0, $aPos[2] - $iBoxSize, $aPos[3], $hMemDC, $aPos[0] + $iBoxSize, $aPos[1], $SRCCOPY) ;checkbox text field
_WinAPI_SelectObject($hMemDC, $hPrev)
_WinAPI_DeleteDC($hMemDC)
Return $CDRF_DODEFAULT
EndSwitch
EndSwitch

[/autoit] [autoit][/autoit] [autoit]

ExitLoop
EndIf
Next

[/autoit] [autoit][/autoit] [autoit]

Return $GUI_RUNDEFMSG
EndFunc ;==>_TrnsChckBx_WM_NOTIFY

[/autoit]

[autoit]

GUICreate("Test InfoLabel", 400, 220)

[/autoit] [autoit][/autoit] [autoit]

Global $nInfoLbl = _InfoLabel_Create(110, 10, 180, 40, "This is an example text" & @CRLF & "with two lines. Click me!", "InfoLabel title", 0x44FF)
Global $nInfoLbl2 = _InfoLabel_Create(110, 60, 180, 40, "This is an example text" & @CRLF & "with two lines" & @CRLF & "no three! And no title.")
_InfoLabel_Create(10, 110, 380, 100, "AutoIt v3 is a freeware BASIC-like scripting language designed for automating the Windows GUI and general scripting. It uses a combination of simulated keystrokes, mouse movement and window/control manipulation in order to automate tasks in a way not possible or reliable with other languages (e.g. VBScript and SendKeys). AutoIt is also very small, self-contained and will run on all versions of Windows out-of-the-box with no annoying 'runtimes' required!", "Introduction")

[/autoit] [autoit][/autoit] [autoit]

GUISetState()

[/autoit] [autoit][/autoit] [autoit]

Global $iMsg
While 1
$iMsg = GUIGetMsg()
Switch $iMsg
Case -3
ExitLoop
Case $nInfoLbl
_InfoLabel_SetText($nInfoLbl, "New Text" & @CRLF & "Thank you ;)")
Case $nInfoLbl2
_InfoLabel_SetTitle($nInfoLbl2, "New Title")
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _InfoLabel_Create($x, $y, $w, $h, $sText, $sTitle = "", $iTitleCol = 0xFF0000)
GUICtrlCreateLabel("", $x + 2, $y + $h, $w, 2, 0x05) ;$SS_GRAYRECT, acts as shadow
GUICtrlCreateLabel("", $x + $w, $y + 2, 2, $h, 0x05) ;$SS_GRAYRECT, acts as shadow
Local $nCtrl = GUICtrlCreateLabel($sTitle, $x, $y, $w, $h, BitOR(0x00800000, 0x1), 0x8) ;WS_BORDER or $SS_CENTER
GUICtrlSetColor(-1, $iTitleCol)
GUICtrlSetBkColor(-1, 0xFFFFDF)

[/autoit] [autoit][/autoit] [autoit]

Local $sStart
If $sTitle <> "" Then $sStart = @CRLF
GUICtrlCreateLabel($sStart & $sText, $x, $y, $w, $h, 0x1) ;$SS_CENTER
GUICtrlSetBkColor(-1, -2) ;$GUI_BKCOLOR_TRANSPARENT
Return $nCtrl
EndFunc ;==>_InfoLabel_Create

[/autoit] [autoit][/autoit] [autoit]

Func _InfoLabel_SetTitle($nCtrl, $sTitle)
If GUICtrlRead($nCtrl) = "" Then GUICtrlSetData($nCtrl + 1, @CRLF & GUICtrlRead($nCtrl + 1))
If $sTitle = "" Then GUICtrlSetData($nCtrl + 1, StringStripWS(GUICtrlRead($nCtrl + 1), 1))
GUICtrlSetData($nCtrl, $sTitle)
EndFunc ;==>_InfoLabel_SetTitle

[/autoit] [autoit][/autoit] [autoit]

Func _InfoLabel_SetText($nCtrl, $sText)
If GUICtrlRead($nCtrl) = "" Then
GUICtrlSetData($nCtrl + 1, $sText)
Else
GUICtrlSetData($nCtrl + 1, @CRLF & $sText)
EndIf
EndFunc ;==>_InfoLabel_SetText

[/autoit]