STATIC Control transparent?

[Rastaman]

Moin. Ihr kennt doch sicher alle die Eigenschaft "Transparent" vom TLabel.
Weiss jemand wie ich das auch auf ne STATIC Control anwenden kann?
Also STATIC und nich TStaticText :stupid:

Thx!

[SirThornberry]

eine Ordentliche Transparenz kannst du darauf nur Bedingt anwenden da TStatic ein eigenes Fenster ist (handle) und TLabel nur ein Control welches sich auf die Canvas des Parenz malt.

Um deinen Effekt zu erreichen musst du WM_ERASEBKGND abfangen und die Message verwerfen. Und dann musst du bei den CreateParams zum Style ws_WS_EX_TRANSPARENT hinzufügen. Am besten du suchst mal wie man ein Panel Transparent bekommt (gabs öfters schon) und genau so geht es auch bei einem TStaticText (sollte es zumindest)

[Rastaman]

Sie heisst WM_ERASEBKGND (Nur nachgeguggt, nich, dass Olli wieder denkt, dass ich Klugscheisse :mrgreen:)
Aber wie verwerfe ich den Messages?

[SirThornberry]

laut msdn "verwirfst" du die Message in dem du als Result einen Wert ungleich 0 beim Messagehandler zurück gibst.

Delphi-Quellcode:

procedure TStaticText.WMEraseBkgnd(var AMsg: TWMEraseBkgnd);
begin
  AMsg.result := 1;
end;

Aber wie geschrieben, einfach danach suchen wie es beim panel gemacht wird und du hast die lösung.

[Rastaman]

Zitat:

Zitat von Gerrit89

Also STATIC und nich TStaticText :stupid:

Zitat:

Zitat von SirThornberry

...und genau so geht es auch bei einem TStaticText (sollte es zumindest)

;)

[SirThornberry]

Bei TStaticText gibt es doch eigentlich schon ein property Transparent (was bei mir aber irgendwie nicht funktioniert)

[Rastaman]

Es geht aber nicht um TStaticText, sondern um STATIC :-D (keine VCL)

[SirThornberry]

achso, wenns um Static geht hab ich ja schon gepostet wie es gehen sollte.
Dann musst du nicht die CreateParams überschreiben sondern gleich beim erzeugen beim Style das WS_EX_TRANSPARENT mit übergeben.

[Rastaman]

