Multiple richedits in Tabsheets
Posted on 1997-06-10
I am building a RichEdit editor with this difference.
The editor consists of a tabsheet with a richedit component in it.
at startup only one tabsheet is active and one richedit.
but this is what I want, if I click 'New' or 'Open', a new tabsheet should appear with a new richedit component in it that should become the active field.
the caption of the tabsheet has to be the name of the opened file and if I want to Copy, cut or do some other operation on it it has to work on all richedit fields.
and if I wish to save something it has to be the Active tab with the active Richedit component.
so far I have this.
1) Tabsheet at startup but the caption remains 'tabsheet1' and the following code for creating a new tabsheet:
with TTabSheet.Create(Self) do
Caption := 'OpenDialog1.FileName';
PageControl := PageControl1;
the openDialog1.Filename doesn't work, what do I do to make the caption to read the filename.
and I am missing the code for creating a new richedit field.
2) For Opening a File :
if OpenDialog1.Execute then
ofcourse this is only valid for richedit1, how do I make a new tabsheet here with a new richedit field and fill it with the opened text file and if the first Richedit field is still empty to fill that one first.
3) For editing such as COPY,CUT,Paste I have code like this:
ofcourse this is only valid for richEdit1 and I need more richEdit components. so what do I have to do here, so that it works on all richedit fields.
4) and also I am using a component called PageSetupDialog, which is used by Windows for formatting text before printing.
I used following code to try printing:
if PageSetupDialog1.Execute then
But when printing there are no margins although I selected them in the PageSetupDialog, and the Microsoft developer help file is a mystery to me, so what needs to be changed here?
Please explain in detail, I'm pretty new to delphi.