lazarus-ccr/components/industrialstuff/Example/LCDDisplay/CharDefsEditor/untMain.pas

unit untMain;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
  indLCDDisplay, indLCDDisplay_Editor;

type
  
  { TfrmMain }

  TfrmMain = class(TForm)
    Button1: TButton;
    LCDDisplay1: TLCDDisplay;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Memo1Change(Sender: TObject);
  private

  public

  end;

var
  frmMain: TfrmMain;

implementation

{$R *.lfm}

{ TfrmMain }

procedure TfrmMain.Button1Click(Sender: TObject);
begin
  EditCharDefs(LCDDisplay1);
end;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  LCDDisplay1.Lines.Assign(Memo1.Lines);
end;

procedure TfrmMain.Memo1Change(Sender: TObject);
begin
  LCDDisplay1.Lines.Assign(Memo1.Lines);
end;


end.