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

Constructors



Functions

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;


Properties

Events

Variables

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;



Constructors


Functions


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;


Properties


Events


Variables


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;