Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.28;
Скачать: [xml.tar.bz2];




Вниз

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




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.28;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.028 c
14-90640          Knight                2002-01-12 13:22  2002.02.28  
Глюки Винды не толькоменя наверное достали но и остальных пользователей Вин98...


1-90573           chelobaka             2002-02-11 17:04  2002.02.28  
Делал проект под win2000, перенес на 98 - не работает. Помогите советом, плс.


1-90625           tovSuhov              2002-02-12 07:52  2002.02.28  
Ограничения на размер битмапа...


7-90677           PEC2                  2001-11-26 09:05  2002.02.28  
Подскажите


3-90471           Alex_C                2002-02-02 18:00  2002.02.28  
Помогите!!! Необходимо ДОБАВИТЬ СТОЛБЕЦ к существующей базе данных (мучаюсь третий день, задача вроде простая, а уперся и все тут)!