Gorilla.Utils.Dialogs

Unit Gorilla.Utils.Dialogs.pas

Classes

TLoggingForm = class ( TForm )
TProgressForm = class ( TForm )
TLoadOptionsForm = class ( TForm )

TLoggingForm

TGorillaLogForm is a designtime formular to show log messages in a ToolWindow.

Ancestors

-TCommonCustomForm

Members

Fields

protected FMemo : TMemo
protected GlobalLoggingForm : TLoggingForm

Methods

protected procedure DoOnCloseQuery ( Sender : TObject; var CanClose : Boolean ) ;
protected procedure DoOnClose ( Sender : TObject; var Action : TCloseAction ) ;
public procedure Open ( ATitle : string; AMessage : string; AReuse : Boolean ) ; class;

TProgressForm

Execute some kind of process, defined by a custom TProc. It will open a modal dialog and sync output with mainthread.

Ancestors

-TCommonCustomForm

Members

Fields

protected FLabel : TLabel
protected FProc : TProc<Gorilla.Utils.Dialogs.TProgressForm>

Methods

public constructor Create ( AOwner : TComponent ) ;
public destructor Destroy ( ) ;
protected procedure DoOnCloseQuery ( Sender : TObject; var CanClose : Boolean ) ;
protected procedure DoOnClose ( Sender : TObject; var Action : TCloseAction ) ;
protected procedure DoOnShowProgress ( ASender : TObject ) ;
public procedure Open ( const AText : string; const AProc : TProc<Gorilla.Utils.Dialogs.TProgressForm> ) ; class;

Properties

public Text : TLabel
read FLabel

TLoadOptionsForm

General dialog for custom model load options. You need to supply template settings, which can be modified by the user. The "Execute" routine return the modified options.

Ancestors

-TCommonCustomForm

Members

Fields

protected FFileGroup : TGroupBox
protected FFilename : TEdit
protected FImportGroup : TGroupBox
protected FImportLights : TCheckBox
protected FImportCameras : TCheckBox
protected FTexGroup : TGroupBox
protected FTextureLimits : TComboBox
protected FAnimGroup : TGroupBox
protected FImportAnims : TCheckBox
protected FCaching : TComboBox
protected FCompressedCache : TCheckBox
protected FAnimSubGroup : TGroupBox
protected FAnimationList : TListBox
protected FRemAnimBtn : TButton
protected FAddAnimBtn : TButton
protected FOKButton : TButton
protected OptionsResult : TGorillaLoadOptions

Methods

protected procedure DoOnAddAnimation ( ASender : TObject ) ;
protected procedure DoOnRemoveAnimation ( ASender : TObject ) ;
protected procedure DoOnCloseQuery ( Sender : TObject; var CanClose : Boolean ) ;
protected procedure DoOnClose ( Sender : TObject; var Action : TCloseAction ) ;
protected procedure DoOnShow ( ASender : TObject ) ;
protected procedure DoOnCloseWindow ( ASender : TObject ) ;
public function Execute ( const AOpts : TGorillaLoadOptions ) : TGorillaLoadOptions ; class;
class private procedure Create@ ( ) ; class constructor noself;
class private procedure Destroy@ ( ) ; class destructor noself;