Zeit und Datum

[125]

Hi,
Eben erst den 2ten Post gelesen.
Für Im fordergrund bleiben einfach ein SetForegroundWindow_(WindowID()) in die Repeat schleife

mfg
125

[Jake]

Code: Alles auswählen

Enumeration
  #Window_0
EndEnumeration

Enumeration
  #ZeitFrame
  #DatumFrame
  #Zeit
  #Datum
EndEnumeration

a$ = FormatDate("%hh:%ii:%ss", Date())
b$ = FormatDate("%dd-%mm-%yyyy", Date())


OpenWindow(0,0,0,250,105,#PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget,"Zeit und Datum")

CreateGadgetList(WindowID(0))
  Frame3DGadget(#ZeitFrame,33,23,60,50,"Zeit")
  Frame3DGadget(#DatumFrame,133,23,73,50,"Datum")
  TextGadget(#Zeit, 40, 45,50,20,a$)
  TextGadget(#Datum, 140, 45,150,20,b$)
  
Repeat
;bei WaitWindowEvent() wird die Schleife nur duchlaufen wenn eine Event auftritt (z.B. die Maus über das Fenster halten)
;wenn sich die Zeit immer aktualisieren soll geht das nur mit WindowEvent() - immer ein Deley einfügen siehe unten
  Event = WindowEvent()
  
;durch diese Schleife wird der Text im Gadget nur geändert wenn sich die Zeit auch geändert hat
;damit verhindert man das Flackern des Textes
  If a$ <> FormatDate("%hh:%ii:%ss", Date())
    a$ = FormatDate("%hh:%ii:%ss", Date())
    SetGadgetText(#Zeit, a$)
  EndIf
  
;das gleiche nochmal für das Datum
  If b$ <> FormatDate("%dd-%mm-%yyyy", Date())
    b$ = FormatDate("%dd-%mm-%yyyy", Date())
    SetGadgetText(#Datum, b$)
  EndIf
  
  Delay(1) ;senkt die CPU-Last, dieser Wert sollte nicht erhöht werden
Until Event = #PB_Event_Closewindow

[R4z0r1989]

ich habe ja schon versucht die Zeit mit direkter Schrift zu machen aber da hatte ich das Problem das es sich immer übermalt hat.

Code: Alles auswählen

If OpenWindow(0,0,0,250,105,#PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget,"Disable/enable buttons...") And CreateGadgetList(WindowID(0))  

LoadFont (1, "Arial", 30)

Repeat


; Datum

b$=FormatDate("%dd-%mm-%yyyy", Date())

TextGadget(1, 10, 60,250,40,b$)  

; Zeit

                                     
 
  
  
  

a$=FormatDate("%hh:%ii:%ss", Date())

  

If StartDrawing(WindowOutput())            
    DrawingMode(1)
   
    DrawingFont(UseFont(1))                 
  
    Locate(1, 1)                          
    DrawText(a$)      

    StopDrawing()                            
  EndIf



Until WaitWindowEvent()=#PB_Event_CloseWindow 
  EndIf 

[125]

Hi,
Wiso mit Drawing, Jakes code funzt doch Super?

mfg
125

[R4z0r1989]

was ist das

[R4z0r1989]

ja aber sonst bekomm ich es nicht größer

[Batze]

Code: Alles auswählen

LoadFont(0, "Arial", 200)
SetGadgetFont(#Gadget, FontID())

Groß genug ?