On Mon, 27 Feb 2006 18:28:04 +0200
"A.J. Venter" <[EMAIL PROTECTED]> wrote:
>
> > >
> > > If this is possible, then this is *the* way to go.
> >
> > At least I know it is possible for gtk2 - I implemented dynamic fonts in
> > one of my (C++, unfortunately) programs. The documentation seems to talk
> > about the font code as something New and Improved (tm), so I'd say it's
> > quite hard in gtk1.
> Well I could find the documentation on how to do it, but the actual method
>
> isn't implemented somewhere, it is not impossible that the PLACE where it
> is missing is in the FPC units, but since those were autogenerated my
> gutt tells me that it is more likely to be somewhere in the LCL.
>
> I am not exactly sure how the GTK2 objects were turned into OP classes for
> the LCL, I would have to look at the wrapper code first, my feeling
> however is that the likely scenario is that somewhere an external
> declaration needs to be added that can enable GTKWidget.Modify_font from
> the GTK2 libs.
>
> GTK1 already has support for this, and if I I didn't REALLY need UTF-8
> support for text-out I would have just compiled my app for GTK1 instead
> but since I don't know how, and it would be GREAT if this works, I am
> happy to help write code to make it happen, if I can get help from some
> of the gtk2 guru's it would just happen faster.
>
> My current code:
> In gtk2object.inc add this (I put mine just above TGTKWidget.SetCallBack):
> Procedure TGTK2WidgetSet.SetWidgetFont(const AWidget: PGTK2Widget; const
> Afont: tFont);
> Var
> PangoDescStr,DescOpts : String;
> NewFontDescription : PPangoFontDescription;
>
> Begin
> {$IFDEF GTK2}
> PangoDescStr := AFont.Name;
> DescOpts := '';
> If FSBold in AFont.Style then
> DescOpts := DescOpts + ' bold';
> If FSItalic in AFont.Style then
> DescOpts := DescOpts + ' italic';
> If FSUnderline in AFont.Style then
> DescOpts := DescOpts + ' underline';
> If FSStrikeOut in AFont.Style then
> DescOpts := DescOpts + ' strikethrough';
>
> PangoDescStr := PangoDescStr+DescOpts+' '+intToStr(Afont.Size);
> //Pango does not appear to have a way to set the character set in the
> //font description but seems to default to UTF-8 this probably
> //requires some or other todo item.
> try
> NewFontDescription := PPangoFontDescription(PangoDescStr);
> AWidget.Modify_Font(NewFontDescription);
font_desc:=pango_font_description_from_string(PChar(PangoDescStr));
gtk_widget_modify_font(AWidget,font_desc);
pango_font_description_free(font_desc);
Works.
Mattias
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
