| Class TfrmPictPlus (unit PictPlus) |
TForm
| Constructors |
| Functions |
procedure btnAboutClick(Sender: TObject);
procedure btnClearClick(Sender: TObject);
procedure btnOKClick(Sender: TObject);
procedure btnViewClick(Sender: TObject);
procedure cbxDirChange(Sender: TObject);
procedure cbxFileClick(Sender: TObject);
procedure cbxFileDblClick(Sender: TObject);
procedure cbxHistoryClick(Sender: TObject);
procedure cbxHistoryDropDown(Sender: TObject);
procedure cbxHistoryExit(Sender: TObject);
procedure chbEnableDisableClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure imgViewClick(Sender: TObject);
procedure lsvImagesClick(Sender: TObject);
procedure lsvImagesDblClick(Sender: TObject);
procedure LoadListView;| Properties |
| Events |
| Variables |
btnAbout : TBitBtn;
btnCancel : TBitBtn;
btnClear : TBitBtn;
btnOK : TBitBtn;
btnSave : TBitBtn;
btnTest : TBitBtn;
btnView : TBitBtn;
cbxDir : TDirectoryListBox;
cbxDrive : TDriveComboBox;
cbxFile : TFileListBox;
cbxHistory : TComboBox;
chbEnableDisable : TCheckBox;
iltImages : TImageList;
imgView : TImage;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
lsvImages : TListView;
Panel1 : TPanel;
Panel2 : TPanel;
Panel3 : TPanel;
Panel4 : TPanel;
pnlAbout : TPanel;
pnlBottom : TPanel;
Cleared : Boolean;
FileType : TFileType;
PropertyType : TPropertyType;
Ini : TRegIniFile;
OldHistoryWidth : Integer;| Constructors |
| Functions |
procedure btnAboutClick(Sender: TObject);
procedure btnClearClick(Sender: TObject);
procedure btnOKClick(Sender: TObject);
procedure btnViewClick(Sender: TObject);
procedure cbxDirChange(Sender: TObject);
procedure cbxFileClick(Sender: TObject);RegisterPropertyEditor( TypeInfo( TPicture ), nil, '', TPicturePropertyPlus );
procedure cbxFileDblClick(Sender: TObject);SetFileType( cbxFile.Filename );
procedure cbxHistoryClick(Sender: TObject);
procedure cbxHistoryDropDown(Sender: TObject);
procedure cbxHistoryExit(Sender: TObject);Load History
procedure chbEnableDisableClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure imgViewClick(Sender: TObject);
procedure lsvImagesClick(Sender: TObject);
procedure lsvImagesDblClick(Sender: TObject);
procedure LoadListView;| Properties |
| Events |
| Variables |
btnAbout : TBitBtn;
btnCancel : TBitBtn;
btnClear : TBitBtn;
btnOK : TBitBtn;
btnSave : TBitBtn;
btnTest : TBitBtn;
btnView : TBitBtn;
cbxDir : TDirectoryListBox;
cbxDrive : TDriveComboBox;
cbxFile : TFileListBox;
cbxHistory : TComboBox;
chbEnableDisable : TCheckBox;
iltImages : TImageList;
imgView : TImage;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
lsvImages : TListView;
Panel1 : TPanel;
Panel2 : TPanel;
Panel3 : TPanel;
Panel4 : TPanel;
pnlAbout : TPanel;
pnlBottom : TPanel;
Cleared : Boolean;
FileType : TFileType;
PropertyType : TPropertyType;Public declarations
Ini : TRegIniFile;
OldHistoryWidth : Integer;Private declarations