* Fixed a minor memory leak in fpgApplication. We still have quite a few

  more to fix in the future.
* Change menu accelarator key painting from a Bold style to the more
  traditional Underline style.
* Fixed a minor bug in the Canvas.DrawString with Underline style enabled.

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;