[Qt] QTabWidget problem

[Den Jean]

On Thursday 29 January 2009 21:15:43 zeljko wrote:
> We'll .... it's possible that LCL calls are incorrect , I've lost some time
> against this problem and couldn't find the way to fix it.

try this for a starter,  should move this temp ugly fix to a more appropriate place in lcl/qt, 
probably you know better, problem is that LCL/qt/NoteBook does not return it is focused.





Index: lcl/include/application.inc
===================================================================
--- lcl/include/application.inc	(revision 18497)
+++ lcl/include/application.inc	(working copy)
@@ -1840,10 +1840,12 @@
 procedure TApplication.DoTabKey(AControl: TWinControl; var Key: Word;
   Shift: TShiftState);
 begin
+writeln('====@@@*** DoTabKey called on ',AControl.ClassName,' with anoTabToSelectNext in Navigation:',anoTabToSelectNext in Navigation,' AControl.Focused:',AControl.Focused,' not 
WANTSPECIALKEY:',AControl.Perform(CM_WANTSPECIALKEY, Key, 0) = 0);
   if (Key = VK_TAB) and ((Shift - [ssShift]) = []) and
-     (anoTabToSelectNext in Navigation) and AControl.Focused and
+     (anoTabToSelectNext in Navigation) and (AControl.Focused or (AControl.ClassName='TNotebook')) and
      (AControl.Perform(CM_WANTSPECIALKEY, Key, 0) = 0) then
   begin
+    writeln('             DoTabKey calls AControl.PerformTab on:',AControl.ClassName);
     // traverse tabstop controls inside form
     AControl.PerformTab(not (ssShift in Shift));
     Key := VK_UNKNOWN;