[调整] Firemonkey iOS 原生 Edit 透明框, 改变框色

说明：iOS 原生 Edit 透明框

适用：Berlin Firemonkey

方法：在 StyleLookup 输入 transparentedit

效果：

如果有图片 Image 在这二个 Edit 的上方，效果如下：

 

说明：iOS 原生 Edit 设定框色

适用：Berlin Firemonkey

代码修改说明：

1. 请将源码 FMX.Edit.iOS.pas 复制到自己的工程目录里，再进行修改。
2. 代码内 {+++> 代表我增加的代码
3. 代码内 {---> 代表我删除的代码
4. 未来新版 Delphi 可以自己将 {+++> {---> 移植到新版代码内

constructor TiOSNativeEdit.Create;
begin
  inherited;
  FTextFieldDelegate := TiOSTextFieldDelegate.Create(Self);
  View.setExclusiveTouch(True);
  View.setBorderStyle(UITextBorderStyleRoundedRect);
{+++>}
  // by Aone
  View.layer.setBorderColor(TUIColor.Wrap(TUIColor.OCClass.whiteColor).CGColor); // 白色
  View.layer.setCornerRadius(0);
  View.layer.setBorderWidth(2);
{<+++}
  View.setDelegate((FTextFieldDelegate as ILocalObject).GetObjectID);
  FPreviousSelection := NSMakeRange(NSNotFound, NSNotFound);

  RegisterNativeEventHandler('ControlEventEditingChanged', UIControlEventEditingChanged);
  RegisterNativeEventHandler('ControlEventEditingDidEnd', UIControlEventEditingDidEnd);
end;

效果：