Farbe aus der JvFontComboBox

danielpt · Beiträge: 81 Windows 2000 Professional SP4 D6 Personal

Hi! Ich bins schon wieder...

Frage: Kann mir bitte jemand sagen, wie die Delphi-Source lautet, wenn ich will, dass das Prog die Schriftart aus der "JvFontComboBox" nur auf den markierten Bereich übernimmt?

thx im voraus...

(Meine bisherige Source:
RichEdit1.Font.Name :=(JvFontComboBox2.FontName); da gibts aber halt das Problem, dass er die Schriftart dann für den kompletten Text übernimmt...)

_________________
cu daniel

Tryer · Beiträge: 226 Erhaltene Danke: 7

TRichedit.SelAttributes + F1

MfG,
Tryer

danielpt · Beiträge: 81 Windows 2000 Professional SP4 D6 Personal

thx, frage: was hab ich falsch gemacht, weil jetzt bekommt der Inhalt der "JvFontComboBox2" die Schriftart zugewiesen...

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.JvFontComboBox1Change(Sender: TObject);
begin
 with RichEdit1.SelAttributes do
  begin
   Font.Name :=JvFontComboBox2.FontName;
 end;
end;

_________________
cu daniel

Tryer · Beiträge: 226 Erhaltene Danke: 7

Scheint wohl mit dem Lesen nicht so zu klappen :roll:

SelAttributes.Name, nicht .Font.Name

MfG,
Tryer

Keldorn · Verfasst: Mo 11.08.03 16:44

wo bitte schön steht in der Onlinehilfe
RichEdit1.SelAttributes.Font.Name ?

wenn ich da reingugge steht bei mir
RichEdit1.SelAttributes.Name

wär nicht schlecht, wenn du dir die sachen auf die du hingewiesen wirst auch ein wenig anschaust, Selattribute war schon im letzten Topic von dir mit dabei.

edit zu langsam

_________________
Lükes Grundlage der Programmierung: Es wird nicht funktionieren.
(Murphy)

danielpt · Beiträge: 81 Windows 2000 Professional SP4 D6 Personal

Zitat:

Scheint wohl mit dem Lesen nicht so zu klappen :roll:

Das war meine Quelle:

Zu diesem Beispiel gehören ein TRichEdit- und ein TButton-Objekt. Lassen Sie in der Eigenschaft Lines den Vorgabetext "RichEdit1" stehen. Die Eigenschaft DefAttributes wirkt sich auf diesen Text aus.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with RichEdit1.SelAttributes do
  begin
    Color := clRed;
    Height := Height + 5;
  end;
  RichEdit1.Lines.Add('Diese Textzeile wird rot.');
end;

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

Zitat:

wo bitte schön steht in der Onlinehilfe
RichEdit1.SelAttributes.Font.Name ?

Welche "onlinehilfe" ??

Zitat:

wär nicht schlecht, wenn du dir die sachen auf die du hingewiesen wirst auch ein wenig anschaust, Selattribute war schon im letzten Topic von dir mit dabei.

Das hab ich gemacht! :cry:

_________________
cu daniel

Keldorn · Verfasst: Mo 11.08.03 16:56

Variante1
onlinehilfe (z.B. per F1-taste erreichbar oder im Hilfemenu = dort wo du dein Codebsp her hast):
richedit markieren -> f1 drücken -> eigenschaften -> selattributes ->da steht das selattibute TTextattributes sind -> das anklicken und wieder auf eigenschaften und alle durchlesen. da es nur eine mit name gibt anklicken und durchlesen.

Variante2

richedit1.selattributes. dann strg+space drücken und die möglichen eigenschaften in der codevervollständigung anguggn und entscheiden, welche passen könnte

_________________
Lükes Grundlage der Programmierung: Es wird nicht funktionieren.
(Murphy)

danielpt · Beiträge: 81 Windows 2000 Professional SP4 D6 Personal

k, thx

_________________
cu daniel

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

Du hattest die Lösung doch schon selbst hier geposetet

www.delphi-forum.de/viewtopic.php?t=14891

Gruß
Tino

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme