diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-10-08 13:29:07 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-10-08 13:29:07 +0000 |
commit | 8572d98ad92ba9d138824825966d5d2d2687939a (patch) | |
tree | 75075b89845e626cde95d18678b0bab3190d1975 /src/gui/gui_tab.pas | |
parent | 1e3f35e0e48523772b1ef4cad8baa404cc152c7d (diff) | |
download | fpGUI-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.pas | 5 |
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 |