summaryrefslogtreecommitdiff
path: root/src/gui/gui_tab.pas
diff options
context:
space:
mode:
authorgraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2007-10-08 13:29:07 +0000
committergraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2007-10-08 13:29:07 +0000
commit8572d98ad92ba9d138824825966d5d2d2687939a (patch)
tree75075b89845e626cde95d18678b0bab3190d1975 /src/gui/gui_tab.pas
parent1e3f35e0e48523772b1ef4cad8baa404cc152c7d (diff)
downloadfpGUI-8572d98ad92ba9d138824825966d5d2d2687939a.tar.xz
* UI Designer: Added more available Boolean properties to the Object Inspector.
* Move inline documentation out of the gui_dialogs unit and into the fpdoc XML description file. * Minor code cleanup in a few units. * TfpgFileDialog ModalResult value has changed for Cancel from the value 0 to the value 2.
Diffstat (limited to 'src/gui/gui_tab.pas')
-rw-r--r--src/gui/gui_tab.pas5
1 files changed, 1 insertions, 4 deletions
diff --git a/src/gui/gui_tab.pas b/src/gui/gui_tab.pas
index 0996f13c..e85cebb8 100644
--- a/src/gui/gui_tab.pas
+++ b/src/gui/gui_tab.pas
@@ -441,7 +441,6 @@ end;
procedure TfpgPageControl.RePaintTitles;
var
- i: integer;
r: TfpgRect;
h: TfpgTabSheet;
lp: integer;
@@ -647,14 +646,12 @@ end;
procedure TfpgPageControl.HandleKeyPress(var keycode: word;
var shiftstate: TShiftState; var consumed: boolean);
var
- t: TfpgTabSheet;
i: integer;
begin
// writeln(Classname, '.Keypress');
consumed := True;
i := ActivePageIndex;
- t := ActivePage;
-
+
case keycode of
keyLeft:
begin