T E X T Textverarbeitung © Herbert Paukert - von Herbert Paukert

Herbert Paukert: Textverarbeitung in DELPHI 33
begin
if RichEdit1.SelLength = 0 then Exit;
S := LowerCase(RichEdit1.SelText);
RichEdit1.SelLength := Length(S);
RichEdit1.SelText := S;
end;
procedure TForm1.Hochstellen1Click(Sender: TObject);
// Hochschrift
var L,G,N: Integer;
TA: TTextAttributes;
TS: TFontStyles;
C : TColor;
S : String;
begin
L := RichEdit1.SelLength;
TA := RichEdit1.SelAttributes;
TA0 := TA;
TS := TA.Style;
S := TA.Name;
N := TA.Size;
C := TA.Color;
if (L = 0) or (Trim(RichEdit1.SelText) = '') then Exit;
RichEdit2.Clear;
ResStream := TResourceStream.CreateFromID(HInstance,101,RT_RCDATA);
RichEdit2.Lines.LoadFromStream(ResStream);
RichEdit2.SelStart := 1;
RichEdit2.SelLength := 1;
RichEdit2.SelText := RichEdit1.SelText;
RichEdit2.SelStart := 1;
RichEdit2.SelLength := L;
RichEdit2.SelAttributes.Name := S;
RichEdit2.SelAttributes.Style := TS;
RichEdit2.SelAttributes.Size := N;
RichEdit2.SelAttributes.Color := C;
RichEdit2.CopyToClipboard;
RichEdit1.PasteFromClipboard;
RichEdit1.SelStart := RichEdit1.SelStart - L;
RichEdit1.SelLength := L;
end;
procedure TForm1.iefstellen1Click(Sender: TObject);
// Tiefschrift
var L,G,N: Integer;
TA: TTextAttributes;
TS: TFontStyles;
C : TColor;
S : String;
begin
L := RichEdit1.SelLength;
TA := RichEdit1.SelAttributes;
TA0 := TA;
TS := TA.Style;
S := TA.Name;
N := TA.Size;
C := TA.Color;
if (L = 0) or (Trim(RichEdit1.SelText) = '') then Exit;