Class TfrmInSight (unit InSightCode) |
Inherits from
TForm
*******************************************************************} { The constant KG_DUMMYDIR is used in "Save File" event, make sure to } { read my comments before undefining it. } {*********************************************************************} {$DEFINE KG_DUMMYDIR
procedure cmdAddNewShortCutClick(Sender: TObject);
procedure cmdApplyChangesClick(Sender: TObject);
procedure cmdDeleteShortCutClick(Sender: TObject);
var
n:word;
procedure cmdExitClick(Sender: TObject);
procedure cmdSaveChangesClick(Sender: TObject);
*****************************************************************
Purpose:
To save changes back to disk.
procedure FormActivate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure sGridClick(Sender: TObject);
procedure sGridDblClick(Sender: TObject);
procedure sGridEnter(Sender: TObject);
procedure sGridKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
need to finish up
procedure sGridKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure ApplyNewValues;
procedure AppOnHint(Sender: TObject);
function GetDesc:String;
function GetMemoCode:String;
function GetShortCut:String;
function Question(S:String):boolean;
procedure RefreshItems;
Bevel1 : TBevel;
cmdAddNewShortCut : TButton;
cmdApplyChanges : TButton;
cmdDeleteShortCut : TButton;
cmdExit : TButton;
cmdSaveChanges : TButton;
lblDescription : TLabel;
lblShortCut : TLabel;
pnlCode : TPanel;
pnlMenu : TPanel;
sGrid : TStringGrid;
StatusBar1 : TStatusBar;
TheCode : TMemo;
txtDesc : TEdit;
txtShortCut : TEdit;
procedure cmdAddNewShortCutClick(Sender: TObject);
procedure cmdApplyChangesClick(Sender: TObject);
procedure cmdDeleteShortCutClick(Sender: TObject);
var
n:word;
procedure cmdExitClick(Sender: TObject);
procedure cmdSaveChangesClick(Sender: TObject);
*****************************************************************
Purpose:
To save changes back to disk. I made a decision not to save
any changes back to the original file, but instead write the
changes to the project directory with a filename of [Delphi32.ksg]
You must alter the code to write back to [Delphi32.dci], the file
which Delphi reads from. This insures that you can not blame me
for anything bad occuring!
procedure FormActivate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure sGridClick(Sender: TObject);
procedure sGridDblClick(Sender: TObject);
procedure sGridEnter(Sender: TObject);
procedure sGridKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
need to finish up
procedure sGridKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure ApplyNewValues;
procedure AppOnHint(Sender: TObject);
function GetDesc:String;
function GetMemoCode:String;
function GetShortCut:String;
function Question(S:String):boolean;
procedure RefreshItems;
Bevel1 : TBevel;
cmdAddNewShortCut : TButton;
cmdApplyChanges : TButton;
cmdDeleteShortCut : TButton;
cmdExit : TButton;
cmdSaveChanges : TButton;
lblDescription : TLabel;
lblShortCut : TLabel;
pnlCode : TPanel;
pnlMenu : TPanel;
sGrid : TStringGrid;
StatusBar1 : TStatusBar;
TheCode : TMemo;
txtDesc : TEdit;
txtShortCut : TEdit;