Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.01.16;
Скачать: CL | DM;

Вниз

Где ошибка(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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.02 c
14-49681
Goblin
2003-12-26 12:15
2004.01.16
В паскале нет функции копирования файлов?


14-49721
-=spider=-
2003-12-25 12:05
2004.01.16
NetSearch как поставить?


14-49700
Rafe
2003-12-25 18:49
2004.01.16
Италия очень напоминает Россию :)


1-49613
TUser
2004-01-05 07:49
2004.01.16
Trace hook


1-49545
gestern
2004-01-01 17:12
2004.01.16
TForm