Lines Matching refs:wmfFont
309 wmfFont: TWMFFont;
315 wmfFont := TWMFFont.Create;
323 wmfFont.Font.Name := ISO_8859_1ToUTF8(fntName);
324 wmfFont.Font.Size := round(ScaleSizeY(fontRec^.Height));
325 wmfFont.Font.Color := colBlack; // to be replaced by FCurrTextColor
326 wmfFont.Font.Bold := fontRec^.Weight >= 700;
327 wmfFont.Font.Italic := fontRec^.Italic <> 0;
328 wmfFont.Font.Underline := fontRec^.UnderLine <> 0;
329 wmfFont.Font.StrikeThrough := fontRec^.Strikeout <> 0;
330 wmfFont.Font.Orientation := fontRec^.Escapement div 10;
331 wmfFont.RawHeight := fontRec^.Height; //* 6 div 5; // Rough correction for y position
334 Result := FObjList.Add(wmfFont);