Funktionsweise sollte selbsterklärend sein
(PB 4)
Code: Alles auswählen
Enumeration
#main
EndEnumeration
;Hier ändern wenn man will :)
panels = 5
width = 250
height = 250
;--------------------
OpenWindow(#main,-249,0,width,height,"",#PB_Window_BorderLess)
CreateGadgetList(WindowID(#main))
PanelGadget(0, 0, 0, width, height)
For i = 1 To panels
AddGadgetItem (0, -1, "[- "+Str(i)+" -]")
edit = EditorGadget(#PB_Any,0,0,width-3,height-23)
SetGadgetColor(edit,#PB_Gadget_BackColor,RGB(240,240,150))
Next
;----------------
StickyWindow(#main,1)
notused = OpenWindow(#PB_Any,0,0,0,0,"",#PB_Window_Invisible)
SetWindowLong_(WindowID(#main),#GWL_HWNDPARENT,WindowID(notused))
Repeat
WaitWindowEvent(500)
If WindowMouseX(#main) <> -1 And WindowMouseY(#main) <> -1
If dragged_out = 0
For i = -249 To 0 Step 15
ResizeWindow(#main,i,0,width,height)
Delay(10)
Next
ResizeWindow(#main,0,0,width,height)
dragged_out = 1
EndIf
Else
If dragged_out = 1
For i = 0 To -249 Step -15
ResizeWindow(#main,i,0,width,height)
Delay(10)
Next
ResizeWindow(#main,-249,0,width,height)
dragged_out = 0
EndIf
EndIf
ForEver




