ИЗМЕНИТЬ РАЗМЕР ЗНАЧКА!

← →
Maxim Pshevlotsky (2003-08-22 16:29) [0]

Народ, помогите плиз! Кто знаить как размер значка(TIcon) изменить программно. Очень надо!

← →
jonni © (2003-08-22 16:31) [1]

esli nuzhno prosto risovat" s lyubim razmerom to DrawIconEx

← →
Maxim Pshevlotsky (2003-08-22 16:52) [2]

jonni © (22.08.03 16:31) [1]

Нужно значок размером 32Х32 "сжать" до 16Х16

← →
jonni © (2003-08-22 17:05) [3]

сжать ....... что же это значит????
нарисоать как 16х16 или реально как то перебрать пиксели и сделать 16х16....... что дальше хотите делать потом??

если рисовать 16x16 то DrawIconEx(Parent.Canvas.Handle, xLeft, yTop, hIcon, 16, 16, 0, 0, DI_NORMAL);

← →
Maxim Pshevlotsky (2003-08-22 17:42) [4]

Тогда если можно из выше сказанного вытекает ниже следующее:

Как из ф.-и ExtractAssociatedIcon получить значок 16Х16, а то извлекается значок размером 32Х32 а если изменять его размер программно(DrawIconEx) то значок искажается :(((

tak bi davno skazalibi
vot naprimer est" variant:

rabotaet dlya vsego (papki... faili... yarliki...itd)
FileName<-sootvetstvenno to ot chego nuzhna ikonka.....
Size<- esli menshe 32 to izvlekaetsya kak vidno malen"kauya ikonka 16x16
esli bol"she sootvetstevvno..32x32...
Canvas<- tokuda risovat".......esli nado
uses ShellAPI;

procedure TForm1.DrawIcon(FileName : String; Canvas:TCanvas; Size: Integer);
var
FileInfo: TSHFileInfo;
begin
if Size<32 then
begin
SHGetFileInfo(PChar(FileName),
0,
FileInfo,
SizeOf(FileInfo),
SHGFI_ICON or SHGFI_SMALLICON);
end
else
begin
SHGetFileInfo(PChar(FileName),
0,
FileInfo,
SizeOf(FileInfo),
SHGFI_ICON or SHGFI_LARGEICON);
end;
DrawIconEx(Canvas.Handle,0,0,FileInfo.hIcon, size, size,0, Canvas.Brush.Handle,DI_NORMAL);
end;

← →
Maxim Pshevlotsky (2003-08-22 18:07) [6]

ИЗМЕНИТЬ РАЗМЕР ЗНАЧКА! Найти похожие ветки