Этот шаблон предназначен для инициализации значений глобальных переменных, используемых в шаблонах, по INI-файлу приложения. Редактирование их значений и запись в INI-файл производится при помощи шаблонов SetupGlob и SaveGlob. Шаблон InitGlob обычно применяется при инициализации главной процедуры приложения (обычно эта процедура называется Main).
#!
=================================================================================
#EXTENSION (InitGlob, 'Инициализация глобальных
переменных шаблона GSM'), PROCEDURE
#! =================================================================================
#DISPLAY ('')
#DISPLAY ('Инициализирует глоб.переменные шаблона GSM')
#DISPLAY ('')
#!
#! ------ Инициализация процедуры ------
#AT (%ProcedureInitialize)
G:IniFileName = '%IniFileName'
G:BasePath = GetINI( 'Path', 'BasePath', '.\Dat\', G:IniFileName )
G:PicPath = GetINI( 'Path', 'PicPath', '.\Pic\', G:IniFileName )
G:HelpPath = GetINI( 'Path', 'HelpPath', PATH() & '\Help\', G:IniFileName )
G:PatternFlag = GetINI( 'Interface', 'PatternFlag', '1', G:IniFileName )
G:Tabl1 = GetINI( 'Interface', 'Tabl1', G:PicPath & 'Tabl1.bmp',
G:IniFileName )
G:Tabl2 = GetINI( 'Interface', 'Tabl2', G:PicPath & 'Tabl2.bmp',
G:IniFileName )
G:TablSel = GetINI( 'Interface', 'TablSel', G:PicPath & 'TablSel.bmp', G:IniFileName )
G:Form1 = GetINI( 'Interface', 'Form1', G:PicPath & 'Form1.bmp',
G:IniFileName )
G:Form2 = GetINI( 'Interface', 'Form2', G:PicPath & 'Form2.bmp',
G:IniFileName )
G:FormDel = GetINI( 'Interface', 'FormDel', G:PicPath & 'FormDel.bmp', G:IniFileName )
G:Vedom1 = GetINI( 'Interface', 'Vedom1', G:PicPath & 'Vedom1.bmp',
G:IniFileName )
G:Vedom2 = GetINI( 'Interface', 'Vedom2', G:PicPath & 'Vedom2.bmp',
G:IniFileName )
G:Doc1 = GetINI( 'Interface', 'Doc1', G:PicPath & 'Doc1.bmp',
G:IniFileName )
G:Doc2 = GetINI( 'Interface', 'Doc2', G:PicPath & 'Doc2.bmp',
G:IniFileName )
G:IconsFlag = GetINI( 'Interface', 'IconsFlag', '', G:IniFileName )
G:IconFile = GetINI( 'Interface', 'IconsFile', '', G:IniFileName )
G:FlatFlag = GetINI( 'Interface', 'FlatFlag', '', G:IniFileName )
G:TipsFlag = GetINI( 'Interface', 'TipsFlag', '1', G:IniFileName )
G:FrameFile = GetINI( 'Interface', 'FrameFile', G:PicPath & 'Back.bmp', G:IniFileName
)
G:TiledFlag = GetINI( 'Interface', 'TiledFlag', '', G:IniFileName )
#ENDAT
#!
#! ------- После открытия окна -------
#AT (%AfterWindowOpening)
if G:FrameFile <> ''
%window{prop:WallPaper}=G:FrameFile
.
if G:TiledFlag
%window{prop:Tiled} = '1'
.
#ENDAT
В глобальной переменной G:BasePath хранится путь к файлам базы данных приложения. Он используется для инициализации имен файлов базы данны (смотрите раздел Имена файлов базы данных).
В глобальной переменной G:HelpPath хранится путь к файлам подсистемы помощи (смотрите раздел Шаблон ButtonHelp).
G:PatternFlag - признак "Выводить обои окон". Следующие за ним 10 глобальных переменных предназначены для хранения имен файлов "обоев" (смотрите Шаблон WallPaper).
G:IconsFlag -
признак "Применять Значек приложения"
G:IconFile -
переменная для имени файла Значка (icon)
приложения. Этот значек будет использоваться во
всех окнах, если установлен признак G:IconsFlag.
G:FlatFlag - признак "Плавающие кнопки". Если этот признак включен, то все кнопки во всех окнах приложения будут выводиться "плавающими" (flat). Смотрите Шаблон FlatButtons.
G:TipsFlag - признак наличия подсказочек (tips). Включает вывод подсказочек у control-ов во всем приложении.
G:FrameFile -
переменная для имени файла c изображением фона
для основного окна (frame) приложения.
G:TiledFlag -
признак "Размножать фоновую картинку" для
фона основного окна приложения.