summaryrefslogtreecommitdiff
path: root/gui
diff options
context:
space:
mode:
authorgraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2007-05-27 08:45:29 +0000
committergraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2007-05-27 08:45:29 +0000
commit2d5991c4c67b9ead40df34cfdb73434231956116 (patch)
tree01b2fcd4ca61840d1d585b9a517341015748ae03 /gui
parenta33eb60e76b3c333bf50b7183e1e6a078b6cdc27 (diff)
downloadfpGUI-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.inc56
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