FontDialog

Dlaczego jak mam taki kod
[code] if FontDialog1.Execute then begin
RichEdit1.SelAttributes.Color := FontDialog1.Font.Color;
RichEdit1.SelAttributes.Size := FontDialog1.Font.Size;
RichEdit1.SelAttributes.Style := FontDialog1.Font.Style;
RichEdit1.SelAttributes.Name:=FontDialog1.Font.Name;
end[/code]
To mi wyświetla ze nie zainstalowano czcionek.Kliknij czcionki w paneli sterowania.

Może spróbuj tak :

[code]
FontDialog1.Execute;
RichEdit1.SelAttributes.Name := FontDialog1.Font.Name;
RichEdit1.SelAttributes.Charset := FontDialog1.Font.Charset;
RichEdit1.SelAttributes.Color := FontDialog1.Font.Color;
RichEdit1.SelAttributes.Size := FontDialog1.Font.Size;
[/code]

Spróbuj też bez [code]charset[/code]'u - może pomoże.

Sorry,
spróbuj tak:

[code]
FontDialog1.Execute;

FontDialog1.Font.Name := RichEdit1.SelAttributes.Name;
FontDialog1.Font.Style := RichEdit1.SelAttributes.Style;
FontDialog1.Font.Color := RichEdit1.SelAttributes.Color;
FontDialog1.Font.Size := RichEdit1.SelAttributes.Size;

RichEdit1.SelAttributes.Name := FontDialog1.Font.Name;
RichEdit1.SelAttributes.Style := FontDialog1.Font.Style;
RichEdit1.SelAttributes.Color := FontDialog1.Font.Color;
RichEdit1.SelAttributes.Size := FontDialog1.Font.Size;

[/code]

Co ty wyprawiasz??!!
Przecież swoje posty można edytować!!

Źle masz ustawiony TFontDialog, u mnie ten kod działa. Może wybrałeś sobie w opcjach dialogu, że ma Ci pokazywać czcionki określonego typu, których nie masz zainstalowane.

A spróbuj napisać:

procedure jakiśtambuttonclick
fontdialog.Font.Assign(richedit.DefAttributes);
if fontdialog.Execute then
richedit.SelAttributes.Assign(fontdialog.Font);

może tak zadziała