Unsinn mit der Taskleiste

[Olaf]

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

[Ground0]

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

Und Cu....

[bobobo]

das ist ein schreibfehler

und sollte

Code: Alles auswählen

 SetTaskbarTransparency(hWnd,T) 

heissen

[Olaf]

@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