Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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



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

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

Наверх




Память: 0.45 MB
Время: 0.004 c
1-90616
Tadeush
2002-02-12 05:49
2002.02.28
ошибка во времени создания файла


4-90716
NetBreaker666
2002-01-02 14:09
2002.02.28
Каким образом отключить курсор мышки ?


6-90632
vsu
2001-12-12 21:52
2002.02.28
e-mail из консольного приложения


4-90706
Death
2001-12-27 02:02
2002.02.28
XPDesign


1-90574
Beer
2002-02-11 15:06
2002.02.28
Вид QRLabel в QReport





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский