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