˹á
 úҹ
  C/C++ new
  Java new
 Sourcecode.TV
  Android
  Blackberry
  C/C++
  Java
  Linux
  Windows Phone
  ͧͧ
 
  .NET
  Android
  Blackberry
  C++Builder
  Delphi
  Java
  Mobile
  Open Source
  Pocket PC
  Visual Basic
  Web
  Windows Phone
  Others
 Ẻ¹
  ASP
  ASP.NET Webmatrix
  C++
  eVB
  J2ME
  Java
  PHP
 
  Android
  ASP
  C++
  VC++
  CGI-Perl
  Delphi
  Java
  jQuery
  PHP
  Visual Basic
  .NET
 ԡèҡ
  Դ...
  DoodeeHosting
  Ѻ͡Ẻ Ѳ䫵
  Freeware
  ѵҤɳ
  ª١
  ʶԵԼ
 Ŵ
 Ң
 дҹʹ
  .NET
  C/C++
  Delphi
  Java
  Palm/PocketPC
  Visual Basic
  Web
 
 дҹҹ
 ԧ
 ǡѺ
 ѵҤɳ
Social Network

Facebook  Twitter  YouTube
 New Article
 Webboard
 Freelanceboard
Freeware
 (BerDee)
(Android)
駩غ
駩غ(Android)
WebcamMonitor
WebcamMonitor(Windows)
scSendMail
scSendMail(Windows)
MSN Caption
MSN Caption(Windows)
  Freelance comment
  ԴͺʹФѺ...
2015-07-29 13:35:58
  Ҽͧ纷ѲҴ HTML5 ...
2015-01-18 15:33:54
  Ҽͧ纷ѲҴ HTML5 ...
2015-01-18 15:32:51
  ԴͺФѺ
ҹ...

2014-01-06 12:47:38
  ѧҤ͹ ͧ֡ͧ...
2013-07-06 01:04:37
  ʹ觢ͺࢵҤҤҡ͹ФѺ...
2013-03-24 18:54:20
  ѧդѺҹԴѺ 08...
2012-12-16 19:18:14
  ʹ㨤 Դ 0905076277...
2012-11-12 11:07:46
  Ѻ礹ѡ֡ͺѷ
...

2012-10-29 03:10:46
  sukit_te34@hotmail.com...
2012-10-29 03:09:36
  Webboard comment
  ͧ gotoxy ѧ...
2017-08-28 11:45:52
  ͧҧա u...
2017-08-27 20:09:01
  #define GLUT_DISABLE_ATEXIT...
2017-08-27 12:53:17
  դԻ͹ ...
2017-08-27 10:50:02
  Ѻ ͹ matlab ¹ matlab...
2017-06-03 16:27:23
  ੾зҧҴ ͧҢ...
2017-05-25 16:18:08
  ͧ˹Ѻ os ...
2017-05-25 16:12:47
  ¹ php curl ...
2017-04-20 01:04:20
  ¹ ...
2017-03-27 12:50:54
  ʧҷ ͧѾഷ...
2017-03-27 12:37:20
  Homework comment
  ͺسҡѺ...
2017-08-16 18:27:25
  ͧ ͧ ѧ ^^...
2017-04-18 18:40:46
  ͧ ͧ ѧ ^^...
2017-04-18 18:37:54
  á flowchart ѹ...
2017-04-18 17:43:33
  ҡ flowchart ...
2017-04-18 16:25:29
  kungking ӶäѺ ?...
2017-03-18 23:28:36
  ¹ʴͧ...
2017-03-06 10:56:25
  鴷ӧҹẺ ...
2016-09-06 01:00:12
  ҡҺ鴹Ѻѧ...
2016-09-05 09:31:27
  ͧ֡¹...
2016-04-22 00:47:49
  Article comment
  [b] , ...
2017-10-20 10:05:06
  [b]5 ...
2017-10-18 08:19:17
  - ...
2017-10-18 07:17:11
  [b] ...
2017-10-18 06:07:31
  [b] 96 ...
2017-10-18 06:05:28
  - ...
2017-10-18 05:49:56
  code ͧ VB ú...
