自己项目用的一个控件,自己封装的

原创 2014年12月01日 15:14:33
unit rzpanelEX;

interface

uses
  SysUtils, Classes, Controls, ExtCtrls, RzPanel,RzLabel,Graphics,RzCommon;

type
  trzpanelEX = class(TRzPanel)
  private

    label_top :TRzLabel;
    label_bg :TRzLabel;
    label_wd :TRzLabel;
    label_sd :TRzLabel;
    label_wdfh,label_sdfh:TRzLabel;
    label_tip1,label_tip2:TRzLabel;
    procedure SetTopText(const value :string);
    function ReadTopText():string;
    function SetDevStatus(value :Boolean):Boolean;
    procedure SetWD(const value:string);
    procedure SetSD(const value:string);
    function ReadWD():string;
    function ReadSD():string;
    function ReadTip1: string;
    function ReadTip2: string;
    procedure SetTip1(const Value: string);
    procedure SetTip2(const Value: string);
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;


  published
    { Published declarations }
    property UTopText:string read ReadTopText write SetTopText;
    property UWDValue:string read ReadWD write SetWD;
    property USDValue:string read ReadSD write SetSD;
    property UTip1value:string read ReadTip1 write SetTip1;
    property UTip2value:string read ReadTip2 write SetTip2;
    procedure SetWDColor(value :Integer);
    procedure SetSDColor(value :Integer);
    //property NullDev:Boolean read SetDevStatus write SetDevStatus;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [trzpanelEX]);
end;

{ trzpanelEX }

constructor trzpanelEX.Create(AOwner: TComponent);
begin
  inherited;
  label_bg := TRzLabel.Create(Self);
  label_bg.Parent := Self;
  label_bg.Left := 2;
  label_bg.Top := 39;
  label_bg.Width := 146;
  label_bg.Height := 72;
  label_bg.AutoSize := False;
  label_bg.Color := $00F0F4F0;
  label_bg.ParentColor := False;
  //label_bg.BringToFront := True;
  label_top := TRzLabel.Create(Self);
  
  label_top.Parent := Self;
  label_top.Left := 8 ;
  label_top.Top := 8;
  label_top.Width := 137;
  label_top.Height := 25;
  label_top.Alignment := taCenter;
  label_top.AutoSize := False;
  label_top.BiDiMode := bdLeftToRight;
  label_top.Caption := #27979#28857'1';
  label_top.Font.Charset := 0;
  label_top.Font.Color := clWindowText;
  label_top.Font.Height := -16;
  label_top.Font.Name := #23435#20307;
  label_top.Font.Style := [];
  label_top.ParentBiDiMode := False;
  label_top.ParentFont := False;
  label_top.Caption := '测点1';

  label_wd := TRzLabel.Create(Self);
  label_wd.Parent := Self;
  label_wd.Left := 43;
  label_wd.Top := 53;
  label_wd.Width := 52;
  label_wd.Height := 16;
  label_wd.AutoSize := False;
  label_wd.Caption := '26.5';
  label_wd.Color := 15791344;
  label_wd.Font.Charset := 0;
  label_wd.Font.Color := clWindowText;
  label_wd.Font.Height := -16;
  label_wd.Font.Name := #23435#20307;
  label_wd.Font.Style := [fsBold];
  label_wd.ParentColor := False;
  label_wd.ParentFont := False;

  label_sd := TRzLabel.Create(Self);
  label_sd.Parent := Self;
  label_sd.Left := 43;
  label_sd.Top := 80;
  label_sd.Width := 52;
  label_sd.Height := 16;
  label_sd.AutoSize := False;
  label_sd.Caption := '45.3';
  label_sd.Color := 15791344;
  label_sd.Font.Charset := 0;
  label_sd.Font.Color := clWindowText;
  label_sd.Font.Height := -16;
  label_sd.Font.Name := #23435#20307;
  label_sd.Font.Style := [fsBold];
  label_sd.ParentColor := False;
  label_sd.ParentFont := False;

  label_wdfh := TRzLabel.Create(Self);
  label_wdfh.Parent := Self;
  label_wdfh.Left := 104;
  label_wdfh.Top := 53;
  label_wdfh.Width := 23;
  label_wdfh.Height := 16;
  label_wdfh.AutoSize := False;
  label_wdfh.Caption := #8451;
  label_wdfh.Color := 15791344;
  label_wdfh.Font.Charset := 0;
  label_wdfh.Font.Color := clWindowText;
  label_wdfh.Font.Height := -16;
  label_wdfh.Font.Name := #23435#20307;
  label_wdfh.Font.Style := [fsBold];
  label_wdfh.ParentColor := False;
  label_wdfh.ParentFont := False;

  label_sdfh := TRzLabel.Create(Self);
  label_sdfh.Parent := Self;
  label_sdfh.Left := 104;
  label_sdfh.Top := 80;
  label_sdfh.Width := 40;
  label_sdfh.Height := 16;
  label_sdfh.AutoSize := False;
  label_sdfh.Caption := '%  ';
  label_sdfh.Color := 15791344;
  label_sdfh.Font.Charset := 0;
  label_sdfh.Font.Color := clWindowText;
  label_sdfh.Font.Height := -16;
  label_sdfh.Font.Name := #23435#20307;
  label_sdfh.Font.Style := [fsBold];
  label_sdfh.ParentColor := False;
  label_sdfh.ParentFont := False;

  label_tip1 := TRzLabel.Create(Self);
  label_tip1.Parent := Self;
  label_tip1.Left := 8;
  label_tip1.Top := 116;
  label_tip1.Width := 65;
  label_tip1.Height := 13;
  label_tip1.AutoSize := False;
  label_tip1.Caption := 'SP1 23';

  label_tip2 := TRzLabel.Create(Self);
  label_tip2.Parent := Self;
  label_tip2.Left := 8;
  label_tip2.Top := 132;
  label_tip2.Width := 65;
  label_tip2.Height := 13;
  label_tip2.AutoSize := False;
  label_tip2.Caption := 'SP2 100';

  Width := 150;
  Height := 150;
  Color := $00F8E8C7;
  BorderInner := fsFlatRounded;
  BorderOuter := fsNone;
