N.Marzio
uniGUI Subscriber-
Posts
108 -
Joined
-
Last visited
Content Type
Profiles
Forums
Events
Everything posted by N.Marzio
-
If I insert some TUniEdit controls inside a TUniFieldSet, how can I decrease the distance between them?
-
I have a form with a TUniFieldSet which contains the various TuniEdit / TUniComboCobx controls ... etc. If I add a TUniMemo or a TUniHmtl these at runtime are not displayed on the form
-
Why do I add a TuniMemo or TUniHtml on TuniFieldSet these are not displayed? Thanks
-
thanks I will continue to use smeexport.
-
Why in the case of a grid with many records, do I export only the records displayed on the current page? I would like to export all the reocrds on the grid. Tks
-
-
TxFrmBase = class(TUniForm) procedure FormShow(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } // public { Public declarations } end; TFrmBase = class of TxFrmBase; Initialization RegisterClass(TxFrmBase ); TMainForm = class(TUniForm) procedure onClick(Sender : TObect); private function FindAnyClass(const aName: string): TClass; procedure showMyForm(aMyForm : string); public end; function TMainForm.FindAnyClass(const aName: string): TClass; var ctx: TRttiContext; typ: TRttiType; list: TArray<TRttiType>; begin Result := nil; // if Trim(aName) = '' then exit; // ctx := TRttiContext.Create; list := ctx.GetTypes; for typ in list do begin if typ.IsInstance and (EndsText(aName, typ.Name)) then begin Result := typ.AsInstance.MetaClassType; break; end; end; ctx.Free; end; procedure TMainForm.showMyForm(aMyForm : string); var lTag : TFrmBase; begin lTag := TFrmBase(FindAnyClass(aMyForm)); // with (lTag).Create(UniApplication) do begin .... Show(); end; end; procedure TMainForm.onClick(Sender : TObect); begin showMyForm('MyPersonalForm'); end; If it can serve, I attach the units Bye
-
I had already tried, but it doesn't work ... Error Class not Found...
-
sorry, but with findClass (), I couldn't get it to work .... Do you have an example?
-
From the mainform I would like to open a secondary form procedure ShowMyForm(aformName : string); begin ???????? end; procedure TxFrmBase.UniButton1Click(Sender: TObject); begin ShowMyForm('TxFrmBase '); end; My Sencond Form TxFrmBase = class(TUniForm) procedure FormShow(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } .... .... public { Public declarations } ...... end; function xFrmBase: TxFrmBase; begin Result := TxFrmBase(UniMainModule.GetFormInstance(TxFrmBase)); end; Tks
-
It Works! Tks!
-
Sorry, I fixed my account. Thanks, now I try.
-
No. I had started with the TrialVersion, but now I have already installed the licensed version.
-
To publish the application as a standalone executable, what should be done? I tried to copy the executable with all the necessary folders, but the application cannot be used either locally or on the network. Why?
-
Not work... Tks.
-
It is possible to import into TUniNAtiveImageList FontAwesone Icons, or from other sources? Tks!
-
Where am I going to make the <form desktop> and <form mobile> link? Main (form x Desktop) ==> MainM (form x Mobile) FormLogin (form x Desktop) ==> FormLogin (form x Mobile)
-
Is there an example of an application developed for both platforms?
-
I derived the TuniButton component, and on the medoto I made the ovveride of the BeforeCompleted method. Here I entered my code to make the button bootstrap style. public constructor Create (AOwner: TComponent); override; BeforeLoadCompleted procedures; override; End; TMXUniGuiButton.BeforeLoadCompleted procedures; begin Inherited; // ...... end; I hope it's a good method ...
-
But I want to create my TUniButtonXX. It's the same thing? Tks