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;