summaryrefslogtreecommitdiff
path: root/src/gui/gui_panel.pas
diff options
context:
space:
mode:
Diffstat (limited to 'src/gui/gui_panel.pas')
-rw-r--r--src/gui/gui_panel.pas13
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}