Da is leider kein Unterschied zu vorher :(

Zitat:

WS_EX_TRANSPARENT
Specifies that a window created with this style should not be painted until siblings beneath the window (that were created by the same thread) have been painted. The window appears transparent because the bits of underlying sibling windows have already been painted.

To achieve transparency without these restrictions, use the SetWindowRgn function.

Versteh ich nich so ganz ...

//Edit: Gibts auch sowas wie AutoSize fürn STATIC?

[SirThornberry]

Zitat:

Zitat von Gerrit89

Da is leider kein Unterschied zu vorher :(

Zitat:

WS_EX_TRANSPARENT
Specifies that a window created with this style should not be painted until siblings beneath the window (that were created by the same thread) have been painted. The window appears transparent because the bits of underlying sibling windows have already been painted.

To achieve transparency without these restrictions, use the SetWindowRgn function.

Versteh ich nich so ganz ...

//Edit: Gibts auch sowas wie AutoSize fürn STATIC?

dort steht in etwa das zuerst der Untergrund gemalt wird und danach erst dann das Fenster. Dadurch hast du den Untergrund von dem Fenster darunter.

[Rastaman]

Ich merk schon, das wird nix ^^
Dann muss ich eben wissen, was man bei TWndClassEx beim Brush angeben muss, um die Windows Standardfarbe für 3D Objekte zu bekommen.
COLOR_BTNFACE is dunkelblau und COLOR_APPWORKSPACE is braun.
Normalerweise sind meine Fenster Hell Grau und die MDI BGs sind dunkel Grau.
Was muss ich da denn angeben :gruebel:

//Edit: Grad rausgefunden: COLOR_BTNSHADOW ergibt bei mir die Standardfarbe für Fenster. Kann das sein?

[Olli]

Häh? Was soll der Quark denn hier im Thema :lol:

Das Ding ist doch schon "transparent", es sei denn du änderst die Farbe. In diesem Fall nimmste WM_CTLCOLORSTATIC ;) ... Wenn es wieder eines Beispiels bedarf, gib mal kurz deinen aktuellen Source.

Zitat:

Zitat von Gerrit89

Ich merk schon, das wird nix ^^
Dann muss ich eben wissen, was man bei TWndClassEx beim Brush angeben muss, um die Windows Standardfarbe für 3D Objekte zu bekommen.
COLOR_BTNFACE is dunkelblau und COLOR_APPWORKSPACE is braun.
Normalerweise sind meine Fenster Hell Grau und die MDI BGs sind dunkel Grau.
Was muss ich da denn angeben :gruebel:

//Edit: Grad rausgefunden: COLOR_BTNSHADOW ergibt bei mir die Standardfarbe für Fenster. Kann das sein?

:wall: die genannten Werte sind Indeces deren Farbwerte (RGB) man mit GetSysColor herausbekommt.

[Luckie]

Zitat:

Zitat von Gerrit89

COLOR_BTNFACE is dunkelblau und COLOR_APPWORKSPACE is braun.
Normalerweise sind meine Fenster Hell Grau und die MDI BGs sind dunkel Grau.
Was muss ich da denn angeben :gruebel:

aber nur, wenn du es so eingestellt hast, bzw. eine entsprechende Theme verwendest,

Zitat:

//Edit: Grad rausgefunden: COLOR_BTNSHADOW ergibt bei mir die Standardfarbe für Fenster. Kann das sein?

Eigentlich nicht. Wie der Name schon sagt, hndelt es sich dabei um die Schattenfarbe der Schaltfläche für den 3D Effekt.

Unter Wiondows 2000 müsste es so aussehen:

Delphi-Quellcode:

  wc: TWndClassEx = (
    cbSize: SizeOf(TWndClassEx);
    Style: CS_HREDRAW or CS_VREDRAW;
    lpfnWndProc: @WndProc;
    cbClsExtra: 0;
    cbWndExtra: 0;
    hbrBackground: COLOR_APPWORKSPACE;
    lpszMenuName: nil;
    lpszClassName: ClassName;
    hIconSm: 0;
    );

Das ergibt das normale Fenstergrau von Windows.

[Rastaman]

Zitat:

Zitat von Olli

Das Ding ist doch schon "transparent", es sei denn du änderst die Farbe. In diesem Fall nimmste WM_CTLCOLORSTATIC :Wink:

Ach ja :wall:

Zitat:

Zitat von Olli

:wall: die genannten Werte sind Indeces deren Farbwerte (RGB) man mit Suche im Microsoft Developers NetworkGetSysColor herausbekommt.

Wussti net :)

[NicoDE]

Zitat:

Zitat von Luckie

Delphi-Quellcode:

hbrBackground: COLOR_APPWORKSPACE;

Das ergibt das normale Fenstergrau von Windows.

Nope, das ergibt die Farbe des inaktiven Fensterrandes (COLOR_APPWORKSPACE = COLOR_INACTIVEBORDER + 1).

Zitat:

hbrBackground

Identifies the class background brush. This member can be a handle to the physical brush to be used for painting the background, or it can be a color value. A color value must be one of the following standard system colors (the value 1 must be added to the chosen color).

Korrekt wäre also COLOR_BTNFACE + 1.

[Luckie]

Also bei mir (Windows 2000) macht das keinen Unterschied. :gruebel:

[NicoDE]

Zitat:

Zitat von Luckie

Also bei mir (Windows 2000) macht das keinen Unterschied. :gruebel:

Weil für beide standardmäßig der gleiche Farbwert eingestellt ist...

[D4rk4ng3l_md]

Hi,

hmm, schon 'n bissel alt das Thema, hab aber noch einen Lösungsvorschlag, der eigentlich immer funktionieren sollte.

Delphi-Quellcode:

    WM_CTLCOLORSTATIC:
      begin
        SetBkMode(wParam, TRANSPARENT);
        SelectObject(wParam, GetStockObject(NULL_BRUSH));
      end;

Das ganze kann man dann noch via GetCDlgtrlID(lParam) nur auf bestimmte Statics anwenden.

Gruß D4rk4ng3l Stefan