hi!
hab in meiner TStatusBar icons angezeigt, mit dem "bekannten code" (canvas usw). jetz passiert es allerdings, dass manchmal einfach item sauf meinem TMainMenu auf die Panels 1,2 und 3 gezeichnet werden, wenn ich den task wechsle
wieso passiert das und wie kann ich das verhindern?
der code für die icons ist:
Delphi-Quellcode:
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
begin
if (Statusbar = StatusBar1) then begin
if (Panel.DisplayName = 'Network') then begin
Imagelist1.Draw(StatusBar1.Canvas,Rect.Left,Rect.Top,0);
StatusBar.Canvas.Textout(Rect.Left+20, Rect.top, spanel[0]);
end else if (Panel.DisplayName = 'Nickname') then begin
Imagelist1.Draw(StatusBar1.Canvas,Rect.Left,Rect.Top,1);
StatusBar.Canvas.Textout(Rect.Left+20, Rect.top, spanel[1]);
end else if (Panel.DisplayName = 'Lag') then begin
Imagelist1.Draw(StatusBar1.Canvas,Rect.Left,Rect.Top,2);
StatusBar.Canvas.Textout(Rect.Left+20, Rect.top, spanel[2]);
end else if (Panel.DisplayName = 'Status') then begin
Imagelist1.Draw(StatusBar1.Canvas,Rect.Left,Rect.Top,3);
StatusBar.Canvas.Textout(Rect.Left+20, Rect.top, spanel[3]);
end; end;
end;