Var
Pic : TPicture;
TI : TIcon;
begin
TI := TIcon.Create;
TI.Handle := ExtractIcon(HInstance, FileNameBuf, 0);
Pic := TPicture.Create;
Pic.Icon := TI;
Image1.Picture := Pic; {TImage}
BitBtn1.Glyph := TBitmap.Create;
with BitBtn1.Glyph do
begin
width := TI.Width;
Height := TI.Height;
Canvas.Draw(0, 0, Pic.Icon);
end;
end;
Assinar:
Postar comentários (Atom)
Nenhum comentário:
Postar um comentário