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???