Fórum Transformar bitmap em icone #293090
25/08/2005
0
Seria possivel Transformar um bitmap(*.bmp) em um icone(*.ico) ?
tenho uma rotina que transforma icone em bitmap:
VAR
Pic : TPicture;
TI : TIcon;
BEGIN
TI := TIcon.Create;
TI.Handle := ExtractIcon(Handle,PChar(´C:\Windows\calc.exe´),0);
Pic := TPicture.Create;
Pic.Icon := TI;
Image1.Picture := Pic;
BitBtn1.Glyph := TBitmap.Create;
WITH BitBtn1.Glyph DO
BEGIN
width := TI.Width;
Height := TI.Height;
Canvas.Draw(0, 0, Pic.Icon);
END;
eu queria fazer exatamente o inverso, e salvar o icone criado.
como faço isso ????
tenho uma rotina que transforma icone em bitmap:
VAR
Pic : TPicture;
TI : TIcon;
BEGIN
TI := TIcon.Create;
TI.Handle := ExtractIcon(Handle,PChar(´C:\Windows\calc.exe´),0);
Pic := TPicture.Create;
Pic.Icon := TI;
Image1.Picture := Pic;
BitBtn1.Glyph := TBitmap.Create;
WITH BitBtn1.Glyph DO
BEGIN
width := TI.Width;
Height := TI.Height;
Canvas.Draw(0, 0, Pic.Icon);
END;
eu queria fazer exatamente o inverso, e salvar o icone criado.
como faço isso ????
Fabiano Góes
Curtir tópico
+ 0
Responder
Posts
01/11/2005
Crcam
var
Icon : TIcon; Bitmap : TBitmap;
begin
Icon := TIcon.Create; Bitmap := TBitmap.Create;
Icon.LoadFromFile(´c:\picture.ico´);
Bitmap.Width := Icon.Width;
Bitmap.Height := Icon.Height;
Bitmap.Canvas.Draw(0, 0, Icon );
Bitmap.SaveToFile(´c:\picture.bmp´);
Icon.Free; Bitmap.Free; end;
Icon : TIcon; Bitmap : TBitmap;
begin
Icon := TIcon.Create; Bitmap := TBitmap.Create;
Icon.LoadFromFile(´c:\picture.ico´);
Bitmap.Width := Icon.Width;
Bitmap.Height := Icon.Height;
Bitmap.Canvas.Draw(0, 0, Icon );
Bitmap.SaveToFile(´c:\picture.bmp´);
Icon.Free; Bitmap.Free; end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)