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

2018-06-17 18:58:08来源:未知 阅读 ()

新老客户大回馈,云服务器低至5折

说明: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;

效果:

 

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:【FOL】第九周

下一篇:[教学] 将 Form 内的控件变成 Style 简易运用