Icon Maker

unit iTekIconMaker;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

ExtDlgs, StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

icon: TImage;

OpenPic: TButton;

Open: TOpenPictureDialog;

Save: TSavePictureDialog;

Button1: TButton;

Button2: TButton;

Button3: TButton;

procedure OpenPicClick(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.OpenPicClick(Sender: TObject);

begin

if open.execute then

icon.picture.loadfromfile(open.filename);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

if Save.Execute then

icon.picture.SaveToFile(Save.FileName);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

close;

end;

procedure TForm1.Button3Click(Sender: TObject);

var

Text : String;

Caption : String;

begin

Text := 'Coded By Justin Skidmore (iTek Productions)';

Caption := 'iTek iCon Maker';

MessageBox (0, PChar(Text), PChar(Caption), 0)

end;

end.