zoukankan      html  css  js  c++  java
  • [调整] 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;

    效果:

  • 相关阅读:
    。。。。。。
    数据库
    python基础
    。。。。
    drf
    CRM笔记梳理
    人生苦短,我学PYTHON
    React的初步了解
    递归与迭代比较
    有没有大佬会很标准的三层架构
  • 原文地址:https://www.cnblogs.com/onechen/p/5823261.html
Copyright © 2011-2022 走看看