Class TImageForm (unit Iv_main)

Inherits from

TForm

Constructors



Functions

procedure AutoCompleteHistory(Sender: TObject);


procedure BMAddDir(Sender: TObject);


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


procedure BMButtonClick(Sender: TObject);


procedure BMDrawItem(Control: TWinControl; Index: Integer; R: TRect; State: TOwnerDrawState);

case.

procedure BMHistoryChange(Sender: TObject);

Automatically complete the directory:

procedure BMMeasureItem(Control: TWinControl; Index: Integer; var Height: Integer);

if (odFocused in State) or (odSelected in State) then begin Brush.

procedure BMSelectFolder(Sender: TObject);


procedure BtnClearClick(Sender: TObject);


procedure BtnEditClick(Sender: TObject);


procedure BtnOkClick(Sender: TObject);


procedure BtnSaveClick(Sender: TObject);

case.

procedure BtnViewClick(Sender: TObject);


procedure ClearHistory(Sender: TObject);


procedure DirListChange(Sender: TObject);


procedure DoStretch(Sender: TObject);

Change number of glyphs in test speedbuttons

procedure DriveTabSetClick(Sender: TObject);


procedure FileListClick(Sender: TObject);


procedure FormCreate(Sender: TObject);

Set the current drive

procedure FormDestroy(Sender: TObject);

Load the bookmarks

procedure GlyphNoChange(Sender: TObject);

Remember to free the memory resource

procedure GoLeftClick(Sender: TObject);

case.

procedure GoRightClick(Sender: TObject);


procedure LoadButton(Sender: TObject);


procedure LogoTimeTimer(Sender: TObject);


procedure SetGlyph;

Set test buttons' glyph images

procedure TemplateTabClick(Sender: TObject);

Reset test buttons' images

Procedure AddHistory;

Identify the last key entered to BMAddress

Properties

Events

Variables

AboutAddress : TLabel;


AboutMe : TMemo;


AboutVersion : TLabel;


Bar1 : TImage;


Bar2 : TImage;


BarLocation : TPanel;


Bevel1 : TBevel;


Bevel2 : TBevel;


Bevel3 : TBevel;


Bevel4 : TBevel;


Bevel5 : TBevel;


BMAddress : TEdit;


BMButton : TSpeedButton;


BMCombo : TComboBox;


BMHiPopup : TPopupMenu;


BMHistory : TComboBox;


BMImage : TImage;


BMLocation : TLabel;


BtnCancel : TBitBtn;


BtnClear : TSpeedButton;


BtnEdit : TSpeedButton;


BtnOk : TBitBtn;


BtnSave : TSpeedButton;


BtnView : TSpeedButton;


cr10 : TSpeedButton;


cr100 : TSpeedButton;


cr15 : TSpeedButton;


cr20 : TSpeedButton;


cr21 : TSpeedButton;


cr22 : TSpeedButton;


cr31 : TSpeedButton;


cr32 : TSpeedButton;


cr33 : TSpeedButton;


cr5 : TSpeedButton;


DirList : TDirectoryListBox;


DriveCombo : TDriveComboBox;


DriveTabSet : TTabSet;


FileList : TFileListBox;


GlyphLabel : TLabel;


GlyphNo : TSpinEdit;


GlyphTestBtn1 : TBitBtn;


GlyphTestBtn2 : TBitBtn;


GlyphTestSpeed1 : TSpeedButton;


GlyphTestSpeed2 : TSpeedButton;


GoLeft : TSpeedButton;


GoRight : TSpeedButton;


Image : TImage;


IVIcon : TImage;


Label1 : TLabel;


Logo : TPaintBox;


LogoBevel : TBevel;


LogoTime : TTimer;


mClearHistory : TMenuItem;


SaveDlg : TSaveDialog;


SpeedButton1 : TSpeedButton;


SpeedButton2 : TSpeedButton;


SpeedButton3 : TSpeedButton;


SpeedButton4 : TSpeedButton;


SpeedButton5 : TSpeedButton;


SpeedButton6 : TSpeedButton;


SpeedButton7 : TSpeedButton;


StretchCheck : TCheckBox;


TempCorel : TScrollBox;


TempInternet : TScrollBox;


TemplateNote : TNotebook;


TemplateTab : TTabSet;


TempMore : TScrollBox;


TempOffice : TScrollBox;


ti01 : TSpeedButton;


ti02 : TSpeedButton;


ti03 : TSpeedButton;


ti04 : TSpeedButton;


ti05 : TSpeedButton;


ti06 : TSpeedButton;


ti07 : TSpeedButton;


ti08 : TSpeedButton;


ti09 : TSpeedButton;


ti10 : TSpeedButton;


tm01 : TSpeedButton;


tm02 : TSpeedButton;


