T E X T Textverarbeitung © Herbert Paukert - von Herbert Paukert
T E X T Textverarbeitung © Herbert Paukert - von Herbert Paukert
T E X T Textverarbeitung © Herbert Paukert - von Herbert Paukert
Erfolgreiche ePaper selbst erstellen
Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.
<strong>Herbert</strong> <strong>Paukert</strong>: <strong>Textverarbeitung</strong> in DELPHI 35<br />
if NOT RichEdit1.WordWrap then begin<br />
Screen.Cursor := crHourglass;<br />
N := MessageBox(0,'Zeilenende mit Zeilensprung-Löschung ?','Frage', 36);<br />
if (N = 6) then begin<br />
RichEdit1.Visible := False;<br />
TextFlow(RichEdit1);<br />
RichEdit1.Visible := True;<br />
end;<br />
RichEdit1.WordWrap := True;<br />
SetMargin(RichEdit1,-Rand,-Rand,-Rand,-Rand);<br />
SetMargin(RichEdit1,Rand,Rand,Rand,Rand);<br />
Label3.Caption := 'Umbruch EIN';<br />
Screen.Cursor := crDefault;<br />
RichEdit1.SetFocus;<br />
end;<br />
end;<br />
procedure TForm1.Hilfe1Click(Sender: TObject);<br />
// Hilfstext ein- oder ausblenden<br />
begin<br />
Memo1.Visible := Not Memo1.Visible;<br />
end;<br />
end.
Change language