mainfrm.pas

网上找到的LED模拟显示,都只能显示数字和字母.但我这个是可以显示简繁体中文的.可以调节显示的点数象素,还有显示速度选择.

unit MainFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ChLed, ExtCtrls, ShellAPI;

type
  TMainForm = class(TForm)
    ChLed1: TChLed;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    ScrollBar1: TScrollBar;
    Label3: TLabel;
    ScrollBar2: TScrollBar;
    Label4: TLabel;
    ScrollBar3: TScrollBar;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    ColorDialog1: TColorDialog;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Label8: TLabel;
    ComboBox1: TComboBox;
    Label9: TLabel;
    ScrollBar4: TScrollBar;
    Image1: TImage;
    procedure Edit1Change(Sender: TObject);
    procedure ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;
      var ScrollPos: Integer);
    procedure ScrollBar2Scroll(Sender: TObject; ScrollCode: TScrollCode;
      var ScrollPos: Integer);
    procedure ScrollBar3Scroll(Sender: TObject; ScrollCode: TScrollCode;
      var ScrollPos: Integer);
    procedure Panel1Click(Sender: TObject);
    procedure Panel2Click(Sender: TObject);
    procedure Panel3Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ScrollBar4Scroll(Sender: TObject; ScrollCode: TScrollCode;
      var ScrollPos: Integer);
    procedure FormCreate(Sender: TObject);
    procedure Image1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.Edit1Change(Sender: TObject);
begin
  ChLed1.Text:=Edit1.Text;
end;

procedure TMainForm.ScrollBar1Scroll(Sender: TObject;
  ScrollCode: TScrollCode; var ScrollPos: Integer);
begin
  ChLed1.CellSize:=ScrollPos;
end;

procedure TMainForm.ScrollBar2Scroll(Sender: TObject;
  ScrollCode: TScrollCode; var ScrollPos: Integer);
begin
  ChLed1.CellDistance:=ScrollPos;
end;

procedure TMainForm.ScrollBar3Scroll(Sender: TObject;
  ScrollCode: TScrollCode; var ScrollPos: Integer);
begin
  ChLed1.BorderWidth:=ScrollPos;
end;

procedure TMainForm.Panel1Click(Sender: TObject);
begin
  ColorDialog1.Color:=Panel1.Color;
  if ColorDialog1.Execute then begin
    Panel1.Color:=ColorDialog1.Color;
    ChLed1.ForeColor:=Panel1.Color;
  end;
end;

procedure TMainForm.Panel2Click(Sender: TObject);
begin
  ColorDialog1.Color:=Panel2.Color;
  if ColorDialog1.Execute then begin
    Panel2.Color:=ColorDialog1.Color;
    ChLed1.ShadowColor:=Panel2.Color;
  end;
end;

procedure TMainForm.Panel3Click(Sender: TObject);
begin
  ColorDialog1.Color:=Panel3.Color;
  if ColorDialog1.Execute then begin
    Panel3.Color:=ColorDialog1.Color;
    ChLed1.BackColor:=Panel3.Color;
  end;
end;

procedure TMainForm.ComboBox1Change(Sender: TObject);
begin
  ChLed1.TextAlign:=TTextAlign(ComboBox1.ItemIndex);
end;

procedure TMainForm.ScrollBar4Scroll(Sender: TObject;
  ScrollCode: TScrollCode; var ScrollPos: Integer);
begin
  ChLed1.ScrollSpeed:=ScrollPos;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  Edit1.Text:='欢迎使用TChLed！';
  ScrollBar1.Position:=ChLed1.CellSize;
  ScrollBar2.Position:=ChLed1.CellDistance;
  ScrollBar3.Position:=ChLed1.BorderWidth;
  Panel1.Color:=ChLed1.ForeColor;
  Panel2.Color:=ChLed1.ShadowColor;
  Panel3.Color:=ChLed1.BackColor;
  ComboBox1.ItemIndex:=Integer(ChLed1.TextAlign);
  ScrollBar4.Position:=ChLed1.ScrollSpeed;
end;

procedure TMainForm.Image1Click(Sender: TObject);
begin
  ShellExecute(Handle,'Open','http://www.tonixsoft.com','','',SW_SHOW);
end;

end.