delphi - Setting Segoe UI Light programmatically in TJvWizard -
i'm using tjvwizard
component , want set header title font use segoe ui light. in form oncreate
method i'm doing following:
procedure tform1.formcreate(sender: tobject); var i: integer; begin := 0 jvwizard1.pagecount - 1 begin jvwizard1.pages[i].header.parentfont := false; jvwizard1.pages[i].header.title.font.size := 16; jvwizard1.pages[i].header.title.font.name := 'segoe ui light'; end; end;
this code sets font size correctly font doesn't change segoe ui light, instead keeps using parent font (which segoe ui.)
as workaround, did this:
procedure tform1.formcreate(sender: tobject); var i: integer; f: tfont; begin f := tfont.create; f.name := 'segoe ui light'; f.size := 16; := 0 jvwizard1.pagecount - 1 begin jvwizard1.pages[i].header.title.font.assign(f); end; f.free; end;
this trick, smells funny me. also, don't know how assign works. keeps reference? should keep f.free
line?
edit: additional information, have office 2013 installed recent version of these fonts. i've observed cannot select segoe ui light in other applications, example, inkscape.
also, in delphi property editor, can select using font select dialog, name "segoe ui light" doesn't appear; instead, have select segoe ui , in font style list select light style.
also, selecting font name using drop-down list doesn't work either:
so, think has font version have, , extended properties (in fact, in fonts folder can see segoe ui, , opening open 10 windows.)
i'm still looking around workaround (this sounds may related, didn't follow it)
Comments
Post a Comment