1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure SizeGroesse(big,hoehe:integer);
var i:integer;
    s:string;
begin
with Form1 do begin
  s:='=';
  for i:=1 to cAnzahlVorlagen do 
   begin with Fi[i] do begin    //array of Richedit
     if modified=false then begin
       Lines.Insert(FiLinAct,s);  //Vorlage zwangsweise ändern (modified=true)
       Font.Height:=hoehe;  // hoehe genügt {Fi[i].Font.Size:=big; }
       Lines.Delete(FiLinAct)
       modified:=false; end 
     else Font.Height:=hoehe; 
     if Focused then SelStart:=Perform(EM_LineIndex,FiLinAct,0)+ FiColAct; //Cursorpos beibehalten
   end; end;
  Edit1Com.Font.Height:=hoehe;  //Kommandozeile {weitere anzupassende Vorlagen}
  FiFormat.Font.Height:=hoehe;  //Lineal
  LinePerPage:=ZeilenProSeite;  //REdit1.Height, neue Zeilenzahl berechnen
end; end;					

1:
2:
3:
4:
5:

if Form1.Richedit1.modified then begin
   Form1.Richedit1.Lines.Insert(FiLinAct,s);
   Form1.Richedit1.Font.Height:=hoehe; 
   ..
   end					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm1.Size9MenuClick(Sender: TObject);
{ Schriftgrösse anpassen }
begin
 SizeGroesse(9,-12);
end;
procedure TForm1.Size10MenuClick(Sender: TObject);
begin
 SizeGroesse(10,-13);
end;
procedure TForm1.Size11MenuClick(Sender: TObject);
begin
 SizeGroesse(11,-15);
end;
procedure TForm1.Size12MenuClick(Sender: TObject);
begin
 SizeGroesse(12,-16);
end;					

1:

 Richedit.Size:= Schriftgroesse.Value;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.SchriftgroesseChange(Sender: TObject);
{Schriftgroesse ist ein TSpinedit-Object}
var Start:longint;
begin  
 with Richedit do begin
  Lines.Beginupdate;  //flackern unterdrücken
   Start:=SelStart;   //Schreibmarke merken
   SelStart:=0;       
   SelLength:=length(text);  //gesamten Text markieren
   SelAttributes.Size:=Schriftgroesse.Value; //ändert gesamten Text in Richedit
   SelLength := 0;
   SelStart:=Start;  //Schreibmarke wieder herstellen
  Lines.EndUpdate;
 end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var 
 Fi: array[1..3] of TRichedit;
begin
 for i:=1 to 3 do 
  with Fi[i] do begin
  Lines.Beginupdate;  //flackern unterdrücken
  ..
  ..
  Lines.EndUpdate;
 end;
end;