Recent

Author Topic: SynEdit  (Read 2061 times)

chucky

  • New Member
  • *
  • Posts: 30
SynEdit
« on: August 14, 2017, 12:10:20 am »
Im trying to create an editor on the fly but nothing shows up. Can anyone tell me what im doing wrong? I dont get any compiler errors or runtime errors, just nothing.

var
  SynEdit1 : TSynEdit;

procedure TForm1.Button1Click(Sender: TObject);
var
  tf : Text;
  s : String;

begin
  SynEdit1 := TSynEdit.Create(Form1);
  SynEdit1.Top := 180;
  SynEdit1.Left := 50;
  SynEdit1.Height := 330;
  SynEdit1.Width := 500;

  SynEdit1.Visible := true;
  SynEdit1.Lines.Clear;
  System.Assign(tf,'OldMain.pp');
  Reset(tf);
  While Not EOF(tf) do
    Begin
      ReadLn(tf,s);
      SynEdit1.Lines.Add(s);
    end;
  System.Close(tf);
end;           

Martin_fr

  • Administrator
  • Hero Member
  • *
  • Posts: 9794
  • Debugger - SynEdit - and more
    • wiki
Re: SynEdit
« Reply #1 on: August 14, 2017, 12:14:09 am »
set SynEdit.Parent (as for any other component too)

chucky

  • New Member
  • *
  • Posts: 30
Re: SynEdit
« Reply #2 on: August 14, 2017, 12:19:22 am »
Wow, That made it show up. Thanks for the fast response. I have alot to learn!

Pascal

  • Hero Member
  • *****
  • Posts: 932
Re: SynEdit
« Reply #3 on: August 14, 2017, 07:57:56 am »
For file loading you can also do:

Code: Pascal  [Select][+][-]
  1. SynEdit.Lines.LoadFromFile('OldMain.pp');
laz trunk x64 - fpc trunk i386 (cross x64) - Windows 10 Pro x64 (21H2)

chucky

  • New Member
  • *
  • Posts: 30
Re: SynEdit
« Reply #4 on: August 16, 2017, 12:11:39 am »
Gosh you folks are so helpful. Thanks!

 

TinyPortal © 2005-2018