/
stud_22-365
/
GLXEngine
Обзор
Документация
Войти
/
stud_22-365
/
GLXEngine
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
Examples/AdvDemos/GLSViewer/Source/fGLForm.pas
51 строка
910 B
glscene
Updated graph/GraphC.cbproj
20 ноя 2025, 15:21
20 ноя 2025, 15:21
56f8d16
Код
Авторство
О чём код?
//--------------------------------------- // This unit is part of the GLSViewer //--------------------------------------- unit fGLForm; (* The fGLForm unit for TGLForm class as parent for all child forms of GLSViewer *) interface uses Winapi.Windows, System.SysUtils, System.IniFiles, Vcl.Forms, Vcl.Graphics, Vcl.Menus, Vcl.Actnlist, uGlobals ; type TGLForm = class(TForm) private public IniFile : TIniFile; procedure ReadIniFile; virtual; end; var GLForm: TGLForm; implementation //============================================================ {$R *.dfm} //Here goes the translation of all component strings // procedure TGLForm.ReadIniFile; begin IniFile := TIniFile.Create(ChangeFileExt(ParamStr(0), '.ini')); with IniFile do try LanguageID := ReadInteger('FormOptions', 'rgLanguage', 0); finally IniFile.Free; end; end; end.