paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 10:59:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-CustomDrawn: Finally finishes fixing suppoty to navigate controls with tab

Browse Source 
git-svn-id: trunk@39493 -
This commit is contained in:
sekelsenmat 2012-12-09 18:55:55 +00:00
parent 0366bfa300
commit fb7212f505
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/interfaces/customdrawn/customdrawnobject.inc
View File

@ -59,6 +59,7 @@ begin
// Also mark in the window information the focus change // Also mark in the window information the focus change
TCDForm(lForm.Handle).FocusedControl := ALCLControl; TCDForm(lForm.Handle).FocusedControl := ALCLControl;
TCDForm(lForm.Handle).FocusedIntfControl := FocusedIntfControl;
// Verify if the virtual keyboard needs to be shown/hidden // Verify if the virtual keyboard needs to be shown/hidden
// Only show if there is no hardware keyboard, but hide always in case // Only show if there is no hardware keyboard, but hide always in case

6
lcl/interfaces/customdrawn/customdrawnwinapi.inc
View File

@ -2852,8 +2852,10 @@ end;*)
function TCDWidgetSet.GetFocus: HWND; function TCDWidgetSet.GetFocus: HWND;
begin begin
Result := 0; Result := 0;
if FocusedIntfControl <> nil then Result := FocusedIntfControl.Handle // Don't return the intfcontrol, we try to pretend it doesn't exist
else if FocusedControl <> nil then Result := FocusedControl.Handle; {if FocusedIntfControl <> nil then Result := FocusedIntfControl.Handle
else}
if FocusedControl <> nil then Result := FocusedControl.Handle;
end; end;
(*function TQtWidgetSet.GetKeyState(nVirtKey: Integer): Smallint; (*function TQtWidgetSet.GetKeyState(nVirtKey: Integer): Smallint;