Class TfrmPictPlus (unit PictPlus)

Inherits from

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);

RegisterPropertyEditor( TypeInfo( TPicture ), nil, '', TPicturePropertyPlus );

procedure cbxFileDblClick(Sender: TObject);

SetFileType( cbxFile.

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


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