/
stud_22-365
/
GLXEngine
Обзор
Документация
Войти
/
stud_22-365
/
GLXEngine
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
Sourcex/DesignTime/FMxCUDAEditor.pas
75 строк
1 KB
glscene
Updated version
09 окт 2025, 14:50
09 окт 2025, 14:50
bb5ee95
Код
Авторство
О чём код?
// // The graphics GaLaXy Engine. The unit of GXScene // unit FMxCUDAEditor; (* Editor of TgxCUDA *) interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Layouts, FMX.ListBox, FMX.Objects, FMX.StdCtrls, FMX.Controls.Presentation, Stage.Strings, CUDAx.API, CUDAx.FFTPlan, CUDAx.Graphics; type TCUDAEditorForm = class(TForm) ToolBar1: TToolBar; SBOpen: TSpeedButton; Image1: TImage; SBSave: TSpeedButton; Image2: TImage; SBHelp: TSpeedButton; Image3: TImage; ListBox1: TListBox; end; var CUDAEditorForm: TCUDAEditorForm; function GetCUDAEditorForm: TCUDAEditorForm; procedure ReleaseCUDAEditorForm; //------------------------------------------------------------- implementation //------------------------------------------------------------- {$R *.fmx} var vCUDAEditorForm: TCUDAEditorForm; function GetCUDAEditorForm: TCUDAEditorForm; begin if not Assigned(vCUDAEditorForm) then vCUDAEditorForm := TCUDAEditorForm.Create(nil); Result := vCUDAEditorForm; end; procedure ReleaseCUDAEditorForm; begin if Assigned(vCUDAEditorForm) then begin vCUDAEditorForm.Free; vCUDAEditorForm := nil; end; end; end.