Как в StatusBar вывести иконку?

← →
kserg@ukr.net (2002-02-11 11:35) [0]

Спасибо

← →
Desdechado © (2002-02-11 13:56) [1]

например, так: procedure TfrmEdTermFeeding.feedStatusDrawPanel( StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect ); var nImg: Integer; begin StatusBar.Canvas.FillRect( Rect ); ImageList2.Draw( StatusBar.Canvas, Rect.Left, Rect.Top, 3 ); end;

← →
kserg@ukr.net (2002-02-11 15:03) [2]

>Desdechado - уважаемый, всё сделал как у тебя, но иконка не рисуется... Что я не так делаю?

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
begin
ImageList1.Draw( StatusBar.Canvas, Rect.Left, Rect.Top, 3 );
StatusBar.Canvas.FillRect( Rect );
end;

← →
kserg@ukr.net (2002-02-11 15:06) [3]

Нашел в хэлпе пример: перенёс, повторил, всё одно не работает...

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;

Panel: TStatusPanel; const Rect: TRect);
begin
with StatusBar1.Canvas do begin
Brush.Color := clRed;
FillRect(Rect);
Font.Color := clYellow;
ImageList1.Draw(StatusBar1.Canvas,Rect.Left,Rect.Top,Panel.Index);
TextOut(Rect.left + 30, Rect.top + 2, "Panel" + IntToStr(Panel.Index));
end;
end;

← →
Юрий Жуков © (2002-02-11 15:51) [4]

Сделай себе компонет на который можно будет все что угодно положить
Например так:

unit AdvStatusBar;

interface

uses ComCtrls, Classes, Controls, Consts;

type
TAdvStatusBar = class(TStatusBar)
public
constructor Create(AOwner: TComponent); override;
end;

procedure Register;

implementation

constructor TAdvStatusBar.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
ControlStyle := ControlStyle + [csAcceptsControls, csOpaque];
end;

procedure Register;
begin
RegisterComponents("IR", [TAdvStatusBar]);
end;

end.

← →
kserg@ukr.net (2002-02-11 16:37) [5]

> Юрий Жуков А что же так сложно?..

Хм, да куда уж проще - в компоненте добавлена всего одна строчка кода, если ты заметил

похоже, ты забыл в панели статус-бара поставить psOwnerDraw

← →
kserg@ukr.net (2002-02-12 12:51) [8]

>Desdechado точно. Куда мои глаха глядели?
Всё заработало.
Извините за беспокойство...

Как в StatusBar вывести иконку? Найти похожие ветки