ExtractIcon - Общие вопросы Delphi

StartMis · 16.07.2010, 16:14

вот так получаю иконку Image1.Picture.Icon.Handle:= ExtractIcon(HInstance, OpenDialog1.FileName,0)" пытаюсь ее сохранить image1.Picture.SaveToFile. но сохраненая иконка теряеет качества как от этого исбавится что бы сохраняла как в image

Stilet · 16.07.2010, 16:34

А не лучше вместо Image создать обьект TIcon и с ним работать?

Код:

var i:TIcon;
begin
 i:=tIcon.Create;
 I.Handle:= ExtractIcon(HInstance, OpenDialog1.FileName,0);
 i.SaveToFile('f.ico');
 i:=nil;
end;

StartMis · 16.07.2010, 16:43

может и лучше но качество всеравно падает а нужно сохранить как есть

StartMis · 16.07.2010, 17:57

не ужели ни кто ни сталкивался с такой проблемой?

StartMis · 16.07.2010, 22:28

вот что то нашел http://delphiworld.narod.ru/base/save_32_ico.html но почемуто не работает. помогите ну ктонибудь. (а то у меня уже складывается впечтление что вы меня все игнорируете либо все мои вопросы и в прям сверх сложные)

StartMis · 17.07.2010, 14:38

всем кто пытался помочь огромнийшее спосибо что не откликнулись. справился сам.

Kotofff · 17.07.2010, 20:59

После таких слов обычно кодом делятся.

StartMis · 17.07.2010, 21:56

есть не достаток иконка 32х32 и цветов 255. щас пытаюсь убрать этот недостаток (если кому интересно прошу присоединяйтесь к устранению данной проблеммы ). а код (собственно что мне и надо было) прекрипил архиве

16.07.2010, 16:14	#1
StartMis Форумчанин Регистрация: 21.04.2008 Сообщений: 175	ExtractIcon сохранить иконку без потери качества вот так получаю иконку Image1.Picture.Icon.Handle:= ExtractIcon(HInstance, OpenDialog1.FileName,0)" пытаюсь ее сохранить image1.Picture.SaveToFile. но сохраненая иконка теряеет качества как от этого исбавится что бы сохраняла как в image Последний раз редактировалось StartMis; 16.07.2010 в 17:50.

16.07.2010, 16:34	#2
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	А не лучше вместо Image создать обьект TIcon и с ним работать? Код: `var i:TIcon; begin i:=tIcon.Create; I.Handle:= ExtractIcon(HInstance, OpenDialog1.FileName,0); i.SaveToFile('f.ico'); i:=nil; end;` I'm learning to live...

16.07.2010, 16:43	#3
StartMis Форумчанин Регистрация: 21.04.2008 Сообщений: 175	может и лучше но качество всеравно падает а нужно сохранить как есть Последний раз редактировалось StartMis; 16.07.2010 в 16:50.

17.07.2010, 14:38	#6
StartMis Форумчанин Регистрация: 21.04.2008 Сообщений: 175	всем кто пытался помочь огромнийшее спосибо что не откликнулись. справился сам. Последний раз редактировалось StartMis; 17.07.2010 в 18:46.

17.07.2010, 20:59	#7
Kotofff Участник клуба Регистрация: 11.01.2009 Сообщений: 1,917	После таких слов обычно кодом делятся. "Заряженному танку в дуло не смотрят" @Dekmer in WoT

16.07.2010, 17:57	#4
StartMis Форумчанин Регистрация: 21.04.2008 Сообщений: 175	не ужели ни кто ни сталкивался с такой проблемой?

16.07.2010, 22:28	#5
StartMis Форумчанин Регистрация: 21.04.2008 Сообщений: 175	вот что то нашел http://delphiworld.narod.ru/base/save_32_ico.html но почемуто не работает. помогите ну ктонибудь. (а то у меня уже складывается впечтление что вы меня все игнорируете либо все мои вопросы и в прям сверх сложные)