Icones
Alguem conhece um programa bom pra criação de icones com varias cores, pois o que vem com o delphi noa presta, só utiliza 16 cores e os icones de hoje pelo menos estão usando 256 cores, por favor agradeço a atenção
Anderson Silva
Curtidas 0
Respostas
Anonymous
18/03/2003
O melhor programa para isso chama-se
Microangelo
É só procurar no google, ele possui versão shareware, nada que não possa ser retirado.
Microangelo
É só procurar no google, ele possui versão shareware, nada que não possa ser retirado.
GOSTEI 0
Anonymous
18/03/2003
O Microangelo eh o melhor mesmo.. mas ele eh muito gde... Eu uso o ArtIcons, pq exporto mais ícones...
procura em www.superdownloads.com.br
q vc acha ele c quiser
procura em www.superdownloads.com.br
q vc acha ele c quiser
GOSTEI 0
Anonymous
18/03/2003
Pegue esse codigo e faça seu proprio programa
T+
Emilio
Como converter Bitmap em ícone
procedure TForm1.Button1Click(Sender: TObject);
var iconinfo: TIconInfo;
IconX, IconY: integer;
Icon : TIcon;
Bitmap, Mask : TBitmap;
begin
IconX := GetSystemMetrics(SM_CXICON);
IconY := GetSystemMetrics(SM_CYICON);
Icon := TIcon.Create;
Bitmap := TBitmap.Create;
Mask := TBitmap.Create;
BitMap.Width:=IconX;
BitMap.Height:=IconY;
Mask.Width:=IconX;
Mask.Height:=IconY;
Mask.Monochrome:=true;
BitMap.Canvas.Draw(0,0,Image1.Picture.BitMap);
Mask.Canvas.Draw(0,0,Image1.Picture.BitMap);
with iconinfo do begin
fIcon:=true;
xHotspot:=0;
yHotspot:=0;
hbmMask:=Mask.Handle;
hbmColor:=BitMap.Handle;
end;
Icon.Handle:=CreateIconIndirect(IconInfo);
Form1.Canvas.Draw(100,100, Icon);
Icon.SaveToFile(´D:\test.ico´);
Icon.Free;
Bitmap.Free;
Mask.Free;
end;
Autor: Rainer Kümmerle
T+
Emilio
Como converter Bitmap em ícone
procedure TForm1.Button1Click(Sender: TObject);
var iconinfo: TIconInfo;
IconX, IconY: integer;
Icon : TIcon;
Bitmap, Mask : TBitmap;
begin
IconX := GetSystemMetrics(SM_CXICON);
IconY := GetSystemMetrics(SM_CYICON);
Icon := TIcon.Create;
Bitmap := TBitmap.Create;
Mask := TBitmap.Create;
BitMap.Width:=IconX;
BitMap.Height:=IconY;
Mask.Width:=IconX;
Mask.Height:=IconY;
Mask.Monochrome:=true;
BitMap.Canvas.Draw(0,0,Image1.Picture.BitMap);
Mask.Canvas.Draw(0,0,Image1.Picture.BitMap);
with iconinfo do begin
fIcon:=true;
xHotspot:=0;
yHotspot:=0;
hbmMask:=Mask.Handle;
hbmColor:=BitMap.Handle;
end;
Icon.Handle:=CreateIconIndirect(IconInfo);
Form1.Canvas.Draw(100,100, Icon);
Icon.SaveToFile(´D:\test.ico´);
Icon.Free;
Bitmap.Free;
Mask.Free;
end;
Autor: Rainer Kümmerle
GOSTEI 0