26 lines
398 B
ObjectPascal
26 lines
398 B
ObjectPascal
|
unit U_globalVar;
|
||
|
|
interface
|
||
|
|
uses
|
||
|
|
Messages;
|
||
|
|
|
||
|
|
var
|
||
|
|
gUserName:string;
|
||
|
|
gUserId:string;
|
||
|
|
gDllFileName :string;
|
||
|
|
gDllFileCaption :string;
|
||
|
|
gConString:string ;
|
||
|
|
gIsCanDesign:Boolean;
|
||
|
|
gGridNativeSet:boolean;
|
||
|
|
gFontSize:integer;
|
||
|
|
gFontName:string;
|
||
|
|
gIsUseSkin:boolean;
|
||
|
|
gStructVer:string;
|
||
|
|
gSystemId:string;
|
||
|
|
gIsYsUse:boolean;
|
||
|
|
const
|
||
|
|
WM_CloseForm = WM_USER + 100 ;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
end.
|