diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-07-24 08:40:29 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-07-24 08:40:29 +0000 |
commit | 25749cf067a51fc2bcc3238c4fbc287f765b49ee (patch) | |
tree | e9c0937fbb0fd1a3e73b26fbc6e3085dce497e8b /src/corelib | |
parent | 85ffdc73b32e747ba0517bfc0e8403299f539b03 (diff) | |
download | fpGUI-25749cf067a51fc2bcc3238c4fbc287f765b49ee.tar.xz |
GUI: created a AutoSize property for TfpgLabel
Diffstat (limited to 'src/corelib')
-rw-r--r-- | src/corelib/gfxbase.pas | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/corelib/gfxbase.pas b/src/corelib/gfxbase.pas index 9dfb9830..efc06cac 100644 --- a/src/corelib/gfxbase.pas +++ b/src/corelib/gfxbase.pas @@ -788,6 +788,7 @@ begin { What was not handled: underline } if Pos('UNDERLINE', UpperCase(Font.FontDesc)) > 0 then begin + writeln('underline detected in font'); underline := (Font.Descent div 2) + 1; if underline = 0 then underline := 1; |