PureBoard

Code: Alles auswählen

LoadFont(0,"",32)
Debug ElapsedMilliseconds()
Time$ = FormatDate("%hh:%ii",Date()-ElapsedMilliseconds()/1000+(3600*8))
Time$=FormatDate("%hh:%ii",Date())
ExamineDesktops()
w=DesktopWidth(0):h=DesktopHeight(0) ;
tw=30;428 ;textwidth (gemessen)
th=120 ;textheight(gemessen)


del=333
del=33
ro.l=235:go.l=80:bo.l=80
;r=82:g=111:b=bo
py=h-th
For i=0 To 300
FreeFont(0)
  LoadFont(0,"",Random(22)+10)
  hdc = GetWindowDC_(GetShellWindow_())
  SelectObject_(hdc,FontID(0))
  SetBkMode_(hdc,#TRANSPARENT)
  ;r=153+Random(43):g=64+Random(43):b=64+Random(43)
  
  ;r=ro-8+Random(16):g=go-8+Random(16):b=bo-8+Random(15)
  r=ro-20+Random(40):g=go-20+Random(40):b=bo-20+Random(40)
  
  px=Random(w-tw):py=h-th:py=Random(50)+(h-th-50);:py=h-th
  
  ;For t=2 To 1 Step -1
  ;  Debug Str(r-r*5)+" "+Str(g-r*5)+" "+Str(b-r*5)
  ;  SetTextColor_(hdc,RGB(r-t*8,g-t*8,b-t*8))
  ;  TextOut_(hdc,px+t,py+t,Time$,5)
  ;Next t
  SetTextColor_(hdc,#Black)
  TextOut_(hdc,px+1,py+1,Time$,5)
  Select Random(2)
  Case 0
  SetTextColor_(hdc,#Yellow)
  Case 1
  SetTextColor_(hdc,#Red)
  Case 2
  SetTextColor_(hdc,#Green)
  EndSelect
  TextOut_(hdc,px,py,Time$,5)
  
  
  ;ReleaseDC_(GetShellWindow_(),hdc)
  ;InvalidateRect_(65700,0,0)    brauch gar nich
  For iv=256*256 To 256*256+512
    InvalidateRect_(iv,0,0)   ;Soll den Rest bereinigen (iconebene was auch immer)
  Next iv
  ;del+33
  
  del+33
  del =1
  Debug del
  Beep_(Random(200)+400,100)
  ReleaseDC_(GetShellWindow_(),hdc)
  Delay(del)
Next