button ohne form?

10/24/2010 03:08 Löler³#1
Hi


kann man ein button i-wie machen das er da ist ohne form?
10/24/2010 03:28 PenGuin :O#2
Code:
#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
10/24/2010 19:46 Löler³#3
kannste es vll bissel erklären?^^
10/24/2010 19:55 PenGuin :O#4
Was gena verstehst daran nicht? ;)
Dann kann ich besser auf deine Fragen eingehen...
Bzw. wenn du viel nicht verstehst, schreib das auf was du verstehst :D
10/24/2010 21:06 Löler³#5
will einfach wissen was was macht genau da ich anfänger bin
10/24/2010 21:21 PenGuin :O#6
WEnn du noch Anfänger bist wird das erklären ein ziemlicher Akt.
Ich würde sagen, nimms erstmal hin und baus bei dir ein, wenn duein bisschen mehr gelernt hast, wirste das schon verstehen :P
10/24/2010 21:55 kknb#7
vieleicht kann er das c&p ding auch net erklären ;)
10/24/2010 22:25 ZaZiZu#8
Quote:
Originally Posted by kknb View Post
vieleicht kann er das c&p ding auch net erklären ;)
welches ding meinst du ^^?
10/24/2010 22:38 kknb#9
wieviele scripte wurden denn hier gepostet?
10/24/2010 22:49 ZaZiZu#10
Quote:
Originally Posted by kknb View Post
wieviele scripte wurden denn hier gepostet?
ah...copy&paste meinst du ^^

die meisten schauen hier nicht die skripts aus anderen/kurz davor geposteten threads rein und fragen einfach irgendwas, das ist das problem :)
10/24/2010 22:51 PenGuin :O#11
Quote:
Originally Posted by kknb View Post
vieleicht kann er das c&p ding auch net erklären ;)
Aber auch nur vielleicht ;)