PureBoard

Verfasst: **17.06.2006 18:53**

Nix tolles aber in manchen fällen sehr hilfreich :P einfach mit der maus links oben an den bildschirmrand ankommen

Funktionsweise sollte selbsterklärend sein

(PB 4)

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

mfg MySelf

Verfasst: **17.06.2006 18:58**

Ja - nicht schlecht

Fast GENAU das selbe hatte ich auch am anfang programmiert, noch vor nem post-it versuch der nur so halb funktionierte :-P

Lg

Verfasst: **21.06.2006 16:09**

Sieht ziemlich gut aus!

Verfasst: **21.06.2006 16:44**

Mhhh..... Irgendwie solltest du das Fenster anders verstecken. Bei mir
geht es nämlich hinter der 0 Koordinate im Minusbereich noch weiter,
habe ja auch 2 Monitore

.

Verfasst: **21.06.2006 16:53**

@ mxva: Kann man sich eigentlich aussuchen, auf welchem Monitor man ein Fenster öffnen oder ein Vollbild aufmachen will?

Verfasst: **21.06.2006 18:15**

stimmt würde mich auch mal interessieren wie sowas funktioniert... wäre bestimmt ne geile sache

Verfasst: **21.06.2006 18:18**

Das geht dann aber nur von unten bzw. von oben, es sei denn es gibt
jemand der die Monitore übereinander gestellt hat

Mit SystemParametersInfo_() und #SPI_GETWORKAREA bzw.
#SM_CXVIRTUALSCREEN kann man den Arbeitsbereich und die
vituelle Größe ( für mehrere Monitore wichtig ) auslesen.

PureBoard

Kleiner helfer

Kleiner helfer