Скачать: CL | DM;

Как в 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]

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

---

← →
Юрий Жуков ©   (2002-02-11 18:42) [6]

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

---

← →
Desdechado ©   (2002-02-12 10:40) [7]

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

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.006 c