zoukankan      html  css  js  c++  java
  • firemonkey EDit 改变颜色

    PS:本来不应该有多难,结果折腾了半天,

    firemonkey EDit  Canvas 按需绘颜色

    procedure TForm.EditPaint(Sender: TObject; Canvas: TCanvas;
      const ARect: TRectF);
      var
        ARect1: TRectF;
    begin
       //绘制颜色
       (Sender as TEdit).BeginUpdate;
       ARect1:=ARect;
       ARect1.Left:=1;
       ARect1.Top:=1;
       ARect1.Bottom:=ARect.Bottom-1;
       ARect1.Right:=ARect.Right-1;
    
    
         if (Sender as TEdit).Text= ((Sender as TEdit).Hint)  then
          begin
             Canvas.Fill.Kind := TBrushKind.Solid;
             Canvas.Fill.Color := TAlphaColorRec.Blue;
             Canvas.FillRect(ARect1, 0, 0, [], 1);
             (Sender as TEdit ).FontColor:=TAlphaColorRec.red;
          end
          else
          begin
            // Canvas.Fill.Kind := TBrushKind.Solid;
             Canvas.Fill.Color := TAlphaColorRec.Red;
             Canvas.FillRect(ARect1, 0, 0, [], 1);
             (Sender as TEdit ).FontColor:=TAlphaColorRec.blue;
          end;
    
       Canvas.Fill.Color := TAlphaColorRec.Black;
       Canvas.Font.Size:=12;
        Canvas.FillText(ARect1, (Sender as tedit).Text, false,1, [], TTextAlign.Center, TTextAlign.Center);
       (Sender as TEdit).EndUpdate;
    end;
    

      

  • 相关阅读:
    web(零)---tornado使用
    web(一)----tornado nginx配置
    pb- 使用
    Python排序算法之直接插入排序
    敏捷测试中发现的一些问题及改进办法
    加密算法
    共享内存与存储映射(mmap)
    mysql索引的性能分析
    mysql索引
    Innodb的存储及缓存
  • 原文地址:https://www.cnblogs.com/zhqian/p/7396140.html
Copyright © 2011-2022 走看看