N.Marzio
-
Posts
108 -
Joined
-
Last visited
Content Type
Profiles
Forums
Events
Posts posted by N.Marzio
-
-
-
Ticket open!
Thanks -
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;
InitializationRegisterClass(TxFrmBase );
TMainForm = class(TUniForm)
procedure onClick(Sender : TObect);
privatefunction 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
-
-
-
-
From the mainform I would like to open a secondary form
procedure ShowMyForm(aformName : string);
begin
????????
end;
procedure TxFrmBase.UniButton1Click(Sender: TObject);
beginShowMyForm('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)- 1
-
-
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
Distance between controls
in General
Posted
If I insert some TUniEdit controls inside a TUniFieldSet, how can I decrease the distance between them?