Форум: "Базы";
Текущий архив: 2002.03.11;
Скачать: [xml.tar.bz2];
ВнизКак в 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 вся ветка
Форум: "Базы";
Текущий архив: 2002.03.11;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.005 c