Gorilla.UI.AssetsStore

Unit Gorilla.UI.AssetsStore.pas

Classes

TAssetsStoreFrame = class ( TPanel )
TAssetsStoreForm = class ( TForm )

Enumerations

enum TAuthMethod = ( Unknown, Basic, Bearer ) ;

Constants

const GORILLA_API_URL : string = "";
const GORILLA_API_TOKEN_DEV_URL : string = "";
const GORILLA_API_TOKEN_COM_URL : string = "";
const GORILLA_API_PREFABS_URL : string = "";

TAssetsStoreFrame

Ancestors

-TPresentedControl

-TStyledControl

Members

Fields

protected FEmbedInto : TComponent
protected FPrefab : TGorillaPrefabSystem
protected FListView : TListView
protected FProgress : TProgressBar
protected FProgressLbl : TLabel
protected FPrefabLimit : Integer
protected FMaxPages : Integer
protected FCurrentPage : Integer
protected FPageNav : TToolBar
protected FPrevBtn : TButton
protected FNextBtn : TButton
protected FPageLbl : TLabel
protected FCalloutPanel : TCalloutPanel
protected FCalloutLabel : TLabel
protected FClient : TIdHTTP
protected FToken : string
protected FBearer : string
protected FAuth : TAuthMethod
protected FUser : string
protected FPwd : string
protected FOnSelect : TNotifyEvent
protected FOnCreateComponent : TOnCreateComponentEvent

Methods

public constructor Create ( AOwner : TComponent ) ;
public destructor Destroy ( ) ;
protected function GetPrefab ( ) : TGorillaPrefabSystem ;
protected procedure SetPrefab ( AValue : TGorillaPrefabSystem ) ;
protected procedure ShowInfo ( AMessage : string ) ;
protected procedure ShowWarning ( AMessage : string ) ;
protected procedure Confirmation ( AMessage : string; const AProc : TConfirmCallback ) ;
protected procedure StartProgress ( AText : string; AWorkCountMax : Int64 ) ;
protected procedure SetProgress ( AWorkCount : Int64 ) ;
protected procedure EndProgress ( ) ;
protected procedure DoOnClickPreviousPage ( ASender : TObject ) ;
protected procedure DoOnClickNextPage ( ASender : TObject ) ;
protected procedure DoOnDownloadWorkBegin ( ASender : TObject; AWorkMode : TWorkMode; AWorkCountMax : Int64 ) ;
protected procedure DoOnDownloadWork ( ASender : TObject; AWorkMode : TWorkMode; AWorkCount : Int64 ) ;
protected procedure DoOnDownloadWorkEnd ( ASender : TObject; AWorkMode : TWorkMode ) ;
protected procedure DoOnSelectListItem ( const ASender : TObject; const AItem : TListItem ) ;
protected function RequestPrefabList ( ) : TJSONArray ;
protected procedure DownloadToStream ( AURL : string; AStream : TStream ) ;
protected procedure DownloadToBitmap ( AURL : string; out ABmp : TBitmap ) ;
public procedure SetCredentials ( AAuth : TAuthMethod; AUser : string; APwd : string ) ;
public procedure UpdatePrefabList ( ) ;

Properties

public EmbedInto : TComponent
read FEmbedInto
write FEmbedInto
public Prefab : TGorillaPrefabSystem
read GetPrefab
write SetPrefab

TAssetsStoreForm

Ancestors

-TCommonCustomForm

Members

Fields

protected FFrame : TAssetsStoreFrame

Methods

public constructor Create ( AOwner : TComponent ) ;
public constructor CreateNew ( AOwner : TComponent; Dummy : NativeInt = $0 ) ;
public destructor Destroy ( ) ;
protected function GetEmbedInto ( ) : TComponent ;
protected procedure SetEmbedInto ( AValue : TComponent ) ;
protected function GetPrefab ( ) : TGorillaPrefabSystem ;
protected procedure SetPrefab ( AValue : TGorillaPrefabSystem ) ;
protected procedure DoOnSelect ( ASender : TObject ) ;
public procedure Execute ( AEmbedInto : TComponent; APrefab : TGorillaPrefabSystem; AOnCreateComp : TOnCreateComponentEvent = nil ) ; class;

Properties

public Frame : TAssetsStoreFrame
read FFrame
public EmbedInto : TComponent
read GetEmbedInto
write SetEmbedInto
public Prefab : TGorillaPrefabSystem
read GetPrefab
write SetPrefab