Class TImageForm (unit ImagPrvw)
Inherits from
TForm
Constructors
Functions
procedure FileListBoxChange(Sender: TObject);
procedure FileListBoxClick(Sender: TObject);
procedure FileListBoxDblClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure OkBtnClick(Sender: TObject);
procedure PreviewBtnClick(Sender: TObject);
procedure StretchCheckClick(Sender: TObject);
function GetFileName: string;
TImageForm
procedure PreviewKeyPress(Sender: TObject; var Key: Char);
procedure SetFileName(const Value: string);
procedure ZoomImage;
Properties
property FileName : string
Events
Variables
CancelBtn : TButton;
DirectoryList : TDirectoryListBox;
DriveCombo : TDriveComboBox;
FileEdit : TEdit;
FileListBox : TFileListBox;
FilePics : TPicClip;
FilterCombo : TFilterComboBox;
FormStorage : TFormStorage;
Image : TImage;
ImageName : TLabel;
ImagePanel : TPanel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
OkBtn : TButton;
PathLabel : TLabel;
PreviewBtn : TRxSpeedButton;
StretchCheck : TCheckBox;
FBmpImage : TBitmap;
FormCaption : string;
Constructors
Functions
procedure FileListBoxChange(Sender: TObject);
procedure FileListBoxClick(Sender: TObject);
procedure FileListBoxDblClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure OkBtnClick(Sender: TObject);
procedure PreviewBtnClick(Sender: TObject);
procedure StretchCheckClick(Sender: TObject);
function GetFileName: string;
TImageForm
procedure PreviewKeyPress(Sender: TObject; var Key: Char);
procedure SetFileName(const Value: string);
procedure ZoomImage;
Properties
property FileName : string
Events
Variables
CancelBtn : TButton;
DirectoryList : TDirectoryListBox;
DriveCombo : TDriveComboBox;
FileEdit : TEdit;
FileListBox : TFileListBox;
FilePics : TPicClip;
FilterCombo : TFilterComboBox;
FormStorage : TFormStorage;
Image : TImage;
ImageName : TLabel;
ImagePanel : TPanel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
OkBtn : TButton;
PathLabel : TLabel;
PreviewBtn : TRxSpeedButton;
StretchCheck : TCheckBox;
FBmpImage : TBitmap;
FormCaption : string;