Can't get Fonts working

[chris.gordon-smith]

I am having trouble getting fonts to work with Lazarus. I have managed to get FontDialog working, but when I choose a font and then assign it to a component (see below), nothing happens.  

FontDialog1.Execute();
Button1.Font := FontDialog1.Font;
writeln(Button1.Font.Name);

The font name output by the writeln line looks fine.

Can anyone help.

I am running 0.9.1 beta under SUSE Linux 9.0.

Chris Gordon-Smith
London
Homepage: http://graffiti.virgin.net/c.gordon-smith/

[Anonymous]

Font properties are set by the the current theme in gtk1  - lazarus cannot override them.