unit1.pas

Delphi7应用编程150例附书源码.rar

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtDlgs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    btnOpen: TButton;
    OpenPictureDialog1: TOpenPictureDialog;
    SavePictureDialog1: TSavePictureDialog;
    btnSave: TButton;
    procedure btnOpenClick(Sender: TObject);
    procedure btnSaveClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Bitmap:TBitmap;
  Ico:TIcon;

implementation

{$R *.dfm}

procedure TForm1.btnOpenClick(Sender: TObject);
begin
    if OpenPictureDialog1.Execute then
    begin
        Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
        Ico.LoadFromFile(OpenPictureDialog1.FileName);
    end;
end;

procedure TForm1.btnSaveClick(Sender: TObject);
begin
    if SavePictureDialog1.Execute then
    begin
       Bitmap.Height:=Ico.Height;
       Bitmap.Width:=Ico.Width;
       Bitmap.Canvas.Draw(0,0,ico);
       Bitmap.SaveToFile(SavePictureDialog1.FileName);
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    Bitmap:=TBitmap.Create;
    Ico:=TIcon.Create;
    self.OpenPictureDialog1.Filter:='Ico files(*.ico)|*.ico';
    self.SavePictureDialog1.Filter:='Bmp files(*.bmp)|*.bmp';    
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
    Bitmap.Free;
    Ico.Free;
end;

end.