unit1.pas

delphi LED 显示屏用,带串口发送,内容编辑,演示功能

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtDlgs, StdCtrls, Buttons, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label2: TLabel;
    Edit1: TEdit;
    Bevel1: TBevel;
    SpeedButton1: TSpeedButton;
    Button1: TButton;
    Button2: TButton;
    OpenPictureDialog1: TOpenPictureDialog;
    procedure SpeedButton1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses frmtp;

{$R *.DFM}

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
    OpenPictureDialog1.Filter:='Bitmaps (*.bmp)|*.bmp';
    if OpenPictureDialog1.Execute then
    begin
        edit1.Text:=OpenPictureDialog1.FileName;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    frmtpsend.myedit1.SetCells(6,frmtpsend.myedit1.Selectbmpno,edit1.text);
    if RadioButton1.Checked then
        frmtpsend.myedit1.SetCells(5,frmtpsend.myedit1.Selectbmpno,'1')
    else frmtpsend.myedit1.SetCells(5,frmtpsend.myedit1.Selectbmpno,'2');
    close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    if frmtpsend.myedit1.addflag then
    begin
        frmtpsend.myedit1.deleteimage(frmtpsend.myedit1.Selectbmpno);
        frmtpsend.myedit1.Selectbmpno:=-1;
    end;
    close;
end;

end.