Statusbar Draw-Procedure aufrufen?

[torud]

Hallo!

Danke für die Antwort, aber wie schon in meiner Anfrage zu sehen war, hatte ich den Code auch schon im OnDraw-Ereignis stehen.

Ich habe den Code nun etwas vereinfacht und setze im Parser eine globale Variable (img_idx_parser), die dann dem InfoBild in der Imagelist entspricht.

Delphi-Quellcode:

procedure TMainForm.Status_ParserDrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
    Image_Parser.Draw(Status_Parser.Canvas,Rect.Left,Rect.Top, img_idx_parser);
end;

Ich möchte im Panel null dass infobild anzeigen und im Panel 1 den Infotext dazu. Der Style von Panel 0 steht auf psOwnerDraw. Leider funktioniert es nicht. Folgendes mache ich in der Routine, wo ich den Infotext setze:

Delphi-Quellcode:

      if not ParserError then
        begin
          CompareElements;
          img_idx_parser:=6;
          Status_Parser.panels[1].Text:='Keine Fehler gefunden!';
        end
      else
        begin
          img_idx_parser:=7;
          Status_Parser.Panels[1].Text:='Fehler gefunden!';
        end;

Ist hier ein Fehler vorhanden??? Was mache ich denn nur Falsch??? Das komische ist, wenn ich im Panel 1 den Style auf psOwnerDraw setze, dann bekomme ich in diesem Panel nicht mehr meinen Infotext, dafür aber das korrekte Image angezeigt. Sehe ich den Wald vor lauter Bäumen nicht???