end;

destructor trzpanelEX.Destroy;
begin

  inherited;
end;


function trzpanelEX.ReadSD: string;
begin
  Result := label_sd.caption;
end;


function trzpanelEX.ReadTopText: string;
begin
  Result := label_top.Caption;
end;

function trzpanelEX.ReadWD: string;
begin
  Result := label_wd.Caption;
end;

function trzpanelEX.SetDevStatus(value: Boolean): Boolean;
begin
  if value then
  begin

  end
  else
  begin

  end;
  Result := value;   
end;

procedure trzpanelEX.SetSD(const value: string);
begin
  label_sd.Caption := value;
end;

function trzpanelEX.ReadTip1: string;
begin
  Result := label_tip1.Caption;
end;

function trzpanelEX.ReadTip2: string;
begin
  Result := label_tip2.Caption;
end;
procedure trzpanelEX.SetTip1(const Value: string);
begin
  label_tip1.Caption := Value;
end;

procedure trzpanelEX.SetTip2(const Value: string);
begin
  label_tip2.Caption := Value;
end;

procedure trzpanelEX.SetTopText(const value: string);
begin
  label_top.Caption := value;
end;

procedure trzpanelEX.SetWD(const value: string);
begin
  label_wd.Caption := value;
end;

procedure trzpanelEX.SetWDColor(value: Integer);
begin
  label_wd.Font.Color := value;
end;

procedure trzpanelEX.SetSDColor(value: Integer);
begin
  label_sd.Font.Color := value;
end;

end.

相关文章推荐

Delphi7高级应用开发随书源码

  • 2003年04月30日 00:00
  • 676KB
  • 下载

获取硬件信息的delphi源码(CPUID、操作系统、Mac物理地址、计算机名称、IP地址、用户名)

转载请保留本文链接地址:http://blog.csdn.net/sushengmiyan/article/details/8545673 {----------------------------...

Delphi 资源文件 Dll

一.编写 RC 脚本文本   用记事本或其它文本编辑器编写一个扩展名为“.rc”的文件。格式如下:   AVI 无声动画   BITMAP 位图文件   CURSOR 光标文件 ...

Github项目解析(十二)-->一个简单的多行文本显示控件

本文我们将讲解一个使用的多行文本显示控件,在实际开发过程中我们时常会遇到这种需求:有两个TextView控件分行显示,当第一个TextView的内容过多一行显示不下时,我们需要将第二个TextView...

如何从github中向eclipse导入一个开源项目(自定义控件)

将开源项目导入eclipse中      前提:已经将目标文件从github中下载到本地。 1.实现步骤:      1.先导lib包:      2.再导samp...

在项目中使用一个像IOS风格的日期控件

项目中需要做成这样的效果: 这是使用ios组件来实现的。 而我们AndroidSDK中提供的组件 DatePicker如下 查了一下文档发现没有提供可插拔的接口,也就是不好直接通...

项目一:各个控件使用大杂烩(说明:这不是一个真正的项目,是分开的16个工程)

一、说明:        该项目是对控件使用的集合整理,并不是真正意义上的项目,但从代码量来说差不多了。哈哈,上传的目的也是为了自己的复习、并分享给大家。这个项目使用到的知识可以看以下截图,注意,工程...

封装一个.net的分页控件

  • 2010年07月05日 17:56
  • 67KB
  • 下载

优秀自定义控件开源项目推荐:让你的app提升一个档次-Android酷炫自定义控件

Github地址链接:优秀自定义控件开源项目推荐 这是我近期整理的比较酷炫并且我们会经常用到的custom view,也有一些不是custom view,但是也是android UI相关的,实现...
  • xhmj12
  • xhmj12
  • 2016年11月25日 11:11
  • 558
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:自己项目用的一个控件,自己封装的
举报原因:
原因补充:

(最多只允许输入30个字)