diff options
Diffstat (limited to 'src/gui/gui_panel.pas')
-rw-r--r-- | src/gui/gui_panel.pas | 13 |
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} |