diff options
Diffstat (limited to 'src/corelib')
-rw-r--r-- | src/corelib/fpgfx.pas | 3 | ||||
-rw-r--r-- | src/corelib/gfxbase.pas | 2 |
2 files changed, 3 insertions, 2 deletions
diff --git a/src/corelib/fpgfx.pas b/src/corelib/fpgfx.pas index 69396e58..a7c5fd8e 100644 --- a/src/corelib/fpgfx.pas +++ b/src/corelib/fpgfx.pas @@ -597,6 +597,7 @@ begin fpgImages.Free; FFontResList.Free; + FDefaultFont.Free; inherited Destroy; end; @@ -855,7 +856,7 @@ begin fpgSetNamedFont('Grid', 'Arial-9'); fpgSetNamedFont('GridHeader', 'Arial-9:bold'); fpgSetNamedFont('Menu', FPG_DEFAULT_FONT_DESC); - fpgSetNamedFont('MenuAccel', FPG_DEFAULT_FONT_DESC + ':bold'); + fpgSetNamedFont('MenuAccel', FPG_DEFAULT_FONT_DESC + ':underline'); fpgSetNamedFont('MenuDisabled', FPG_DEFAULT_FONT_DESC); {$Note Refactor this so under Windows it can detect the system colors instead. diff --git a/src/corelib/gfxbase.pas b/src/corelib/gfxbase.pas index 9b3f5b47..7d6b34b0 100644 --- a/src/corelib/gfxbase.pas +++ b/src/corelib/gfxbase.pas @@ -878,7 +878,7 @@ begin DoSetLineStyle(1, lsSolid); DoSetColor(TextColor); - DoDrawLine(x, Font.Height-underline, x+Font.TextWidth(txt), Font.Height-underline); + DoDrawLine(x, y+Font.Height-underline, x+Font.TextWidth(txt), y+Font.Height-underline); end; end; |