un clique et elle se transforme en fenetre a déplacer , un autre elle se fixe sans bordures !
Code : Tout sélectionner
; German forum: http://robsite.de/php/pureboard/viewtopic.php?t=2165&highlight=
; Author: RayMan1970
; Date: 01. September 2003
; **************************************************************
; **** Windows Uhr (c) 2003 by www.menzer-software.de *****
; **************************************************************
Procedure BoxLine(X_Von,Y_Von,X_bis,Y_bis,Rot,Gruen,Blau) ; ** Eine Box nur aus Linien anzeigen **
LineXY(X_Von,Y_Von,X_bis,Y_Von,RGB( Rot,Gruen,Blau ) ) ; Line oben
LineXY(X_bis,Y_Von,X_bis,Y_bis,RGB( Rot,Gruen,Blau ) ) ; Line rechts
LineXY(X_Von,Y_bis,X_bis,Y_bis,RGB( Rot,Gruen,Blau ) ) ; Line unten
LineXY(X_Von,Y_Von,X_Von,Y_bis,RGB( Rot,Gruen,Blau ) ) ; Line links
EndProcedure ; ************************************************************************************
Procedure Uhr_Zeigen() ; ****************************** Zeit zeigen ********************************
StartDrawing( WindowOutput() )
Box(1, 1, 130, 33 , RGB(163,142,178) ) ; Ausgefüllte Box anzeigen
BoxLine(0,0,131,34,255,0,0) ; Eine Box nur aus Linien anzeigen
Locate(4,0) ; Text Position
DrawingMode(1) ; Setzt den Text-Hintergrund auf transparent
DrawingFont(LoadFont(1,"Diner",20)) ; Die Schrift
FrontColor(255,255,125) ; Text Farbe
DrawText(FormatDate("%hh:%ii:%ss", Date() )) ; Text zeigen
StopDrawing()
EndProcedure ; *************************************************************************************
OpenWindow(0,0,0,132,35, #PB_Window_ScreenCentered | #WS_POPUP,"Rays Uhr") ; Fenster ohne alles öffnen *
Repeat ; -------------------------- Hauptschleife ---------------------------------------------
WindowEvent=WindowEvent()
If zeit$<>FormatDate("%ss", Date() ) ; ---- Aktuelle Zeit zeigen ----
zeit$=FormatDate("%ss", Date() )
Uhr_Zeigen()
EndIf ; -------------------------------------------------------------
If WindowEvent=#WM_LBUTTONDOWN ; *********** Fenster An/Aus *****************
Fenster_an_aus+1
If Fenster_an_aus=1 ; ----- AN -----
OpenWindow(0,WindowX(),WindowY(),132,35, #PB_Window_SystemMenu,"Rays Uhr"); Fenster mit Rahmen öffnen *
Uhr_Zeigen()
EndIf
If Fenster_an_aus=2 ; ----- AUS -----
OpenWindow(0,WindowX(),WindowY(),132,35, #WS_POPUP,"Rays Uhr") ; Fenster ohne alles öffnen *
Fenster_an_aus=0
Uhr_Zeigen()
EndIf
EndIf ; *********************************************************************
Delay(50)
Until WindowEvent=#PB_Event_CloseWindow ; ----------- Ende Hauptschleife -----------------------
CloseWindow(0)
End ; Programm Ende
; ExecutableFormat=
; FirstLine=1
; EnableXP
; EOF
