Einzelnen Beitrag anzeigen

Benutzerbild von HTML04
HTML04

Registriert seit: 31. Okt 2007
Ort: Dülmen
48 Beiträge
 
RAD-Studio 2009 Arc
 
#1

Problem bei Schrift ändern

  Alt 1. Nov 2007, 18:35
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]
  Mit Zitat antworten Zitat