* EditTest in the prototypes directory now tests Button ImageLayout property.

* TfpgBevel has been added to the UI Designer component palette.
* TfpgBevel is used in the UI Designer and Shape=Spacer it paints itself different in the UI Designer, so it's more visible. At runtime it doesn't paint like that.

1 files changed, 13 insertions, 0 deletions

diff --git a/src/gui/gui_panel.pas b/src/gui/gui_panel.pas
index fc9df44d..2dc848b5 100644
--- a/src/gui/gui_panel.pas
+++ b/src/gui/gui_panel.pas
@@ -306,6 +306,19 @@ begin
     Canvas.DrawLine(Width - 1, 0, Width - 1, Height - 1);
   if Shape in [bsBox, bsFrame, bsBottomLine] then
     Canvas.DrawLine(0, Height - 1, Width, Height - 1);
+    
+  // To make it more visible in the UI Designer
+  if csDesigning in ComponentState then
+  begin
+    if Shape in [bsSpacer] then
+    begin
+      Canvas.SetColor(clInactiveWgFrame);
+      Canvas.SetLineStyle(1, lsDash);
+      Canvas.DrawRectangle(0, 0, Width, Height);
+//      Canvas.SetTextColor(clText1);
+//      Canvas.DrawString(2, 2, Name + ': ' + Classname);
+    end;
+  end;
 end;
 
 {TfpgPanel}