pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

richmemo: simplify flag checks for byte type. corrected gtk2 style read for default font

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4017 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2015-03-12 04:08:37 +00:00
parent 47109b3dd8
commit 26fef957ec
2 changed files with 21 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
components/richmemo/gtk2/gtk2richmemo.pas
View File

@ -1317,8 +1317,6 @@ var
PangoDesc: PPangoFontDescription;
sz : Integer;
isSzAbs : Boolean;
style : gint;
attr : PPangoAttrList;
begin
gtkobj:=PGDIObject(fontref);
Result:=Assigned(gtkobj) and (gtkobj^.GDIType=gdiFont);
@ -1326,25 +1324,30 @@ begin
if gtkobj^.LogFont.lfFaceName = 'default' then begin
pangofont:=GTK2WidgetSet.GetDefaultGtkFont(False);
if PANGO_IS_LAYOUT(pangofont) then
Result:=PANGO_IS_LAYOUT(pangofont);
if Result then
begin
// default font name
PangoDesc := pango_layout_get_font_description(pangofont);
if not Assigned(PangoDesc) then
PangoDesc := pango_context_get_font_description(pango_layout_get_context(pangofont));
params.Name := StrPas(pango_font_description_get_family(PangoDesc));
isSzAbs := pango_font_description_get_size_is_absolute(PangoDesc);
sz := pango_font_description_get_size(PangoDesc);
if not isSzAbs then
params.Size := round(sz / PANGO_SCALE)
else
params.Size := round(sz/ScreenInfo.PixelsPerInchY*72);
// default font size
if gtkobj^.LogFont.lfHeight = 0 then begin
isSzAbs := pango_font_description_get_size_is_absolute(PangoDesc);
sz := pango_font_description_get_size(PangoDesc);
if not isSzAbs then
params.Size := round(sz / PANGO_SCALE)
else
params.Size := round(sz/ScreenInfo.PixelsPerInchY*72);
end;
if pango_font_description_get_weight(PangoDesc) > PANGO_WEIGHT_NORMAL then
Include(params.Style, fsBold);
style:=pango_font_description_get_style(PangoDesc);
if style and PANGO_STYLE_ITALIC > 0 then Include(params.Style, fsItalic);
// rely on LogFont structure to be initialiazed (as it seems to be)
if gtkobj^.LogFont.lfItalic > 0 then Include(params.Style, fsItalic);
if gtkobj^.LogFont.lfWidth >= FW_BOLD then Include(params.Style, fsBold);
if gtkobj^.LogFont.lfUnderline > 0 then Include(params.Style, fsUnderline);
if gtkobj^.LogFont.lfStrikeOut > 0 then Include(params.Style, fsStrikeOut);
end;
end else
Result:=false;

9
components/richmemo/richmemo.pas
View File

@ -305,11 +305,10 @@ begin
with Result, ALogFont do
begin
Height := lfHeight;
if lfWeight >= FW_BOLD then
Include(Style, fsBold);
if lfItalic <> 0 then Include(Style, fsItalic);
if lfUnderline <> 0 then Include(Style, fsUnderline);
if lfStrikeOut <> 0 then Include(Style, fsStrikeOut);
if lfWeight >= FW_BOLD then Include(Style, fsBold);
if lfItalic > 0 then Include(Style, fsItalic);
if lfUnderline > 0 then Include(Style, fsUnderline);
if lfStrikeOut > 0 then Include(Style, fsStrikeOut);
Charset := TFontCharset(lfCharSet);
Name := lfFaceName;
case lfPitchAndFamily and $F of