Pascal Project Manager & Editor

[Harry Stahl]

Warum diese Auffälligkeit bei der Zeichnung des Headers ist, ist mir ein Rätselt:

Sieht doch eigentlich alles korrekt aus, oder ? :

Delphi-Quellcode:

procedure TMainForm.hProjsDrawSection(HeaderControl: THeaderControl; Section: THeaderSection; const Rect: TRect; Pressed: Boolean);
begin
  if Section.Text = 'BAL' then
    Headercontrol.canvas.brush.color := $00C4C4FF;

  if Section.Text = 'PRG' then
    Headercontrol.canvas.brush.color := $00A6D2FF;

  if Section.Text = 'REV' then
    Headercontrol.canvas.brush.color := $00C4FFFF;

  if Section.Text = 'DON' then
    Headercontrol.canvas.brush.color := $00E1FFE1;

  if (Section.Text = 'ToDo')
  or (Section.Text = 'Bugs')
  or (Section.Text = 'Feat.')
  then begin
    Headercontrol.canvas.brush.color := clWebDarkSeaGreen;
  end;

  HeaderControl.canvas.fillrect (rect);

  var ar := rect;
  DrawText (HeaderControl.Canvas.handle, pchar (section.text), -1, ar, DT_VCENTER+DT_CENTER + DT_SINGLELINE);
end;