diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-08-20 14:03:52 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-08-20 14:03:52 +0000 |
commit | 42213545425979cb84f66fd78ecf2336c373d81f (patch) | |
tree | bd24021f87a48a48f0ac1c12532c9b1cabd4356d /src/corelib/gfxbase.pas | |
parent | 52afba6368b154c50469439c55160f2f21c01c64 (diff) | |
download | fpGUI-42213545425979cb84f66fd78ecf2336c373d81f.tar.xz |
* 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.
Diffstat (limited to 'src/corelib/gfxbase.pas')
-rw-r--r-- | src/corelib/gfxbase.pas | 5 |
1 files changed, 1 insertions, 4 deletions
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; |