From a7095f0e2b8bb6b3d92f8c8324d33acc067c7c39 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Mon, 29 Oct 2012 14:22:48 +0000
Subject: Borderless Panel: TfpgPanel can now also have a flat /borderless
 look.

Thanks to Michael van Canneyt <michael@freepascal.org> for the patch.
---
 src/gui/fpg_panel.pas | 73 ++++++++++++++++++++++++++++++---------------------
 1 file changed, 43 insertions(+), 30 deletions(-)

(limited to 'src/gui/fpg_panel.pas')

diff --git a/src/gui/fpg_panel.pas b/src/gui/fpg_panel.pas
index bd6333ce..2bc5f93b 100644
--- a/src/gui/fpg_panel.pas
+++ b/src/gui/fpg_panel.pas
@@ -34,7 +34,7 @@ type
   TPanelShape = (bsBox, bsFrame, bsTopLine, bsBottomLine, bsLeftLine,
     bsRightLine, bsSpacer, bsVerDivider);
 
-  TPanelStyle = (bsLowered, bsRaised);
+  TPanelStyle = (bsLowered, bsRaised, bsFlat);
 
   TPanelBorder = (bsSingle, bsDouble);
 
@@ -137,6 +137,7 @@ type
   public
     constructor Create(AOwner: TComponent); override;
     destructor  Destroy; override;
+    function    GetClientRect: TfpgRect; override;
     property    Font: TfpgFont read FFont;
   published
     property    AcceptDrops;
@@ -711,43 +712,44 @@ begin
     Repaint;
   end;
 end;
+
 procedure TfpgPanel.HandlePaint;
 var
   lTxtFlags: TfpgTextFlags;
 begin
   inherited HandlePaint;
 
-  //  Canvas.SetLineStyle(2, lsSolid);
-  //  Canvas.SetColor(clWindowBackground);
-  //  Canvas.DrawRectangle(1, 1, Width - 1, Height - 1);
-  if FPanelBorder = bsSingle then
-    Canvas.SetLineStyle(1, lsSolid)
-  else
-    Canvas.SetLineStyle(2, lsSolid);
+  if Style <> bsFlat then
+  begin
+    if FPanelBorder = bsSingle then
+      Canvas.SetLineStyle(1, lsSolid)
+    else
+      Canvas.SetLineStyle(2, lsSolid);
 
-  if Style = bsRaised then
-    Canvas.SetColor(clHilite2)
-  else
-    Canvas.SetColor(clShadow1);
+    if Style = bsRaised then
+      Canvas.SetColor(clHilite2)
+    else
+      Canvas.SetColor(clShadow1);
 
-  if FPanelBorder = bsSingle then
-  begin
-    Canvas.DrawLine(0, 0, Width - 1, 0);
-    Canvas.DrawLine(0, 1, 0, Height - 1);
-  end
-  else
-  begin
-    Canvas.DrawLine(0, 1, Width - 1, 1);
-    Canvas.DrawLine(1, 1, 1, Height - 1);
-  end;
+    if FPanelBorder = bsSingle then
+    begin
+      Canvas.DrawLine(0, 0, Width - 1, 0);
+      Canvas.DrawLine(0, 1, 0, Height - 1);
+    end
+    else
+    begin
+      Canvas.DrawLine(0, 1, Width - 1, 1);
+      Canvas.DrawLine(1, 1, 1, Height - 1);
+    end;
 
-  if Style = bsRaised then
-    Canvas.SetColor(clShadow1)
-  else
-    Canvas.SetColor(clHilite2);
+    if Style = bsRaised then
+      Canvas.SetColor(clShadow1)
+    else
+      Canvas.SetColor(clHilite2);
 
-  Canvas.DrawLine(Width - 1, 0, Width - 1, Height - 1);
-  Canvas.DrawLine(0, Height - 1, Width, Height - 1);
+    Canvas.DrawLine(Width - 1, 0, Width - 1, Height - 1);
+    Canvas.DrawLine(0, Height - 1, Width, Height - 1);
+  end;
 
   Canvas.SetTextColor(FTextColor);
   Canvas.SetFont(Font);
@@ -758,6 +760,7 @@ begin
 
   if FWrapText then
     Include(lTxtFlags, txtWrap);
+
   case FAlignment of
     taLeftJustify:
       Include(lTxtFlags, txtLeft);
@@ -765,7 +768,8 @@ begin
       Include(lTxtFlags, txtRight);
     taCenter:
       Include(lTxtFlags, txtHCenter);
-    end;
+  end;
+
   case FLayout of
     tlTop:
       Include(lTxtFlags, txtTop);
@@ -773,7 +777,8 @@ begin
       Include(lTxtFlags, txtBottom);
     tlCenter:
       Include(lTxtFlags, txtVCenter);
-    end;
+  end;
+
   Canvas.DrawText(FMargin, FMargin, Width - FMargin * 2, Height - FMargin * 2, FText, lTxtFlags, FLineSpace);
 end;
 
@@ -799,6 +804,14 @@ begin
   inherited Destroy;
 end;
 
+function TfpgPanel.GetClientRect: TfpgRect;
+begin
+  if Style = bsFlat then
+    Result.SetRect(0, 0, Width, Height)
+  else
+    Result := inherited GetClientRect;
+end;
+
 {TfpgGroupBox}
 
 function TfpgGroupBox.GetAlignment: TAlignment;
-- 
cgit v1.2.3-70-g09d2