Unit KGlobal

Classes

Functions

Alert -
AppPath -
ErrMsg -
ExploreDirs -
Information -
InformationPos -
IsDelphiRunning -
Len -
NtoS -
Question -
RetryBox -
RunWinApp -
StrCrLf - -----------------------------------------------------------
WarnMsg -

Types

Constants

ABORT_ADDING_RECORD
ADD_NEW_PROJECTS
D16
DPR_FILTER
EDIT_CURRENT_PROJECT
LANGUAGE_ORDER
MainDbf
NO_ORDER
PrjFlt
VBP_FILTER
Win16Projects

Variables


Functions


procedure Alert(const S: String);


function AppPath:String;


procedure ErrMsg(const S: String);


procedure ExploreDirs(const S: String);


procedure Information(const S: String);


procedure InformationPos(const S: String;nRow,nCol:Integer);


function IsDelphiRunning : boolean;


function Len(S:String):LongInt;


function NtoS(iNumber: Integer): String;


function Question(const S: String):Boolean;


function RetryBox(const S: String):Boolean;


procedure RunWinApp(const S: String);


function StrCrLf(const cMsg:String):String;

-----------------------------------------------------------

procedure WarnMsg(const S: String);


Types


Constants

ABORT_ADDING_RECORD = -1

ADD_NEW_PROJECTS = 1

D16 = '\Delphi.exe'

DPR_FILTER = 1

EDIT_CURRENT_PROJECT = 2

LANGUAGE_ORDER = 1

MainDbf = 'Projects.db'

Renamed from Global.pas 6/14/1998 Paul Rice to avoid conflicts with others' work.} { Description: Project Manager } { Programmer: Kevin S Gallagher gallaghe@teleport.com } { Requires: TBrkApart component (FreeWare) } { Versions: 2 and 3 of Delphi } { SeeAlso: DPRegstr unit } {

NO_ORDER = 2

PrjFlt = 'Delphi files (*.dpr)|*.dpr|Visual Basic files (*.VBP)|*.vbp'

VBP_FILTER = 2

Win16Projects = '16'


Variables