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

Вниз

Где ошибка(drawicon)!   Найти похожие ветки 

← →
Magician   (2004-01-02 15:44) [0]

DrawIcon(Image1.Canvas.Handle,0,0,ExtractIcon(0,"c:\temp\1.txt",0));

файл существует, может не правильно указан параметр в Extracticon(первый)

Спасибо за помощь

---

← →
Rouse_   (2004-01-02 16:39) [1]

А может

uses ... ShellAPI;

...

ExtractAssociatedIcon()

Желаю успехов

---

← →
Magician   (2004-01-02 17:21) [2]

Спасибо, но это я уже сделал, не помогло

---

← →
default   (2004-01-02 17:34) [3]


uses ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
var
i: Byte;
begin

i := 0;
if OpenDialog1.Execute then
while DrawIcon(Canvas.Handle, i * 50, 10,
ExtractIcon(0, PChar(OpenDialog1.FileName), i)) do
Inc(i);

end;


---

← →
Tahion2   (2004-01-02 20:27) [4]

а разве в текстовом файле хранится иконка, чтоб ее рисовать?

Попробуй для ico файлов свой код. Должно работать...

---

← →
jack128   (2004-01-02 20:38) [5]

> Magician (02.01.04 15:44)

Внимательно перечитываем вот эту ветку http://delphimaster.net/view/1-1073030587/
вплодь до достижения нирваны ;-)

---

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

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

Наверх

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