lbCharsetClick(Sender);
procedure TfrmMain.FormShow(Sender: TObject);begin LoadFontlist; lbCharsetClick(Sender);end;procedure TfrmMain.lbFamilyClick(Sender: TObject);begin LoadFamilyFonts(-1); lbCharsetClick(Sender);end;
PeterX, it is good you fix bugs but you should learn to create patches. http://wiki.freepascal.org/Creating_A_PatchHere they get easily ignored, the bug tracker is a better place.
procedure TfrmMain.chkStrikeChange(Sender: TObject);begin SelectFont;end;procedure TfrmMain.chkUnderLineChange(Sender: TObject);begin SelectFont;end;
if i and 2 <> 0 then F.Style := F.Style + [fsBold];
if chkUnderLine.Checked then F.Style := F.Style + [fsUnderline] else F.Style := F.Style - [fsUnderline]; if chkStrike.Checked then F.Style := F.Style + [fsStrikeOut] else F.Style := F.Style - [fsStrikeOut];
procedure TfrmMain.FormShow(Sender: TObject);begin LoadFontlist; lbCharsetClick(Sender); SelectFont;end;procedure TfrmMain.lbFamilyClick(Sender: TObject);begin LoadFamilyFonts(-1); lbCharsetClick(Sender); SelectFont;end;