开源控件大家做（1） 闪烁的LED灯

逍遥派掌门人

先从简单的开始做吧，就选LED灯。
==========================================
功能需求：
               1、能够变化灯的颜色
               2、可以定时闪烁，定时的长短可以动态调整
===========================================
提供的属性：
              1、前景色
               2、背景色
               3、定时长短
               4、开始、停止闪烁
============================================
郑重声明： 本开源控件可以任意使用。
                     但该控件及相关文字表述仅授权《LAZARUS实战宝典》用于文字出版，其它出版物不得登载。

逍遥派掌门人

上模型。
该模型只是在Lazarus里注册了LED灯控件，具体的代码，接续。。。。



注意；这个是更新过的，请重新下载。

aaa

这个工程是如何建立的？能给个教程么？laz网站有控件制作的教程么？

逍遥派掌门人

很快就放出做控件的教程了，是《LAZARUS实战宝典》其中的章节。

当然，官方网站也有介绍，但我看那些还不能够很好做出控件。后来根据自己的实战经验，
写了这个章节，感觉做控件比较容易了。

如果你参加这个控件的设计，能获得更多的实际体验。
这些项目，其实也是在教授如何制作控件。

逍遥派掌门人

实现方式的思考
===================================
大致有以下的方法可以实现LED灯的显示：
  1、动态绘制
  2、通过图片显示
===================================
上面的显示的载体形式：
    1、继承Timage
    2、创建画布

上面的模型选择了形式2，故接续的内容均默认该形式。

逍遥派掌门人

接续1
===================================================
添加控件的基本函数，
放在控件的public 关键字下面进行声明 ：
    （1） 构建函数

2.                constructor Create(AOwner: TComponent); override;

复制代码

    （2） 析构函数

2.                destructor Destroy; override;

复制代码

放在控件的 protected 关键字下面进行声明 ：
    （3） 画布载体的创建

2.                 procedure Createmap;

复制代码

    （4） 画布载体的释放

2.                 procedure Freemap;

复制代码

-----------------------------------------------------------------------------------------
在 implementation   关键字 和 procedure Register 过程中间添加：

2. constructor Tled.Create(AOwner:TComponent);
3. begin
4.   inherited Create(AOwner);
6. end;
8. destructor TLed.Destroy;
9. begin
10.   inherited;
11. end;
13. procedure Tled.Createmap;
14. begin
16. end;
18. procedure Tled.Freemap;
19. begin
21. end;

复制代码

poseidon99

运行不了，我的工程扩展名是lpi，怎么回事

逍遥派掌门人

前面的是控件包，解压缩后，需要这样调入：

逍遥派掌门人

接续2
===================================================
给LED加点特性：

2.     FBackColor :Tcolor;       // 前景色
3.     FForeColor :Tcolor;       //  背景色
5.     FBackStyle : TFPBrushStyle;    // 前景填充模式
6.     FForeStyle : TFPBrushStyle;    // 背景填充模式

复制代码

改变以上特性的函数：

2.    procedure SetBackColor(CValue: TColor);         // 改变前景色
3.     procedure SetForeColor(CValue: TColor);        // 改变背景色
5.     procedure SetBackStyle(CValue: TFPBrushStyle);  // 改变前景填充模式
6.     procedure SetForeStyle(CValue: TFPBrushStyle);  // 改变背景填充模式

复制代码

   以上的内容都放在关键字：private  的下面。
-------------------------------------------------------------------------
   再把以上的特性加入到IDE，方便看到即时的效果：

2.     property BackColor: TColor Read FBackColor Write SetBackColor default clWhite;
3.     property ForeColor: TColor Read FForeColor Write SetForeColor default clBlack;
5.     property BackStyle: TFPBrushStyle Read FForeStyle Write SetBackStyle default bsSolid;
6.     property ForeStyle: TFPBrushStyle Read FForeStyle Write SetForeStyle default bsSolid;

复制代码

    以上这些放到关键字： published 的下面。

逍遥派掌门人

接续3
===================================================
添加改变特性的函数：

2. procedure Tled.SetBackColor(CValue: TColor);
3. begin
4.   if CValue <> FBackColor then
5.   begin
6.     FBackColor := CValue;
7.     Refresh;
8.   end;
9. end;
11. procedure Tled.SetForeColor(CValue: TColor);
12. begin
13.   if CValue <> FForeColor then
14.   begin
15.     FForeColor:= CValue;
16.     Refresh;
17.   end;
18. end;
20. procedure Tled.SetBackStyle(CValue: TFPBrushStyle);
21. begin
22.   if CValue <> FBackStyle then
23.   begin
24.     FBackStyle := CValue;
25.     Refresh;
26.   end;
27. end;
29. procedure Tled.SetForeStyle(CValue: TFPBrushStyle);
30. begin
31.   if CValue <> FForeStyle then
32.   begin
33.     FForeStyle := CValue;
34.     Refresh;
35.   end;
36. end;         

复制代码