Текущий архив: 2002.02.28;
Скачать: CL | DM;
Вниз
Как в StatusBar вывести иконку? Найти похожие ветки
← →
kserg@ukr.net (2002-02-11 11:45) [0]Если можно - поясните в примере.
Спасибо
← →
Виктор Щербаков © (2002-02-11 12:01) [1]Создаешь на статусбаре новую панель.
Ставишь ей свойство Style в psOwnerDraw.
Для события статусбара OnDrawPanel пишешь примерно такой обработчик:
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
begin
if Panel.Index = 0 then
begin
DrawIconEx(StatusBar1.Canvas.Handle, 2, 2, Application.Icon.Handle, 16, 16, 0, 0, DI_NORMAL);
end;
end;
← →
kserg@ukr.net (2002-02-11 12:40) [2]>Виктор Щербаков Спасибо.
Хочу уточнить Application.Icon это икона приложения - не так ли?
А как свою икону "подставить"?
← →
Виктор Щербаков © (2002-02-11 12:47) [3]
...
var MyIcon: TIcon;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
MyIcon := TIcon.Create;
MyIcon.LoadFromFile("C:\MyIcon.ico");
end;
и подставляй...
← →
kserg@ukr.net (2002-02-11 13:09) [4]>Виктор Щербаков
Уважаемый, извини за дотошность - просто это всё для незнакомо
и сам я буду вникать долго и нудно...
А как подставить икону, имеющейся в ImageList?
← →
Ura (2002-02-11 13:28) [5]ImageList.Add(BMP.Picture.Bitmap, nil);
← →
Виктор Щербаков © (2002-02-11 13:56) [6]Вместо DrawIconEx
используй ImageList.Draw
Страницы: 1 вся ветка
Текущий архив: 2002.02.28;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.012 c
