PureBoard

Verfasst: **14.11.2007 21:15**

jaa genau so, nur das problem ist halt dass wenn ich da am code was änder, dann geht das in der mitte auf und verschwindet unten

Verfasst: **14.11.2007 21:18**

ja, weil der Code zwischen With und EndWith weg muss und das habe ich gerade nicht richtig erkannt. Der With-Block hatte noch den ResizeWindow() Befehl drin, welcher das Fenster verschoben hat, deswegen gings in der Mitte auf.

Hier die korrekte Version:

Code: Alles auswählen

EnableExplicit 

ExamineDesktops() 

OpenWindow(0, 0, 0, DesktopWidth(0), DesktopHeight(0)/2, "AND51", #PB_Window_BorderLess|#PB_Window_Invisible) 
CreateGadgetList(WindowID(0)) 
   ButtonGadget(0, 50, 50, 200, 50, "Close", #PB_Button_Default) 

; get the right location for the window. therefore, we get the WORKAREA-coords 
Define winpos.RECT 

SystemParametersInfo_(#SPI_GETWORKAREA, 0, @winpos, 0) 


; Show the window 
 ;AnimateWindow_(WindowID(0), 1500, #AW_VER_POSITIVE) ; Roll up 
AnimateWindow_(WindowID(0), 500, #AW_VER_POSITIVE|#AW_SLIDE) ; Slide up 

; Wait for closing the window 
Repeat : Until WaitWindowEvent() = #PB_Event_Gadget And EventGadget() = 0 


; Hide the window 
; AnimateWindow_(WindowID(0), 1500, #AW_VER_POSITIVE|#AW_HIDE) ; Roll down 
AnimateWindow_(WindowID(0), 500, #AW_VER_NEGATIVE|#AW_SLIDE|#AW_HIDE) ; Slide down

Dieses Fenster ist immer genau die halb so groß, wie der Desktop, da du ja die Sache mit ExamineDesktops() eingebaut hast.[/i]

Hinweisen möchte ich auch auf das DesktopHeight(0)/2, hier wird die Höhe des Desktops durch 2 geteilt, damit man genau die Hälfte bekommt.

Verfasst: **14.11.2007 21:28**

danke das hatte ich auch aber den einen codeteil hatte ich nicht entfernt deshalb hat das keinen sinn gemacht

thx

Verfasst: **14.11.2007 22:12**

Aha, also ist es richtig so?

PureBoard

Message über Startleiste, wie bei ICQ