2017-09-28 16:50:02
  ҨѺ ͧ
...

2017-07-11 09:59:35
  ö͡Ѻ anycast ...
2017-07-05 10:12:35
  Ѻ س "Դ" ͧ֡...
2016-06-18 15:21:09
  9Mcode comment
  ҡ...
2014-02-21 08:52:19

Link Exchange

ѵҤɳ
Statistics of Sourcecode in Thailand
 
ҧ LED Control (ҹ 23,974)
Ԩ ͧ (9'M) : Ԩ ͧ (9'M)
e-mail: webmaster@sourcecode.in.th
mobile: 09-5009-5351
Line: suppakit.thongdee
Youtube: 9Mcode
Fanpage: Sourcecode.in.th
   
: Ŵҧ (Ŵ 4,210 )

- - - - - - - - - - - - - - ʹѺʹع- - - - - - - - - - - - - -

 
 
FreelanceѺѲ 9'M 

繵ҧҧ LED (Light effect diode) Control դö㹡á˹ Դ-Դ Event Onchange աԴԴ Ѻ LED Control

鹡ҧ Դ Borland Delphi 鴵ҧ Delphi 6 Ѻ

1. Դ Delphi Ҩлҡ Project سӡ Unit ͡ҡ File->New->Unit лҡ˹ҵҧ Unit ѧٻ

2. ӡ鴴ѧҧŧ Unit2

unit Unit2;

interface
uses Controls,Graphics,Classes,Types;

type
 TLED = class(TGraphicControl)
 private
   FOnColor: TColor;
   FOffColor: TColor;
   FLedOn: Boolean;

   FOnChange: TNotifyEvent;

   procedure SetLedOn(Value: Boolean);
   procedure SetOnColor(Value: TColor);
   procedure SetOffColor(Value: TColor);

   procedure DrawLedEllipse;

 protected
   procedure Paint; override;
   procedure DoChange; virtual;

 public
   constructor Create(AOwner: TComponent); override;

 published
   property OnColor: TColor read FOnColor write SetOnColor;
   property OffColor: TColor read FOffColor write SetOffColor;
   property LedOn: Boolean read FLedOn write SetLedOn;

   property Visible;

   property OnChange: TNotifyEvent read FOnChange write FOnChange;
 end;

implementation

{ TLED }

constructor TLED.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FOnColor := clLime;
  FOffColor := clRed;
  FLedOn := false;

  width := 24;
  height := 24;

end;

procedure TLED.DoChange;
begin
  if Assigned(FOnChange) then FOnChange(self);

end;

procedure TLED.DrawLedEllipse;
var R: TRect;
    off: Integer;
begin
  R := ClientRect;
  if Height>Width then
    off := Width div 5
  else
    off := Height div 5;


  with Canvas do
  begin
    Pen.Color :=Canvas.Brush.Color;
    Ellipse(R.Left,R.Top,R.Right,R.Bottom);

    //3D effect
    Pen.Color := clWhite;
    Brush.Color := clWhite;
    Chord(R.Left+off, R.Top+off,
          R.Right-off, R.Bottom-off,
          R.Right div 2, R.Top+off,
          R.Left+off, R.Bottom div 2); 
  end;

end;

procedure TLED.Paint;
begin
  inherited;
  if  FLedOn then
    Canvas.Brush.Color := FOnColor
  else
    Canvas.Brush.Color := FOffColor;

  DrawLedEllipse;

end;

procedure TLED.SetLedOn(Value: Boolean);
begin
  if Value<>FLedOn then
  begin
    FLedOn := Value;
    Refresh;
    DoChange;
  end;
end;

procedure TLED.SetOffColor(Value: TColor);
begin
  if FOffColor<>Value then
  begin
    FOffColor := Value;
    Refresh;
  end;

end;

procedure TLED.SetOnColor(Value: TColor);
begin
  if FOnColor<>Value then
  begin
    FOnColor := Value;
    Refresh;
  end
end;

end.

3. ӡ unit2 unit1 ö¡ LED Control unit2 ¡ unit1 ѧٻ ǹͧûСȵ LED Ѻҧ Control ѧٻӴѺ

