PureBoard

Code: Alles auswählen

;Modul      WinBlink Version 1.01 vom 04.06.2009 
;#PB_Vers  = "4.20"            
;
;Funktion:  Steuerung blinkender Fenster-Titel (auch in TaskBar)
;           Mit dieser Funktion kann ein Fenster-Titel blinkend angezeigt werden
;
;Aufruf:    WinBlink(WinNr, Mode$ {, Interval}) -Mode$: F=FensterTitel und/oder T=TaskLeiste  sonst: blinken aus
;           WinNr : #WindowNr des Fensters, dessen blinken gesteuert werden soll
;           Mode$ : steuert das Blinken, wenn:
;                   "F" enthalten ist, so blinkt der Fenster-Titel,
;                   "T" enthalten ist, so blinkt der Taskleisten-Eintrag
;                   ist keines der beiden Zeichen enthalten (GROSS-/klein-
;                   schrift egal...), so wird das Blinken ausgeschaltet.
;           Intervall: Blink-Zeit [mSec´s], je größer, desto langsamer...
;                   Wird dieser Parameter nicht angegeben, so wird 200 benutzt
;

;#jaPBeExt exit
Structure FLASHWINFO
  cbSize.l
  hwnd.l
  dwFlags.l
  uCount.l
  dwTimeout.l
EndStructure
Procedure WinBlink(WinID, Mode$, Intervall = 200) ;Mode$: F=FensterTitel und/oder T=TaskLeiste  sonst: blinken aus
  Protected Info.FLASHWINFO
  Info\cbSize = SizeOf(FLASHWINFO)
  Info\hwnd = WindowID(WinNr)
  Mode$ = UCase(Mode$)
  If FindString(Mode$, "F", 1) ;Fenster-Titel
    Info\dwFlags = 5
    If FindString(Mode$, "T", 1) ;Fenster-Titel + TaskLeiste
      Info\dwFlags = 7
    EndIf
  ElseIf FindString(Mode$, "T", 1) ;TaskLeiste
    Info\dwFlags = 6
  EndIf
  Info\uCount = 0 ;wie oft blinken ? (0=endlos)
  Info\dwTimeout = Intervall ;Blink-Dauer [mSec´s]
  FlashWindowEx_(Info)
EndProcedure