PureBoard

Code: Alles auswählen

SetWindowColor(0,$404080)

Code: Alles auswählen

SHAppBarMessage_(#ABM_GETTASKBARPOS,Taskbar.APPBARDATA)

#cx = 160
#cy = 140

hWnd  = OpenWindow(0,Taskbar\rc\Right-#cx,Taskbar\rc\top-#cy,#cx,#cy,"leer",#PB_Window_Invisible|#PB_Window_borderless)
StickyWindow(0,1)
SetWindowColor(0,$404080)
SetTimer_(hWnd,0,3000,0)

Repeat
  event = WaitWindowEvent()
  
  If event = #WM_TIMER 
    If Not flag & #AW_HIDE
      flag = #AW_HIDE|#AW_BLEND 
    Else 
      flag = #AW_BLEND
    EndIf
    AnimateWindow_(hWnd,700,flag)
  EndIf
  
Until event = #PB_Event_CloseWindow

Code: Alles auswählen

EnableExplicit

OpenWindow(0, 0, 0, 300, 250, "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)
ExamineDesktops()

With winpos
	\Right-WindowWidth(0)
	\Bottom-WindowHeight(0)
	
	ResizeWindow(0, \Right, \Bottom, #PB_Ignore, #PB_Ignore)
EndWith

; Show the window
; AnimateWindow_(WindowID(0), 1500, #AW_VER_NEGATIVE) ; Roll up
AnimateWindow_(WindowID(0), 1500, #AW_VER_NEGATIVE|#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), 1500, #AW_VER_POSITIVE|#AW_SLIDE|#AW_HIDE) ; Slide down