tm03 : TSpeedButton;


tm05 : TSpeedButton;


tm06 : TSpeedButton;


tm07 : TSpeedButton;


tm08 : TSpeedButton;


tm41 : TSpeedButton;


tm51 : TSpeedButton;


tm61 : TSpeedButton;


tw01 : TSpeedButton;


tw02 : TSpeedButton;


tw03 : TSpeedButton;


tw04 : TSpeedButton;


tw09 : TSpeedButton;


tw10 : TSpeedButton;


tw100 : TSpeedButton;


tw17 : TSpeedButton;


tw23 : TSpeedButton;


tw24 : TSpeedButton;


tw25 : TSpeedButton;


tw26 : TSpeedButton;


tw29 : TSpeedButton;


tw32 : TSpeedButton;


tw33 : TSpeedButton;


tw36 : TSpeedButton;


tw37 : TSpeedButton;


tw38 : TSpeedButton;


tw39 : TSpeedButton;


tw40 : TSpeedButton;


tw46 : TSpeedButton;


tw47 : TSpeedButton;


tw48 : TSpeedButton;


tw49 : TSpeedButton;


tw50 : TSpeedButton;


tw51 : TSpeedButton;


tw53 : TSpeedButton;


tw54 : TSpeedButton;


tw55 : TSpeedButton;


tw56 : TSpeedButton;


tw61 : TSpeedButton;


tw62 : TSpeedButton;


tw64 : TSpeedButton;


tw65 : TSpeedButton;


tw66 : TSpeedButton;


tw67 : TSpeedButton;


tw68 : TSpeedButton;


tw69 : TSpeedButton;


tw70 : TSpeedButton;


tw75 : TSpeedButton;


tw86 : TSpeedButton;


tw87 : TSpeedButton;


tw88 : TSpeedButton;


tw89 : TSpeedButton;


tw95 : TSpeedButton;


tw96 : TSpeedButton;


tw97 : TSpeedButton;


tw98 : TSpeedButton;


tw99 : TSpeedButton;


ViewTab : TTabbedNotebook;


BkModified : Boolean;


BMBmp : TBitmap;

Frame index of the logo

HiModified : Boolean;

Specify if Bookmarks have been updated

LastKey : Word;

Bookmark icon

LogoBmp : TBitmap;

Specify if History has been updated

LogoIdx : integer;

Animated logo


Constructors


Functions


procedure AutoCompleteHistory(Sender: TObject);


procedure BMAddDir(Sender: TObject);


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


procedure BMButtonClick(Sender: TObject);


procedure BMDrawItem(Control: TWinControl; Index: Integer; R: TRect; State: TOwnerDrawState);

case...of


procedure BMHistoryChange(Sender: TObject);

Automatically complete the directory:


procedure BMMeasureItem(Control: TWinControl; Index: Integer; var Height: Integer);

if (odFocused in State) or (odSelected in State) then begin Brush.Color := clHighLight; Brush.Style := bsClear; Pen.Color := clHighLightText; end else Pen.Color := clMenuText;


procedure BMSelectFolder(Sender: TObject);


procedure BtnClearClick(Sender: TObject);


procedure BtnEditClick(Sender: TObject);


procedure BtnOkClick(Sender: TObject);


procedure BtnSaveClick(Sender: TObject);

case...of


procedure BtnViewClick(Sender: TObject);


procedure ClearHistory(Sender: TObject);


procedure DirListChange(Sender: TObject);


procedure DoStretch(Sender: TObject);

Change number of glyphs in test speedbuttons


procedure DriveTabSetClick(Sender: TObject);


procedure FileListClick(Sender: TObject);


procedure FormCreate(Sender: TObject);

Set the current drive


procedure FormDestroy(Sender: TObject);

Load the bookmarks


procedure GlyphNoChange(Sender: TObject);

Remember to free the memory resource


procedure GoLeftClick(Sender: TObject);

case..of


procedure GoRightClick(Sender: TObject);


procedure LoadButton(Sender: TObject);


procedure LogoTimeTimer(Sender: TObject);


procedure SetGlyph;

Set test buttons' glyph images


procedure TemplateTabClick(Sender: TObject);

Reset test buttons' images


Procedure AddHistory;

Identify the last key entered to BMAddress


Properties


Events


Variables


AboutAddress : TLabel;


AboutMe : TMemo;


AboutVersion : TLabel;


Bar1 : TImage;


Bar2 : TImage;


BarLocation : TPanel;


Bevel1 : TBevel;


Bevel2 : TBevel;


Bevel3 : TBevel;


Bevel4 : TBevel;


Bevel5 : TBevel;


BMAddress : TEdit;


BMButton : TSpeedButton;


BMCombo : TComboBox;


BMHiPopup : TPopupMenu;


