Code: Alles auswählen
SetWindowColor(0,$404080)
Gruß, Little John
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
Code: Alles auswählen
Macro Happy
;-)
EndMacro
Happy End
Hab ich was verpasst? Wasn' mit AnimateWindow_()?AND51 hat geschrieben:Ich verwende nur einen API-Aufruf: SystemParametersInfo_() (Abwärtskompatible bis Win95).
Code: Alles auswählen
Macro Happy
;-)
EndMacro
Happy End
Code: Alles auswählen
Macro Happy
;-)
EndMacro
Happy End