diff options
| -rw-r--r-- | src/gui/gui_tab.pas | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/gui/gui_tab.pas b/src/gui/gui_tab.pas index ede88817..a405d349 100644 --- a/src/gui/gui_tab.pas +++ b/src/gui/gui_tab.pas @@ -644,6 +644,16 @@ begin OrderSheets; Canvas.ClearClipRect; Canvas.Clear(FBackgroundColor); + + // To make it more visible in the UI Designer + if csDesigning in ComponentState then + begin + Canvas.SetColor(clInactiveWgFrame); + Canvas.DrawRectangle(0, 0, Width, Height); + Canvas.SetTextColor(clText1); + Canvas.DrawString(2, 2, Name + ': ' + Classname); + end; + if TabPosition = tpBottom then begin if Focused then |