Class TViewForm (unit BMPView)

Inherits from

TForm

Constructors



Functions

procedure AboutBtClick(Sender: TObject);


procedure Animated1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure ConvertClick(Sender: TObject);


procedure Delete1Click(Sender: TObject);


procedure FileListBox1Change(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

DragAcceptFiles(Handle,True);

procedure FormResize(Sender: TObject);


procedure Image1Click(Sender: TObject);


procedure Image1DblClick(Sender: TObject);


procedure MultiImage1DblClick(Sender: TObject);


procedure MultiImage1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure MultiImage1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);


procedure MultiImage1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure PopupMenu1Popup(Sender: TObject);


procedure Rename1Click(Sender: TObject);


procedure RunBtClick(Sender: TObject);

RunBt.

procedure ScrollBox1Resize(Sender: TObject);


procedure StretchRadio1Click(Sender: TObject);


procedure Timer1Timer(Sender: TObject);


procedure ApplicationActivate(Sender: TObject);

Private declarations

procedure HideAll;


procedure RunHelp;


procedure ShowAll;


Properties

Events

Variables

Animated1 : TAnimated;


CloseBt : TBitBtn;


Convert : TBitBtn;


Convert1 : TMenuItem;


Delete1 : TMenuItem;


DirectoryListBox1 : TDirectoryListBox;


DriveComboBox1 : TDriveComboBox;


FileListBox1 : TFileListBox;


Image1 : TPMultiImage;


Label1 : TLabel;


Label2 : TLabel;


MPanel1 : TPanel;


MultiImage1 : TPMultiImage;


N1 : TMenuItem;


Panel1 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


Panel4 : TPanel;


PopupMenu1 : TPopupMenu;


Rename1 : TMenuItem;


RunBt : TBitBtn;


ScrollBox1 : TScrollBox;


StretchRadio1 : TCheckBox;


Timer1 : TTimer;


XLabel : TLabel;


YLabel : TLabel;


BStyle1 : TFormBorderStyle;


DrogPic : Boolean;


DrogX : Integer;


DrogY : Integer;


Idx : Integer;


OldH : Integer;


OldW : Integer;


OldX : Integer;


OldY : Integer;


PicHeight : Integer;


PicWidth : Integer;


ShowThis : Boolean;


SlideShowing : Boolean;



Constructors


Functions


procedure AboutBtClick(Sender: TObject);


procedure Animated1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure ConvertClick(Sender: TObject);


procedure Delete1Click(Sender: TObject);


procedure FileListBox1Change(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

DragAcceptFiles(Handle,True);


procedure FormResize(Sender: TObject);


procedure Image1Click(Sender: TObject);


procedure Image1DblClick(Sender: TObject);


procedure MultiImage1DblClick(Sender: TObject);


procedure MultiImage1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure MultiImage1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);


procedure MultiImage1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure PopupMenu1Popup(Sender: TObject);


procedure Rename1Click(Sender: TObject);


procedure RunBtClick(Sender: TObject);

RunBt.Caption:='Run it!';


procedure ScrollBox1Resize(Sender: TObject);


procedure StretchRadio1Click(Sender: TObject);


procedure Timer1Timer(Sender: TObject);


procedure ApplicationActivate(Sender: TObject);

Private declarations


procedure HideAll;


procedure RunHelp;


procedure ShowAll;


Properties


Events


Variables


Animated1 : TAnimated;


CloseBt : TBitBtn;


Convert : TBitBtn;


Convert1 : TMenuItem;


Delete1 : TMenuItem;


DirectoryListBox1 : TDirectoryListBox;


DriveComboBox1 : TDriveComboBox;


FileListBox1 : TFileListBox;


Image1 : TPMultiImage;


Label1 : TLabel;


Label2 : TLabel;


MPanel1 : TPanel;


MultiImage1 : TPMultiImage;


N1 : TMenuItem;


Panel1 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


Panel4 : TPanel;


PopupMenu1 : TPopupMenu;


Rename1 : TMenuItem;


RunBt : TBitBtn;


ScrollBox1 : TScrollBox;


StretchRadio1 : TCheckBox;


Timer1 : TTimer;


XLabel : TLabel;


YLabel : TLabel;


BStyle1 : TFormBorderStyle;


DrogPic : Boolean;


DrogX : Integer;


DrogY : Integer;


Idx : Integer;


OldH : Integer;


OldW : Integer;


OldX : Integer;


OldY : Integer;


PicHeight : Integer;


PicWidth : Integer;


ShowThis : Boolean;


SlideShowing : Boolean;