TTMSFMXEdit Height Property

FMX TMS FMX UI Pack
1

Hi,

In IOS the TEdit height is fixed. A work around for this is the following code:

Is there any reason that you could not add the following protected procedure to TTMSFMXEdit?

{$IFDEF IOS}
procedure AdjustFixedSize(const Ref: TControl); override;
{$ENDIF}

{$IFDEF IOS}
procedure TTMSFMXEdit.AdjustFixedSize(const Ref: TControl);
begin
  SetAdjustType(TAdjustType.None);
end;
{$ENDIF}

This enables the Edit to be whatever size you want thereby faciliting the use of larger fonts.

Regards,

Ken

2

Hi, 


TTMSFMXEdit inherits from TEdit so you can access SetAdjustType outside of TTMSFMXEdit by using the following code and a protected class declaration:

type
  TTMSFMXEditEx = class(TTMSFMXEdit);

....

TTMSFMXEditEx(TMSFMXEdit1).SetAdjustType(TAdjustType.None);

We don't see a reason to add support for this if this isn't supported directly on TEdit. Supporting this will only increase the chance that something might get broken in newer versions of RAD Studio.

Kind Regards, 
Pieter
3

Pieter,

Thanks, but that doesn't work. Did you try it?

Ken