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




Вниз

Как запихать в exe мою иконку и загрузить ее в TIcon во время работы 


cypher   (2002-03-01 23:57) [0]

как проще сделать сабж ?



lipskiy   (2002-03-02 00:32) [1]

Проще всего - через ImageList.
Или подкомпилить ресурсом.



Anatoly Podgoretsky   (2002-03-02 11:31) [2]

Запихать как ресурс
Загрузить LoadIcon



cypher   (2002-03-02 16:31) [3]

>Anatoly Podgoretsky

А примерчика совершенно случайно нету?! =)



Song   (2002-03-02 16:52) [4]

Самое простое, запихать её в свойство TIcon формы, а потому оттуда брать. А если не нужно чтобы она была видна в заголовке формы изменить свойство формы на Dialog



cypher   (2002-03-03 00:06) [5]

На самом деле, моя программа создает иконку в трее, а потом в зависимости от статуса, меняет эту иконку на какую-нить другую, мож у кого есть компонент TRAY, который умеет загрузать несколько иконок, а дальше тока вибирать их по номеру?!



cypher   (2002-03-03 00:12) [6]

вот, а как бороться с ошибкой "Unsuppoted 16bit resource"



Song   (2002-03-03 10:12) [7]

Мне вот так больше понравилось. Передаёшь в процедуру чего тебе нужно сделать(1 - добавить, 2 - удалить, 3 - изменить), и иконку.
Например, поменять ту что у тебя есь на другю вот так: Ic(3,Form5.Icon);
Если иконок много сделай TImageList и доставай их оттуда передавай параметром в процедеру.

Procedure TForm1.Ic(n:Integer;Icon:TIcon);
Var Nim:TNotifyIconData;
begin
With Nim do
Begin
cbSize:=SizeOf(Nim);
Wnd:=Form1.Handle;
uID:=1;
uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;
hicon:=Icon.Handle;
uCallbackMessage:=wm_user+1;
szTip:="Tip";
End;
Case n OF
1: Shell_NotifyIcon(Nim_Add,@Nim);
2: Shell_NotifyIcon(Nim_Delete,@Nim);
3: Shell_NotifyIcon(Nim_Modify,@Nim);
End;
end;




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




Наверх





Память: 0.72 MB
Время: 0.013 c
1-57348           iea                   2002-03-04 11:02  2002.03.18  
Как обновить содержимое Form2 из Form1


3-57331           boogier               2002-02-18 18:06  2002.03.18  
Как заставить ADO использовать индексы


1-57351           Georg                 2002-03-04 16:16  2002.03.18  
DrawGrid


3-57293           Akhmadey              2002-02-18 20:05  2002.03.18  
Проблема с Master-Detail


4-57560           andersen              2002-01-15 21:40  2002.03.18  
Как узнать в Интернете я или нет?