RTFormwork/public10/design/U_globalVar.pas
2024-11-27 14:42:25 +08:00

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.