Duyuruyu Kapat
Facebook Gözat
Twitter Gözat

BMP to ICO #KAYNAK#

Konu, 'Pascal / Delphi / Delphi.NET' kısmında hmustak tarafından paylaşıldı.

  1. hmustak

    hmustak PersianBulls

    Kayıt:
    29 Mayıs 2002
    Mesajlar:
    4,607
    Beğenilen Mesajlar:
    0
    Meslek:
    BT/QA
    Şehir:
    Persian
    procedure bmp2ico(Image: TImage; FileName: TFilename);
    var
    Bmp: TBitmap;
    Icon: TIcon;
    ImageList: TImageList;
    begin
    Bmp := TBitmap.Create;
    Icon := TIcon.Create;
    try
    Bmp.Assign(Image.Picture);
    ImageList := TImageList.CreateSize(Bmp.Width, Bmp.Height);
    try
    ImageList.AddMasked(Bmp, Bmp.TransparentColor);
    ImageList.GetIcon(0, Icon);
    // Save it to a file
    Icon.SaveToFile(FileName);
    finally
    ImageList.Free;
    end;
    finally
    Bmp.Free;
    Icon.Free;
    end;
    end;

    procedure TForm1.Button1Click(Sender: TObject);
    begin
    bmp2ico(Image1, 'c:\ceviz.ico');
    end;