Class TImageForm (unit Iv_main) |
Inherits from
TForm
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
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
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
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