diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-05-27 08:45:29 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-05-27 08:45:29 +0000 |
commit | 2d5991c4c67b9ead40df34cfdb73434231956116 (patch) | |
tree | 01b2fcd4ca61840d1d585b9a517341015748ae03 /gui | |
parent | a33eb60e76b3c333bf50b7183e1e6a078b6cdc27 (diff) | |
download | fpGUI-2d5991c4c67b9ead40df34cfdb73434231956116.tar.xz |
* Minor improvement in setting the window title under X11.
* Thanks to Felipe for fixing the TFBitmap issue, the Base Style in the GUI can now use bitmaps under Linux as well.
Diffstat (limited to 'gui')
-rw-r--r-- | gui/fpguistyle.inc | 56 |
1 files changed, 0 insertions, 56 deletions
diff --git a/gui/fpguistyle.inc b/gui/fpguistyle.inc index af04cfed..991c85b5 100644 --- a/gui/fpguistyle.inc +++ b/gui/fpguistyle.inc @@ -672,8 +672,6 @@ var Index, BtnY: Integer; r: TRect; begin - {$Note This is only while I fix the Palette issue under Linux/X11 } - {$IFDEF MSWINDOWS} with ARect do begin BtnY := Top + (Bottom - Top - 12) div 2; @@ -689,60 +687,6 @@ begin Rect(Index * 12, 0, (Index + 1) * 12, 12), Point(0, 0), Point(Left, BtnY)); end; - {$ELSE} - -// cl3DLight, cl3DHighlight, cl3DDkShadow, cl3DShadow - SetUIColor(Canvas, clLtGray); - r.Left := ARect.Left; - r.Top := ARect.Top + (ARect.Bottom - ARect.Top - 13) div 2; - r.Right := 13; - r.Bottom := r.Top + 13; - Canvas.DrawCircle(r); - - SetUIColor(Canvas, cl3DShadow); - InflateRect(r, -2, -2); - Canvas.DrawCircle(r); - - if cbIsEnabled in Flags then - SetUIColor(Canvas, cl3DDkShadow) - else - SetUIColor(Canvas, cl3DShadow); - InflateRect(r, 1, 1); - Canvas.DrawCircle(r); - - if cbIsEnabled in Flags then - begin - if cbIsChecked in Flags then - begin - SetUIColor(Canvas, clNavy); - InflateRect(r, -3, -3); - Canvas.DrawCircle(r); - InflateRect(r, -1, -1); - Canvas.FillRect(r); - InflateRect(r, 1, 1); - SetUIColor(Canvas, clSkyBlue); - InflateRect(r, -2, -2); - OffsetRect(r, -1, -1); - Canvas.FillRect(r); - end; - end - else - begin - if cbIsChecked in Flags then - begin - SetUIColor(Canvas, cl3DShadow); - InflateRect(r, -3, -3); - Canvas.DrawCircle(r); - InflateRect(r, -1, -1); - Canvas.FillRect(r); - InflateRect(r, 1, 1); - SetUIColor(Canvas, clLtGray); - InflateRect(r, -2, -2); - OffsetRect(r, -1, -1); - Canvas.FillRect(r); - end; - end; - {$ENDIF} if cbHasFocus in Flags then with LabelRect do |