diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-05-02 10:45:15 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-05-02 10:45:15 +0000 |
| commit | 781c7a0405b2abee470f9feff1676ef5f797c488 (patch) | |
| tree | 3160ae8efb40297441a79e6da9286fb5c6551d46 | |
| parent | b013ec399cd887c4344b29c66abe205afa28c6fe (diff) | |
| download | fpGUI-781c7a0405b2abee470f9feff1676ef5f797c488.tar.xz | |
* To make the PageControl more visible in the UI Designer.
| -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 |