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

原创 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.

原创 自己封装的js alert 和confirm 利用jquery dialog

下面是封装的代码:function alert(message){    if ($("#dialogalert").length == 0) {        $("body").append();...
  • xiang588
  • xiang588
  • 2009年01月03日 11:26
  • 2790

alert、confirm封装

  • 2014年09月11日 18:13
  • 7KB
  • 下载

将Dev的皮肤封装在包中

Dev的皮肤导致编译的执行文件比较大,所以如果能将皮肤代码封装在包中,在需要的时候以插件的形式载入,则不会影响执行文件的尺寸了.通过测试发现把如下单元加入到运行时包中,并在主程序中调用LoadPaka...
  • henreash
  • henreash
  • 2011年12月15日 11:28
  • 2285

将ocx和DLL文件打包成cab文件,实现IE浏览器在线安装

我们打开淘宝等网站时,IE浏览器会提示安装空间,这个控件便是用于对用户名密码进行加密的ActiveX控件。如何在我们的站点上安装如此控件,让用户可以通过简单的点击便可方便使用我们的空间呢?下面是如何让...
  • wangjingfei
  • wangjingfei
  • 2010年03月25日 18:36
  • 16803

WTL入门(4)--- 对话框和控件

[源代码下载:http://download.csdn.net/source/3522801] MFC中,对话框和控件的封装节省了我们大量的时间和成本,否则我们需要编写大量的消息处理来管理各个控件。...
  • wcyoot
  • wcyoot
  • 2011年08月10日 10:28
  • 6317

自己封装一个插件化框架

一 概述研究了一下滴滴开源的插件化框架,感觉功能挺强大的,于是就想自己动手也封装一个,不过相对于滴滴是支持四大组件的,我这里就只对activity做了支持.要想知道怎么加载一个插件的activity,...
  • totcw
  • totcw
  • 2017年07月26日 17:49
  • 3208

react 组件库封装(一)

打算封装一套控件库来满足后台系统开发。 比如调用封装的GoLayOut控件,import {GoLayout} from '../../components/goingComponent'其实这里访...
  • weiyongliang_813
  • weiyongliang_813
  • 2017年07月19日 14:30
  • 324

闲来无事,将自己收集到的工具类封装了下,做了一个lib,写了个简单的mvp,初学者可以看看

最近公司事务较少,自己将收集到的一些工具类,封装了下,整理出一个lib 由于最近mvp模式盛行,写了个简单MVP的demo,提供大家学习...
  • mengdongdew
  • mengdongdew
  • 2017年05月24日 16:41
  • 134

封装一个自己的mvc框架

1. 首先我们要有一个封装mvc的流程 2. 写入口文件
  • shiyang1231
  • shiyang1231
  • 2016年12月24日 15:07
  • 2007

如何封装一个自己的mvc框架(二)

1.首先需要写一个开口文件 主要包括以下几点  1.定义常量(路由)  2.加载类库  3.启动框架 /**  * 1.入口文件  * 2.定义常量(路由)  * 3....
  • baidu_36030459
  • baidu_36030459
  • 2016年12月24日 17:05
  • 381
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:自己项目用的一个控件,自己封装的
举报原因:
原因补充:

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