ExtractIcon

← →
kukuikar © (2004-09-18 10:03) [0]

подскажите плиз
как избавиться от того что при извлечении иконки (ExtractIcon) из файла shell32.dll или из любой другой библиотеки XP, она становиться не такой как в DLL, т.е. количество цветов уменьшается и выглядит она страшно?

← →
Alx2 © (2004-09-18 10:23) [1]

>kukuikar © (18.09.04 10:03)
У меня нормально отображается. Может, тебе стоит код показать?

← →
kukuikar © (2004-09-20 09:07) [2]

прорисовка иконок происходит в TStringGrid.
Я наверное неточно сыормулировал вопрос:
прис охранении иконки в файл *.ico она теряет какое-то количество цветов и выглядит непотребно. А в стринг гриде она выглядит нормально, как и должна.

var
icons: TStringGrid;
DrawIcon: TMenuItem;
SaveIcon: TMenuItem;

procedure TForm1.DrawIconClick(Sender: TObject);
var
CurItem: longint;
pName: array [ 0..255 ] of char;
fName: string [ 13 ];
N: word;
IcoH: hIcon;
path: String;
FileLst: TStringList;
begin
GetDir(0, path);
CurItem:=0;
if OpenDialog1.Execute then
begin
fName:=ExtractFileName(OpenDialog1.Filename);
StrPCopy ( pName, OpenDialog1.Filename );
N := 0;
with Icons do
repeat
IcoH := ExtractIcon ( hInstance, pName, N );
if IcoH > 1 then
begin
Col := CurItem MOD ColCount;
if ( CurItem DIV ColCount ) >= RowCount then
RowCount := RowCount + 1;
Row := CurItem DIV ColCount;
Cells [Col,Row] := Format("#%d",[CurItem+1]);
Objects [ Col, Row ] := TIcon.Create;
with Objects [ Col, Row ] AS TIcon do
Handle := IcoH;
CurItem := CurItem + 1;
Inc ( N );
end;
until IcoH <= 1;
end;
end;

....

procedure TForm1.SaveIconClick(Sender: TObject);
begin
if SaveDialog1.Execute then
with Icons do
with Objects [Col, Row] AS TIcon do
SaveToFile(SaveDialog1.Filename);
end;

← →
kukuikar © (2004-09-20 09:12) [3]

← →
kukuikar © (2004-09-20 10:11) [4]

что никто не хочет помочь?

Удалено модератором
Примечание: Не надо флудить.

Может, проблема в сохранении? Посмотри, как сохраняется иконка, насколько я помню - в Дельфёвых компонентах есть какое-то ограничение на 16 цветов, но неуверен.
В лющем, исходники тебе доступны - ищи и да обрящеши!

ExtractIcon Найти похожие ветки