summaryrefslogtreecommitdiff
path: root/src/gui/gui_tab.pas
diff options
context:
space:
mode:
authorgraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2007-08-03 07:37:22 +0000
committergraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2007-08-03 07:37:22 +0000
commit3c3a0882afd414efc2c682ab0ba21ebcf5976bdb (patch)
tree16cd5e8d17e9e59032460de7b7ab187760be7b0a /src/gui/gui_tab.pas
parentee1f935bb9d42692f6acf6b8ed718244036aa7fe (diff)
downloadfpGUI-3c3a0882afd414efc2c682ab0ba21ebcf5976bdb.tar.xz
* Added two buttons to tabtest project to show PageControl.ActivePage in action.
Diffstat (limited to 'src/gui/gui_tab.pas')
-rw-r--r--src/gui/gui_tab.pas1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/gui/gui_tab.pas b/src/gui/gui_tab.pas
index 316608e9..54aa26ae 100644
--- a/src/gui/gui_tab.pas
+++ b/src/gui/gui_tab.pas
@@ -224,6 +224,7 @@ begin
FActiveSheet := AValue;
ActiveWidget := AValue;
RePaint;
+ fpgSendMessage(self, ActiveWidget, FPGM_PAINT)
end;
function TfpgPageControl.MaxButtonWidthSum: integer;