PureBoard

Verfasst: **20.07.2006 15:31**

Hi!!!

Hab mich mal 'n bisschen mit der Taskleiste beschäftigt....
....und rausgekommen ist nur Schwachsinn:

Taskleiste verschwinden lassen:

Code: Alles auswählen

hWnd=FindWindow_("Shell_TrayWnd",0)
ShowWindow_(hWnd,0)

Gadgets drauf erstellen:

Code: Alles auswählen

hWnd=FindWindow_("Shell_TrayWnd",0)
UseGadgetlist(hWnd)
;Gadgets einfügen
;.....

Transparente Taskleiste:

Code: Alles auswählen

hWnd=FindWindow_("Shell_TrayWnd",0)
Procedure SetTaskbarTransparency(hwnd.l,Transparency.l) ;Transparenz 0-255 : 0=Unsichtbar,255=Undurchsichtig
  SetWindowLong_(hwnd, #GWL_EXSTYLE, 524288) 
  If OpenLibrary(1,"user32.dll") 
    CallFunction(1,"SetLayeredWindowAttributes", hwnd, 0,Transparency, 2) 
    CloseLibrary(1) 
  EndIf
EndProcedure

;------------------------------------------
;Beispielcode: Taskbar wird abwechselnd transparent und undurchsichtig:
T=255
i=-1
Repeat
SetTaskbarTransparency(hWnd,T)
If T<1 And i<0
  i+2
ElseIf T>254 And i>0
  i-2
EndIf
T+i
Delay(10)
ForEver

Verfasst: **20.07.2006 15:41**

Ein hinweis auf die skinWin Lib erst dan funztz das....

Und Cu....

Verfasst: **20.07.2006 15:52**

das ist ein schreibfehler

und sollte

Code: Alles auswählen

 SetTaskbarTransparency(hWnd,T)

heissen

Verfasst: **20.07.2006 16:51**

@bo³ ja, ist ein Schreibfehler gewesen
habs jetzt berichtigt.
Während dem Schreiben hatte ich ne ältere Prozedur von mir im Kopf,
obwohl die neue auch mit allen Fenstern funktioniert (daher eigentlich unpassender Name)
THX

PureBoard

Unsinn mit der Taskleiste

Unsinn mit der Taskleiste