• XE 画矩形实现拖拉改变大小(属性)


    实现原理:

    1.拖一个rectangle控件,Align属性为TOP

    2.拖一个Split控件,Align为Top

    3.拖Rectangle,Align为Bottom

    4.拖Split,Align为Bottom

    5.左边、右边依次类推,

    6.最后拖一个Rectangle,Align为Client,Stroke属性中的Color为red。

    具体代码:

    unit UnitCheckIPN;
    
    interface
    
    uses
      System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
      FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
      FMX.Objects, FMX.Controls.Presentation;
    
    type
      TForm2 = class(TForm)
        RT: TRectangle;  //RectTop
        ST: TSplitter;
        RL: TRectangle;
        SL: TSplitter;
        RB: TRectangle;
        SB: TSplitter;
        RR: TRectangle;
        SR: TSplitter;
        Rect: TRectangle;
        Image1: TImage;
        Button1: TButton;
        Button2: TButton;
        Button3: TButton;
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
        procedure Button3Click(Sender: TObject);
      private
        { Private declarations }
        procedure SetRect(s:String);
        function GetRC: String;                   // 获取   获取当前矩形的位置
        procedure SetRC(const Value: String);     // 设置   给定x,y,w,h   矩形自动改变位置
      public
        { Public declarations }
        property RC: String read GetRC write SetRC;  // 将矩形的值设为属性,读为获取rect的(x,y,width, height)   写时为设置矩形的x,y,w,h
      end;
    
    var
      Form2: TForm2;
    
    implementation
    
    {$R *.fmx}
    
    procedure TForm2.Button1Click(Sender: TObject);
    begin
      RC:='103,128,301,203';      //
    end;
    
    procedure TForm2.Button2Click(Sender: TObject);
    begin
      ShowMessage(RC);            //
    end;
    
    procedure TForm2.Button3Click(Sender: TObject);
    begin
      RC:='103,128,394,203';
    end;
    
    function TForm2.GetRC: String;
    var
      x,y,w,h : Single;
    begin
      result:='';
      y:=RT.Height+ST.Height;
      h:=Image1.Height - RT.Height - ST.Height - RB.Height - SB.Height;
    
      x:=RL.Width+SL.Width;
      w:=Image1.Width-RL.Width-SL.Width-RR.Width-SR.Width;
    
      result:=x.ToString()+','+y.ToString()+','+w.ToString()+','+h.ToString();
    end;
    
    procedure TForm2.SetRC(const Value: String);
    var
      ss: TStringList;
      x,y,w,h: Integer;
    begin
      ss:=TStringList.Create;
      ss.CommaText:=Value;
      x:=ss[0].ToInteger();
      y:=ss[1].ToInteger();
      w:=ss[2].ToInteger();
      h:=ss[3].ToInteger();
      ss.Free;
    
      RT.Height:=y-ST.Height;
      RB.Height:=Image1.Height-(RT.Height + ST.Height + h + SB.Height);
    
      RL.Width:=x-SL.Width;
      RR.Width:=Image1.Width-(RL.Width+SL.Width+w+SR.Width);
    end;
    
    procedure TForm2.SetRect(s: String);
    var
      ss: TStringList;
      x,y,w,h: Integer;
    begin
      ss:=TStringList.Create;
      ss.CommaText:=s;
      x:=ss[0].ToInteger();
      y:=ss[1].ToInteger();
      w:=ss[2].ToInteger();
      h:=ss[3].ToInteger();
      ss.Free;
    
      RT.Height:=y-ST.Height;
      RB.Height:=Image1.Height-(RT.Height + ST.Height + h + SB.Height);
    
      RL.Width:=x-SL.Width;
      RR.Width:=Image1.Width-(RL.Width+SL.Width+w+SR.Width);
    end;
    
    end.
    

     这里充分理解了属性,见证了属性的强大,好好学习,再接再厉。

  • 相关阅读:
    CSS布局 ——从display,position, float属性谈起
    svchost.exe启动服务原理(如何查看系统服务究竟启动了哪个文件)
    简单模拟多线程Socket通信(java)
    把爱融入程序——程序,源自生活,高于生活
    SQL LIKE语句多条件贪婪匹配算法
    SQL多条件模糊查询解决方案(类似百度搜索)
    SQL LIKE语句多条件贪婪加权匹配算法(改进版)
    Foxmail添加微软最新outlook.com邮箱解决方案
    SQL LIKE语句多条件贪婪加权匹配(新增必要词指定)
    搜索的艺术——搜索引擎使用心得
  • 原文地址:https://www.cnblogs.com/studypanp/p/4930471.html
Copyright © 2020-2023  润新知