Entwickler-Ecke

Sonstiges (Delphi) - Font, Color Zuweisung bei TRichEdit


Netmaster - Mo 31.03.03 16:45
Titel: Font, Color Zuweisung bei TRichEdit
Hallo.
Hab da mal ein Problem. Bin wohl zu blöd dafür.
Ich bekomme einfach die Font- u. Color-Zuweisung nicht hin
bei einem TRichEdit. Die Zuweisung selbst wollte ich über
TFont(Color)Dialog machen.
Aber irgendwie bekomme ich es nicht in mein TRichEdit rein.
Wie muss denn da meine Procedure ausehen??
Kann mir da jeman helfen?
THX im voraus.


Delete - Mo 31.03.03 16:59

SelStart, SelLength, SelAttributs -> F1!


Netmaster - Mo 31.03.03 17:39

Danke für die schnelle Antwort.
Hab mal nach deinen Suchbegriffen in der Hilfe nachgeschaut.
Ich verstehe das da steht.

Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
procedure TForm1.Button1Click(Sender: TObject);

begin
  with RichEdit1.SelAttributes do
  begin
    Color := clRed;
    Height := Height + 5;
  end;
  RichEdit1.Lines.Add('This line of text will be red.');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  RichEdit1.DefAttributes.Color := clBlue;
  RichEdit1.DefAttributes.Style := [fsBold, fsItalic];
end;

Aber wie bekomme ich das hin, dass die Werte von TColorDialog übernommen werden.
Sorry, ist für euch Alltag, aber ich arbeite erst seit Freitag mit Delphi.
Bin totaler Newbie in Programierung.


G-McKree - Fr 04.04.03 23:15

erst seit freitag mit in der TDelphiFreundeList und machst schon so was?
ich mach das seit fast nem monat und hab in der zeit fast nix verstanden, was in der hilfe steht und dialoge benutz ich lieber gar nicht erst


Delete - Sa 05.04.03 03:34


Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
procedure TForm1.Button1Click(Sender: TObject);
begin
  if ColorDialog1.Execute then
  begin
    with RichEdit1 do
    begin
      SelStart := 2;
      SelLength := 4;
      SelAttributes.Color := ColorDialog1.Color;
    end;
  end;
end;