Hi
kann man ein button i-wie machen das er da ist ohne form?
kann man ein button i-wie machen das er da ist ohne form?
#include <WindowsConstants.au3>
#include <WinAPI.au3>
Global $aButton[2]
$hGUI = GUICreate("MyGUI", 150, 150, -1, -1, $WS_POPUP)
$aButton[0] = GUICtrlCreateButton("Hit Me!", 0, 0, 150)
$aButton[1] = GUICtrlCreateButton("Exit", 0, 50, 150)
GUISetState()
_GuiHole($hGUI, 0, 0, 150, 150)
While 1
$msg = GUIGetMsg()
Switch $msg
Case $aButton[0]
MsgBox(0, "", "It's magic!")
Case $aButton[1]
Exit
EndSwitch
WEnd
Func _GuiHole($h_win, $i_x, $i_y, $i_sizew, $i_sizeh)
Local $outer_rgn, $inner_rgn, $combined_rgn
$combined_rgn = _WinAPI_CreateRectRgn(0, 0, 0, 0)
_WinAPI_DeleteObject($outer_rgn)
_WinAPI_DeleteObject($inner_rgn)
_AddCtrlRegion($combined_rgn, $aButton) ;Hier aButton anpassen
_WinAPI_SetWindowRgn($h_win, $combined_rgn)
EndFunc ;==>_GuiHole
Func _AddCtrlRegion($full_rgn, $ctrl_id)
Local $ctrl_pos, $ctrl_rgn
If IsArray($ctrl_id) Then
For $i = 0 To UBound($ctrl_id) -1
$ctrl_pos = ControlGetPos($hGui, "", $ctrl_id[$i]) ;Hier hGUI anpassen
$ctrl_rgn = _WinAPI_CreateRectRgn($ctrl_pos[0], $ctrl_pos[1], $ctrl_pos[0] + $ctrl_pos[2], $ctrl_pos[1] + $ctrl_pos[3])
_WinAPI_CombineRgn($full_rgn, $full_rgn, $ctrl_rgn, $RGN_OR)
_WinAPI_DeleteObject($ctrl_rgn)
Next
Else
$ctrl_pos = ControlGetPos($hGui, "", $ctrl_id) ;Hier hGUI anpassen
$ctrl_rgn = _WinAPI_CreateRectRgn($ctrl_pos[0], $ctrl_pos[1], $ctrl_pos[0] + $ctrl_pos[2], $ctrl_pos[1] + $ctrl_pos[3])
_WinAPI_CombineRgn($full_rgn, $full_rgn, $ctrl_rgn, $RGN_OR)
_WinAPI_DeleteObject($ctrl_rgn)
EndIf
EndFunc ;==>_AddCtrlRegion