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?