Текущий архив: 2003.06.19;
Скачать: CL | DM;

Вниз

Иконка для файла   Найти похожие ветки 

← →
BDRON   (2003-06-05 15:10) [0]

Как можно загрузить иконку не только для формы, но и для самого файла приложения?

---

← →
Skier ©   (2003-06-05 15:17) [1]

Shift+Ctrl+F11|Application|Load Icon ?

---

← →
BDRON   (2003-06-05 15:23) [2]

>Skier © (05.06.03 15:17)

Известно, но мне нужно, чтобы при запуске иконка изменялась на ту, которая указана.

---

← →
Skier ©   (2003-06-05 15:26) [3]

Help читаешь вообще ?!

The following code allows the user to use a dialog box to redefine the icon for the application at run time. When the user clicks Button1, OpenDialog1 executes and the user specifies an icon filename. The Icon is then assigned to the application.


procedure TForm1.Button1Click(Sender: TObject);

var
Done: Boolean;
begin
OpenPictureDialog1.DefaultExt := GraphicExtension(TIcon);
OpenPictureDialog1.FileName := GraphicFileMask(TIcon);
OpenPictureDialog1.Filter := GraphicFilter(TIcon);
OpenPictureDialog1.Options := [ofFileMustExist, ofHideReadOnly, ofNoChangeDir ];
while not Done do
begin
if OpenPictureDialog1.Execute then
begin
if not (ofExtensionDifferent in OpenPictureDialog1.Options) then

begin
Application.Icon.LoadFromFile(OpenPictureDialog1.FileName);
Done := True;
end
else
OpenPictureDialog1.Options := OpenPictureDialog1.Options - ofExtensionDifferent;
end
else { User cancelled }
Done := True;
end;
end;


---

← →
BDRON   (2003-06-05 15:36) [4]

Так что же у меня код другой?

Iconica:=TIcon.Create;
Iconica.LoadFromFile("icon.ico");
Application.Icon:=Iconica;

---

← →
Skier ©   (2003-06-05 15:38) [5]

Application.Icon. Handle := Iconica. Handle;
И освободить не забудь !

---

← →
Stas ©   (2003-06-05 15:44) [6]

Это нужно в реестре прописывать.

---

← →
BDRON   (2003-06-05 15:45) [7]

К сожалению, не работает.

---

← →
Skier ©   (2003-06-05 15:51) [8]

> К сожалению, не работает.


Ну зачем же обманывать-то ?!

var
AIcon : TIcon;
begin
AIcon := TIcon.Create;
try
AIcon.LoadFromFile("Icon Path...");
Application.Icon.Handle := AIcon.Handle;
finally
AIcon.Free;
end; //try
end;

---

← →
Sandman25 ©   (2003-06-05 15:55) [9]

Application.Icon.LoadFromFile("icon.ico");

---

← →
BDRON   (2003-06-05 15:56) [10]

>Skier © (05.06.03 15:51)

Ну не знаю... Я уже отдельный проект для этого сделал. Все равно меняются только на форме и в таскбаре, а у самого файла - нет.

---

← →
Skier ©   (2003-06-05 15:58) [11]

> а у самого файла - нет.

У файла приложения (YourApplication.exe) ?

---

← →
Palladin ©   (2003-06-05 16:00) [12]

ты что имеешь в виду под "файл приложения"?

---

← →
BDRON   (2003-06-05 16:01) [13]

всмысле у exe-шника

---

← →
Palladin ©   (2003-06-05 16:02) [14]

F5 в эксплорере попробуй нажать

---

← →
Skier ©   (2003-06-05 16:03) [15]

>BDRON (05.06.03 16:01)
Понятно. Если в run-time, то никак.

---

← →
BDRON   (2003-06-05 16:05) [16]

>Palladin © (05.06.03 16:02)

Я к WinCommander"у привык, но от этого (F5) не легче.

---

← →
Palladin ©   (2003-06-05 16:07) [17]

:), тьфу, до меня доперло..
что бы поменять у файла тебе придется ресурс иконки заменить :)

---

← →
BDRON   (2003-06-05 16:07) [18]

>Skier © (05.06.03 16:03)

Вот и разобрались. Спасибо.

---

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

Текущий архив: 2003.06.19;
Скачать: CL | DM;

Наверх

Память: 0.5 MB
Время: 0.021 c