/
stud_22-365
/
GLXEngine
Обзор
Документация
Войти
/
stud_22-365
/
GLXEngine
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
Examples/AdvDemos/GLSViewer/Source/fGLDialog.pas
59 строк
961 B
glscene
Updated graph/GraphC.cbproj
20 ноя 2025, 15:21
20 ноя 2025, 15:21
56f8d16
Код
Авторство
О чём код?
unit fGLDialog; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, fGLForm; type TGLDialog = class(TGLForm) PanelTop: TPanel; PanelMiddle: TPanel; PanelBottom: TPanel; ButtonOK: TButton; ButtonCancel: TButton; ButtonHelp: TButton; Memo: TMemo; procedure ButtonHelpClick(Sender: TObject); public function Execute: boolean; virtual; procedure ReadIniFile; override; private end; var GLDialog: TGLDialog; implementation //============================================================= {$R *.dfm} procedure TGLDialog.ButtonHelpClick(Sender: TObject); begin Application.HelpContext(HelpContext); end; function TGLDialog.Execute: boolean; begin Result := ShowModal = mrOk; end; procedure TGLDialog.ReadIniFile; begin inherited; // end; end.