From 42213545425979cb84f66fd78ecf2336c373d81f Mon Sep 17 00:00:00 2001 From: graemeg Date: Mon, 20 Aug 2007 14:03:52 +0000 Subject: * Implemented a most of the Menu component. It's still incomplete though and still needs testing under both platforms. * Added a new menu example project. --- src/corelib/gfxbase.pas | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'src/corelib/gfxbase.pas') diff --git a/src/corelib/gfxbase.pas b/src/corelib/gfxbase.pas index 97d040d2..9b3f5b47 100644 --- a/src/corelib/gfxbase.pas +++ b/src/corelib/gfxbase.pas @@ -876,10 +876,7 @@ begin if underline >= Font.Descent then underline := Font.Descent - 1; -// if Pos('BOLD', UpperCase(Font.FontDesc)) = 0 then - DoSetLineStyle(1, lsSolid); -// else -// DoSetLineStyle(2, lsSolid); + DoSetLineStyle(1, lsSolid); DoSetColor(TextColor); DoDrawLine(x, Font.Height-underline, x+Font.TextWidth(txt), Font.Height-underline); end; -- cgit v1.2.3-70-g09d2