Richedit Dropdownfontbox

[HW764]

Hi, ich habe ein Textverarbeitungsprogramm geschrieben.
Ich will so wie in word eine Dropdownn liste haben,aus der
man die schriftart wählen kann. Welche Kompo soll ich
dafür benutzen? Und wie mache ich das mit einer Dropdown
Liste für die Schriftgrösse?

Danke

[Bernhard Geyer]

Entweder TComboBox + Ownerdraw-Modus mit eigenen Zeichnen, oder falls eine fertige Compo sein darf (kostet etwas), kannst mal die TElFontComboBox-Komponente aus dem ElPack ausprobieren.

[fkerber]

Hi!

Da gibt es aber auch was von Ratiopharm ..... äh ...... Torry
TFontCombobox glaube ich und ist umsonst.

Ciao fkerber

[Bernhard Geyer]

Zitat:

Zitat von fkerber

Da gibt es aber auch was von Ratiopharm ..... äh ...... Torry
TFontCombobox glaube ich und ist umsonst.

Man ist nicht allwiesend 8)
Aber mit Sicherheit kann TFontComboBox keine Unicode :-D

[fkerber]

HI!

Hier nochmal die genaue Adresse:
http://www.torry.net/pages.php?id=138

Es gab da eine, die die Schriftarten direkt in der entsprechenden Schriftart anzeigt (wie in Word).
Ob die da noch dabei ist :gruebel:

Was meinst du mit der Unicode-Unterstützung @Bernhard?

Ciao fkerber

[Bernhard Geyer]

Zitat:

Zitat von fkerber

Was meinst du mit der Unicode-Unterstützung @Bernhard?

Ich denke nicht das dieses Control z.B. "楕榉榝榼槚槆楱" auf einem deutschen Windows darstellen kann. Sprich alle Zeichen, die in einem Font stecken, nicht nur die in der aktuellen Codepage verfügbaren.

[Nalincah]

Dropdown für die Schriftgröße

Fülle die mit 8,10,12, etc (Eigenschaft Items)

Und onChange glaub ich:

Delphi-Quellcode:

RichEdit1.SelAttributes.Size := StrToInt(ComboBox1.Text);

[memphis]

hallo

noch ein kleines beispiel, wie man selbst ein Dropdown-Menü für die Schriftarten, die jeweils in der eigenen schriftart angezeigt werden erstellen kann:

Der Combobox den Style csOwnerDrawFixed zuweisen.

den Items der Combobox alle verfügbaren Fonts zuweisen:

Delphi-Quellcode:

Combobox1.Items := Screen.Fonts;

nun im onDrawItem Ereignis noch folgenden Code für die Textausgabe einfügen:

Delphi-Quellcode:

ComboBox1.Canvas.Brush.Color := clwhite;
ComboBox1.Canvas.FillRect(Rect);
ComboBox1.Canvas.Font.Name :=ComboBox1.Items[index];
ComboBox1.Canvas.TextOut(Rect.Left+2,Rect.Top,ComboBox1.Items[index]);

MfG
Luki

[HW764]

Delphi-Quellcode:

Richedit1.SelAttributes.font := StrToInt(ComboBox1.Text);

geht aber dann nicht! (Oder wie muss ich es machen???)

(Undefinierter bezeichner font)

[memphis]

hallo

ersetzen font mit size, dann müsste es klappen.

MfG
Luki

[HW764]

Wähle ich eine Schrift aus kommt die Meldung:
'Arial ist kein gültiger integerwert'...

[HW764]

Kommt auch bei allen anderen Schriftarten!

[fkerber]

Hi!

Du schmeißt da grad zwei Sachen durcheinander:
Und zwar Schriftgröße und Schriftart.
Das von General2004 gepostete ist für die Schriftgröße.

Ciao fkerber

[HW764]

Also ich habs so wie memphis gemacht.
Das mit der Schriftgrösse geht.
Also ich starte mein Projekt, schreibe etwas
in das Richedit, markiere den text und klicke auf die
Cobobox und wähle eine schrift aus, und dann kommt die
fehlermeldung!

Ich habs aber auch mit TFontComboBox probiert, aber ich weiss
nicht wie ich dat zuweisen kann?

Edit: Ich denk mal es geht so aber dann kommt ein Fehler!

Delphi-Quellcode:

richedit1.SelAttributes.size := StrToInt(FontComboBox1.Text);

Undefinierter bezeichner "Text"

[fkerber]

Hi!

Delphi-Quellcode:

Richedit1.SelAttributes.Name:=Combobox1.SelText;

Ciao fkerber

[HW764]

Es geht nicht schauts euch an:

http://mitglied.lycos.de/halloween764/Shize.zip

[fkerber]

Hi!

Sorry, mein Fehler :oops:

Es muss statt

Delphi-Quellcode:

Richedit1.SelAttributes.Name:=Combobox1.SelText;

Delphi-Quellcode:

Richedit1.SelAttributes.Name:=Combobox1.Text;

heißen.

Ciao fkerber

[HW764]

Es geht *puh* vielen Dank!
Kann geschlossen werden!
PS: DP ist geil!