Syles in eigener Komponente verwenden.

[bernau]

Ich habe einige visuelle Komponenten selber Programmiert. Diese sind nachfahren von TGraphicControl.

Das Problem ist nun, dass bei Verwendung von Styles, diese Komponenten nicht mitgestyled werden. (Bei einem "schwarzen" Layout, bleiben meine Komponenten "weis")

Wie kann ich beim "neu zeichnen" herausfinden welche Hintergrundfarbe ein gestyltes z.B. TEdit hat. Ich könnte in der Komponente natürlich "versteckt" ein TEdit erzeugen und dort die Farbe auslesen. Das ist aber wohl nicht der Sinn der Sache.

[Whookie]

Wenn es nur um Farben geht mache ich das in etwa so:

Delphi-Quellcode:

  { Set the color of label text }
  if (StyleServices.Enabled) And (seFont In StyleElements) then
  begin
    if not Enabled then
      Canvas.Font.Color := StyleServices.GetStyleFontColor(sfWindowTextDisabled)
    else
      Canvas.Font.Color := StyleServices.GetStyleFontColor(sfWindowTextNormal);
  end
  else
  begin
    if not Enabled then
      Canvas.Font.Color := clGrayText
    else
      Canvas.Font.Color := iColr;
  end;

  Canvas.TextOut(xo+CDO, yo+CDO, Text);

Für alles andere bieten die StyleServices natürlich auch Funktionen und Konstanten (zu finden in Vcl.Themes.pas).