RichEdit Formatierung:

[Störtebeker]

ES GEEEEEEHHT

Freude etwas gestoppt:

Um es zu perfektionieren, müsste ich den Boxen nur noch irgendwie sagen, dass sie automatisch die Schriftart/Font des makierten Textes erkennen sollen.

[Helmi]

Vielleicht so...

Delphi-Quellcode:

  with RichEdit1 do
    begin
      If SelLength > 0 then
        begin
          Label1.Caption      := SelAttributes.Name; //Schriftart
        end;
    end;

[Edit]

Um die Combobox anzuwählen kannst es so machen:

Delphi-Quellcode:

var
  i: Integer;

begin
  with RichEdit1 do
    begin
      If SelLength > 0 then
        begin
          i := ComboBox2.Items.IndexOf(IntToStr(SelAttributes.Size));

          ComboBox2.ItemIndex := i;
        end;
    end;
end;

Aber die Schriftart kannst selbst machen

[Pfoto]

Hi,

schau im Demo unter Methode:
procedure TMainForm.SelectionChange(Sender: TObject);


da steht dann u.a.:

Delphi-Quellcode:

FontSize.Text := IntToStr(Editor.SelAttributes.Size);
FontName.Text := Editor.SelAttributes.Name;

Das müsste es sein, auch wenn hier nicht der
korrekte Index für die Schriftart gesetzt wird, sondern
nur der Name in die ComboBox geschrieben wird:


Gruß
Pfoto

[Schwedenbitter]

Ich habe - mehr oder weniger - TRichEdit unter Kontrolle. Ich kann eigentlich nur jedem die Demos empfehlen, weil dort im Grunde alles nachvollziehbar wird.
Da meine Frage auch die Formatierung betrifft, möchte ich ungern ein neues Thema aufmachen und stelle sie hier:

Wenn ich (übrigens auch in der Borland-Demo) in TRichEdit etwas ausgewäht habe, wird nur das Ausgewählte formatiert. Habe ich nichts gewählt, wird alles so formatiert, wie ich es geändert habe. Ich möchte aber z.B. nur den zukünftigen Text am Ende umformatieren. Da der noch getippt werden soll, gibt es nichts zu markieren...

Gibt es eine Möglichkeit, mit TRichEdit nur den Text am Ende (bzw. der aktuellen Cursorposition) umzuformatieren ohne Auswirkungen auf den restlichen Text? Falls ja, wie geht es?

Gruß, Alex