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

逍遥派掌门人

接续4
===================================================
这里是关键点了，看好：

添加：  

2. procedure paint; override;  

复制代码

放到   public  关键字下

添加代码：

2. procedure Tled.paint;      
3. begin
4.   with canvas do
5.   begin
6.     Brush.Style := FBackStyle;
7.     Brush.Color := FBackColor;
8.     Pen.Color   := FBackColor;
9.     EllipseC(self.Width div 2,self.Height div 2,self.Width div 2, self.Height div 2);
11.     Brush.Style := FForeStyle;
12.     Brush.Color := FForeColor;
13.     Pen.Color   := FForeColor;
14.     EllipseC(self.Width div 2,self.Height div 2,self.Width div 3, self.Height div 3);
15.   end;
17.   inherited Paint;
18. end;

复制代码

=================================================================
然后 compile -- install ..................

弄几个效果图：


讲到这里，也该有人交作业了吧？

逍遥派掌门人

接续5
===================================================
让灯闪烁起来：

添加：  

2.            LedTimer   : TTimer;
3.            fInterval  : longint;
4.            fflash     :  boolean;
5.    
6.           procedure SetInterval(CValue : longint);
7.           procedure SetFlash(CValue : boolean);
8.           procedure TOnLedTimer(Sender: TObject);

复制代码

      
          放到 private 关键字下；

添加：

2.              procedure CreateTimer;
3.              procedure FreeTimer;

复制代码

            放到 protected 关键字下；

添加属性：

2.                 property Interval : longint read fInterval write SetInterval;
3.                 property flash     : boolean read fflash write SetFlash;

复制代码

             放到 published 关键字下；

在控件的构建里添加：

2.             fInterval:=1000;
3.             fflash:=false;
4.             CreateTimer;

复制代码

在控件的析构里添加：

2.             FreeTimer;

复制代码

添加代码：

2.    procedure TLed.CreateTimer;
3. begin
4.     LedTimer := TTimer.Create(Self);
5.     LedTimer.Interval := fInterval;
6.     LedTimer.Enabled:=false;
7.     LedTimer.OnTimer:=@TOnLedTimer;
8. end;
10. procedure TLed.FreeTimer;
11. begin
12.     LedTimer.Enabled:=false;
13.     LedTimer.Free;
14. end;
16. procedure TLed.TOnLedTimer(Sender: TObject);
17. begin
18.   FForeColor:=not FForeColor;
19.   Refresh;
20. end;
22. procedure TLed.SetInterval(CValue: longint);
23. begin
24.      fInterval := CValue;
25.      if (Assigned(LedTimer)) then LedTimer.Interval := CValue;
26. end;
28. procedure TLed.SetFlash(CValue: boolean);
29. begin
30.      fflash := CValue;
31.      if (Assigned(LedTimer)) then LedTimer.Enabled := fflash;
32. end;

复制代码

====================================================
控件的代码基本完成，对控件包进行 “Compile” 和 “install” 。

成品的构件放到form上后显示的特性：



        设置属性 flash:=true; 即可让LED闪烁；
        设置属性 flash:=false; 即可让LED停止闪烁。

=======================================================
本控件的创建讲解完毕，如果感兴趣的话，可以自行添加新的特性。

delphicn

没人交作业，我来交作业吧,这个是已经完成的控件。在lazarus 0.9.30.2+fpc2.4.4中测试通过。

hjfdark

包里的lrs文件是怎么做的？

逍遥派掌门人

hjfdark:包里的lrs文件是怎么做的？ (2012-09-15 07:14) 

《LAZARUS实战宝典》有详细的讲解。