53 lines
826 B
ObjectPascal
53 lines
826 B
ObjectPascal
unit Unit1;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
|
|
StdCtrls, ATSynEdit, ATSynEdit_Edits, LCLType;
|
|
|
|
type
|
|
{ TfmMain }
|
|
|
|
TfmMain = class(TForm)
|
|
ATComboEdit1: TATComboEdit;
|
|
ed: TATSynEdit;
|
|
Panel1: TPanel;
|
|
procedure FormShow(Sender: TObject);
|
|
private
|
|
{ private declarations }
|
|
public
|
|
{ public declarations }
|
|
end;
|
|
|
|
var
|
|
fmMain: TfmMain;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
{ TfmMain }
|
|
|
|
procedure TfmMain.FormShow(Sender: TObject);
|
|
begin
|
|
ed.Strings.Clear;
|
|
ed.Strings.LineAdd('This is demo text');
|
|
ed.Strings.LineAdd('test');
|
|
ed.Strings.LineAdd('test...');
|
|
ed.Update(true);
|
|
|
|
{
|
|
combo2:= tatcomboedit.create(Self);
|
|
combo2.parent:= panel1;
|
|
combo2.left:= 350;
|
|
combo2.width:= 300;
|
|
combo2.top:= 20;
|
|
}
|
|
end;
|
|
|
|
end.
|
|
|