Class TForm1 (unit Jpgunit1)

Inherits from

TForm

Constructors



Functions

procedure Button1Click(Sender: TObject);

freemem(p,80);

procedure Button2Click(Sender: TObject);


procedure Button3Click(Sender: TObject);


procedure Button4Click(Sender: TObject);


procedure Button5Click(Sender: TObject);


procedure Button6Click(Sender: TObject);


procedure Delete1Click(Sender: TObject);

Delete the bitmap from hard drive and done!

procedure FormCreate(Sender: TObject);


procedure ListBox1DblClick(Sender: TObject);


procedure ListBox1KeyPress(Sender: TObject; var Key: Char);


procedure N121Click(Sender: TObject);


procedure N141Click(Sender: TObject);


procedure N181Click(Sender: TObject);


procedure Normal1Click(Sender: TObject);


procedure Rename1Click(Sender: TObject);


procedure Saveas1Click(Sender: TObject);


procedure X161Click(Sender: TObject);


procedure X21Click(Sender: TObject);


procedure X41Click(Sender: TObject);


Properties

Events

Variables

Button1 : TButton;


Button2 : TButton;


Button3 : TButton;


Button4 : TButton;


Button5 : TButton;


Button6 : TButton;


Delete1 : TMenuItem;


Image1 : TImage;


Label1 : TLabel;


ListBox1 : TListBox;


N121 : TMenuItem;


N141 : TMenuItem;


N181 : TMenuItem;


Normal1 : TMenuItem;


OpenDialog1 : TOpenDialog;


Panel1 : TPanel;


PopupMenu1 : TPopupMenu;


PopupMenu2 : TPopupMenu;


Rename1 : TMenuItem;


Saveas1 : TMenuItem;


SaveDialog1 : TSaveDialog;


ScrollBox1 : TScrollBox;


X161 : TMenuItem;


X21 : TMenuItem;


X41 : TMenuItem;



Constructors


Functions


procedure Button1Click(Sender: TObject);

freemem(p,80);


procedure Button2Click(Sender: TObject);


procedure Button3Click(Sender: TObject);


procedure Button4Click(Sender: TObject);


procedure Button5Click(Sender: TObject);


procedure Button6Click(Sender: TObject);


procedure Delete1Click(Sender: TObject);

Delete the bitmap from hard drive and done!


procedure FormCreate(Sender: TObject);


procedure ListBox1DblClick(Sender: TObject);


procedure ListBox1KeyPress(Sender: TObject; var Key: Char);


procedure N121Click(Sender: TObject);


procedure N141Click(Sender: TObject);


procedure N181Click(Sender: TObject);


procedure Normal1Click(Sender: TObject);


procedure Rename1Click(Sender: TObject);


procedure Saveas1Click(Sender: TObject);


procedure X161Click(Sender: TObject);


procedure X21Click(Sender: TObject);


procedure X41Click(Sender: TObject);


Properties


Events


Variables


Button1 : TButton;


Button2 : TButton;


Button3 : TButton;


Button4 : TButton;


Button5 : TButton;


Button6 : TButton;


Delete1 : TMenuItem;


Image1 : TImage;


Label1 : TLabel;


ListBox1 : TListBox;


N121 : TMenuItem;


N141 : TMenuItem;


N181 : TMenuItem;


Normal1 : TMenuItem;


OpenDialog1 : TOpenDialog;


Panel1 : TPanel;


PopupMenu1 : TPopupMenu;


PopupMenu2 : TPopupMenu;


Rename1 : TMenuItem;


Saveas1 : TMenuItem;


SaveDialog1 : TSaveDialog;


ScrollBox1 : TScrollBox;


X161 : TMenuItem;


X21 : TMenuItem;


X41 : TMenuItem;