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

Вниз

Image, путь к иконке   Найти похожие ветки 

← →
P0tia ©   (2003-11-04 12:21) [0]

Как узнать путь к иконке.


procedure TForm3.Image47Click(Sender: TObject);
begin
image48.Picture.LoadFromFile(ExtractFilePath(ParamStr(0))+"./icon/72/16.ico");
end;

procedure TForm3.Button12Click(Sender: TObject);
begin
LabeledEdit1.Text := Image48.Picture. //??? но мне нужно изменить паку с 72 на 48
end;

---

← →
ZEE ©   (2003-11-04 12:26) [1]

надо сохранять путь+файл где нить еще, т.к. после загрузки они в самом Image не известны...

---

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

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

Наверх

Память: 0.46 MB
Время: 0.036 c