BMHistory : TComboBox;


BMImage : TImage;


BMLocation : TLabel;


BtnCancel : TBitBtn;


BtnClear : TSpeedButton;


BtnEdit : TSpeedButton;


BtnOk : TBitBtn;


BtnSave : TSpeedButton;


BtnView : TSpeedButton;


cr10 : TSpeedButton;


cr100 : TSpeedButton;


cr15 : TSpeedButton;


cr20 : TSpeedButton;


cr21 : TSpeedButton;


cr22 : TSpeedButton;


cr31 : TSpeedButton;


cr32 : TSpeedButton;


cr33 : TSpeedButton;


cr5 : TSpeedButton;


DirList : TDirectoryListBox;


DriveCombo : TDriveComboBox;


DriveTabSet : TTabSet;


FileList : TFileListBox;


GlyphLabel : TLabel;


GlyphNo : TSpinEdit;


GlyphTestBtn1 : TBitBtn;


GlyphTestBtn2 : TBitBtn;


GlyphTestSpeed1 : TSpeedButton;


GlyphTestSpeed2 : TSpeedButton;


GoLeft : TSpeedButton;


GoRight : TSpeedButton;


Image : TImage;


IVIcon : TImage;


Label1 : TLabel;


Logo : TPaintBox;


LogoBevel : TBevel;


LogoTime : TTimer;


mClearHistory : TMenuItem;


SaveDlg : TSaveDialog;


SpeedButton1 : TSpeedButton;


SpeedButton2 : TSpeedButton;


SpeedButton3 : TSpeedButton;


SpeedButton4 : TSpeedButton;


SpeedButton5 : TSpeedButton;


SpeedButton6 : TSpeedButton;


SpeedButton7 : TSpeedButton;


StretchCheck : TCheckBox;


TempCorel : TScrollBox;


TempInternet : TScrollBox;


TemplateNote : TNotebook;


TemplateTab : TTabSet;


TempMore : TScrollBox;


TempOffice : TScrollBox;


ti01 : TSpeedButton;


ti02 : TSpeedButton;


ti03 : TSpeedButton;


ti04 : TSpeedButton;


ti05 : TSpeedButton;


ti06 : TSpeedButton;


ti07 : TSpeedButton;


ti08 : TSpeedButton;


ti09 : TSpeedButton;


ti10 : TSpeedButton;


tm01 : TSpeedButton;


tm02 : TSpeedButton;


tm03 : TSpeedButton;


tm05 : TSpeedButton;


tm06 : TSpeedButton;


tm07 : TSpeedButton;


tm08 : TSpeedButton;


tm41 : TSpeedButton;


tm51 : TSpeedButton;


tm61 : TSpeedButton;


tw01 : TSpeedButton;


tw02 : TSpeedButton;


tw03 : TSpeedButton;


tw04 : TSpeedButton;


tw09 : TSpeedButton;


tw10 : TSpeedButton;


tw100 : TSpeedButton;


tw17 : TSpeedButton;


tw23 : TSpeedButton;


tw24 : TSpeedButton;


tw25 : TSpeedButton;


tw26 : TSpeedButton;


tw29 : TSpeedButton;


tw32 : TSpeedButton;


tw33 : TSpeedButton;


tw36 : TSpeedButton;


tw37 : TSpeedButton;


tw38 : TSpeedButton;


tw39 : TSpeedButton;


tw40 : TSpeedButton;


tw46 : TSpeedButton;


tw47 : TSpeedButton;


tw48 : TSpeedButton;


tw49 : TSpeedButton;


tw50 : TSpeedButton;


tw51 : TSpeedButton;


tw53 : TSpeedButton;


tw54 : TSpeedButton;


tw55 : TSpeedButton;


tw56 : TSpeedButton;


tw61 : TSpeedButton;


tw62 : TSpeedButton;


tw64 : TSpeedButton;


tw65 : TSpeedButton;


tw66 : TSpeedButton;


tw67 : TSpeedButton;


tw68 : TSpeedButton;


tw69 : TSpeedButton;


tw70 : TSpeedButton;


tw75 : TSpeedButton;


tw86 : TSpeedButton;


tw87 : TSpeedButton;


tw88 : TSpeedButton;


tw89 : TSpeedButton;


tw95 : TSpeedButton;


tw96 : TSpeedButton;


tw97 : TSpeedButton;


tw98 : TSpeedButton;


tw99 : TSpeedButton;


ViewTab : TTabbedNotebook;


BkModified : Boolean;


BMBmp : TBitmap;

Frame index of the logo


HiModified : Boolean;

Specify if Bookmarks have been updated


LastKey : Word;

Bookmark icon


LogoBmp : TBitmap;

Specify if History has been updated


LogoIdx : integer;

Animated logo