THeaderControl und THeaderSection in anderer Farbe

[torud]

Hallo Wissende!

Ich habe das Anliegen, dass ich gern meine THeaderControl und ihre Sections in einer eigenen Farbe darstellen will. Nun habe ich bereits versucht über die HeaderControl mit Brush die Farbe zu ändern. Allerdings nur mit mäßigem Erfolg, da die Farbe nur dort verwendet wird, wo keine Sections sind. Gibt es überhaupt die Möglichkeit alles in eigener Farbe anzeigen zu lassen? Derzeit ist alles in dezentem Grau!

[Bernhard Geyer]

Selber zeichnen (Style = hsOwnerDraw)

[torud]

Hallo Bernhard!

Ich habe schon gesehen, dass es bei den Sections die Eigenschaft hsOwnerDraw gibt.

Ich habe nun mal folgendes gemacht:

Delphi-Quellcode:

procedure Tnew_editor.HeaderControl1DrawSection(
  HeaderControl: THeaderControl; Section: THeaderSection;
  const Rect: TRect; Pressed: Boolean);
begin
        with Section do
          begin
            Color := clblue;
            Font.Color:=clblack;
          end;
end;

Und da die HeaderControl dynamisch erzeugt wird, habe ich nur die Procedure übergeben, aber es funktioniert nicht so recht.

Delphi-Quellcode:

    //erzeugen eines head-controls
    myHeadC:=THeaderControl.Create(self);
    myHeadC.Align:=alTop;
    myHeadC.Parent:=ScrollBox1;
    myHeadC.Brush.Color:=$009FECFF;
    myHeadC.Font.Color:=clBlack;
    myHeadC.Style:=hsFlat;
    myHeadC.OnDrawSection:=HeaderControl1DrawSection(myHeadC,mySec,);

Also die Sections haben in meinem Beispiel die Farbe $009FECFF aber die Schrift darauf ist nicht mehr zu lesen. Warum nur?