[调整] Firemonkey iOS 原生 Edit 设定框色

2016-08-30 19:13:26来源:cnblogs.com作者:龟山Aone人点击

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

效果:

 

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台