Problem bei Schrift ändern

[HTML04]

Ich versuche momentan ein Textverarbeitung zu programmieren. Benutze allerdings Delphi erst seit 2 Monaten. Ich wollte in meinem folgenden Quelltext die bisherige Eingabe ins richeditfeld zu markieren und dann die Eigenschaften einzeln mithilfe eines FontDialogs zu ändern. Was habe ich falsch gemacht, denn momentan bekomme ich keine Änderung zu sehen.

Delphi-Quellcode:

begin
 Mark := richedit1.SelText;
if Mark = '' then
begin
 richedit1.selectall;
 fontdialog1.Execute;
 Eig1 := richedit1.SelAttributes;
 Eig2 := Richedit1.Font;
 Eig1.Color := Eig2.Color;
 Eig1.Name := Eig2.Name;
 eig1.Size := Eig2.Size;
 eig1.Style:= Eig2.style;

[edit=SirThornberry]Delphi-Tags gesetzt - nächstes mal bitte selbst machen - Mfg, SirThornberry[/edit]

[taaktaak]

Hallo HTML04!
Na, wo übergibts du auch die im FontDialog getroffene Auswahl?

Delphi-Quellcode:

procedure TForm1.p_FormatDialogClick(Sender:TObject);
begin
  FontDlg.Font.Assign(RichEdit1.SelAttributes);  // preselect richedit font attributes in dialog
  if FontDlg.Execute then
    RichEdit1.SelAttributes.Assign(FontDlg.Font); // assign selected font to richedit
end;

Versuche mal den obigen Codeschnipsel an deine Situation anzupassen, dann sollte auch etwas zu sehen sein
gruß Ralph

[HTML04]

Danke schön für die Antwort war echt hilfreich