4. ӡ ѺŤԡ Form1 ǻ͹鴴ѧҧ

procedure TForm1.FormCreate(Sender: TObject);
begin
  LED :=TLED.Create(Self);
  LED.Parent :=Self;
  
end;

5. ԡ͡ Form1 ӡŧ ǷӡôѺŤԡ ǻ͹鴴ѧ

procedure TForm1.Button1Click(Sender: TObject);
begin
  LED.LedOn := not LED.LedOn; 
end;

6. ͺ ¡ F9 Ƿͧԡ лҡ LED Control ѧٻ 鷴ͧԡ 繡÷ӧҹ ͧ LED Control ӡҧ

س 㹡ҧ LED Control 㹺 ӡҧ Class ·ӡ׺ʹ öФسѡɳеҧ ͧ TGraphicControl ѧҡ鹡 ӡ¹Ѵ ǹͧ Control ҵͧ

ҵͧ¡ Class ѧǷ unit2 ҡ§ unit2 uses ͧ unit1 ҡӡûСȵ LED 繵Ẻ TLED

ա Create ͧ Form1 ѧҡҷӡá F9 run ,Ҩзӡҧ LED Control ʴ͡ҷ˹ Form1 ҷӡäԡ ա¹ŧͧ Control ʴ繤Ѻ

ҡ سҨ任ءҹ ҧ Control Ѻͧس ǾѹѺ 9M

: Ŵҧ (Ŵ 4,210 )
 

- - - - - - - - - - - - - - ʹѺʹع- - - - - - - - - - - - - -

ͺ
´

 
 
µͨ Ѻͧ macbook pro 2016 (usb-c to HDMI)
µͨ Ѻͧ macbook pro 2016 (usb-c to HDMI) ´дѺ 4K
ŧ Mini DisplayPort to HDMI Adapter ŧ Mini DisplayPort to HDMI Adapter Ѻͧ macbook air/pro, mac mini
ŧ Mini DisplayPort to HDMI Adapter Ѻͧ macbook air/pro, mac mini
µٿѧ Ъ Ѻ iPhone 7  7 Plus
µٿѧ Ъ Ѻ iPhone 7 7 Plus
ŧҡ USB-C Type  USB 3.1 Ѻ MacBook
ŧҡ USB-C Type USB 3.1 Ѻ MacBook
䢤ǧѺͧ Macbook Air/Pro
䢤ǧ Ѻͧ Macbook Air/Pro (300ҷ)
HDMI  3 ͡  1
HDMI 3 ͡ 1 (350ҷ)
Ի͹¹
¹¹ͷ
¹¹͹´
¹¹
¹¹ վʾ
¹¹
¹ҹԹء
¹¹Թ⿹
¹¹Ϊ ʤ
9M Blog ͧ͡ ¹ͧ
ԡ ҾѺԭ
OrmSin.com: ˹ѧͧҹ--չ (country crafts)
ѵҤɳ
 
Ǣͧ

Zoom ˹Ҩʹ Delphi

What?s new in Delphi 2005 #1 ( for ?in loop statement)

Dynamic Cast Delphi

¹ Run ͹ Startup Windows

¹ ActiveForm(ActiveX Control) ͧ

Post ѧ ASP

ʴŢ IP Address ͧͧ NetWork

ʴª Email Contact ͧ Microsoft Outlook

ҵ˹觢ͧ Caret Memo

¹ Service Application ҹ Windows NT/2000/XP
Tutorial
eVB Tutorial
ASP.NET Webmatrix Tutorial
J2ME Tutorial
C++  Tutorial
Java  Tutorial
PHP Tutorial
ASP Tutorial
 
ẺǨ
Freelance ѺѲ

Home - Article - Tutorial - Sourcecode - Dev Handbook - Search - WebBoard - Links - About Us

ʧǹԢԷ Ѵ͡ ӫ Ѵŧ ٻẺ Ѻ͹حҵѡɳѡ
Ţ¹ҳԪ硷͹ԡҡзǧҳԪ: 7100503002000
Copyright 2001 SourceCode.in.th