Bild in StatusBar

[Yheeky]

Hi,

wie bekomme ich ein Bild in eine StatusBar? Habe keine Möglichkeit gefunden.

Gruß Yheeky

[oki]

Panel kreieren, OwnerDraw setzen, im Ereignis OnDraw Bild aus einer ImageListe auf Canvas zeichnen.

Mußte leider kurz machen, schau Montag wieder rein.

Hab doch noch schnell eigenen Code gefunden

Delphi-Quellcode:

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
var Index : Integer;
begin
  with StatusBar1.Canvas do begin
    IF Panel = Statusbar1.Panels[1] then begin
      IF FCommActiv then Index := 4 else Index := 9;
    end;
    IF Panel = Statusbar1.Panels[2] then begin
      IF FDispActiv then Index := 1 else Index := 6;
    end;
    IF Panel = Statusbar1.Panels[3] then begin
      IF FKonfActiv then Index := 2 else Index := 7;
    end;
    IF Panel = Statusbar1.Panels[4] then begin
      IF FServActiv or FServIPActive then Index := 0 else Index := 5;
    end;
    ImageList1.Draw(StatusBar1.Canvas,Rect.Left,Rect.Top, Index);
  end;
end;

Den Schmuß mit if usw. ist eigener kram und muß Dich nicht kümmern. Der entscheidende Teil ist
ImageList1.Draw(StatusBar1.Canvas,Rect.Left,Rect.Top, Index); gruß oki

[CalganX]

Neue Komponente entwickeln.
Ich habe mal eine gemacht. Allerdings ist hier eine andere Möglichkeit, da ich derzeit nich von zu Hause aus schreibe:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ProgressBar1.Parent := StatusBar1;
  ProgressBar1.Left := {wie weit von links in der Statusbar entfernt};
  ProgressBar1.Top := 1; 
end;

Chris

[Yheeky]

Danke, hat geklappt!

Gruß Yheeky