paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-24 12:39:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

handle generic shortcuts after widgetset specific shortcuts

Browse Source 
git-svn-id: trunk@6757 -
This commit is contained in:
micha 2005-02-06 15:49:49 +00:00
parent 9a7b160e31
commit b3a1958c43
1 changed files with 30 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

68
lcl/include/wincontrol.inc
View File

@ -2461,44 +2461,6 @@ begin
if CharCode = VK_UNKNOWN then Exit;
end;
// check popup menu
if Assigned(FPopupMenu) then
begin
if FPopupMenu.IsShortCut(Message) then
begin
CharCode := VK_UNKNOWN;
exit;
end;
end;
// let each parent form handle shortcuts
AParent:=Parent;
while (AParent<>nil) do begin
if (AParent is TCustomForm) then begin
if TCustomForm(AParent).IsShortcut(Message) then
begin
CharCode := VK_UNKNOWN;
exit;
end;
end;
AParent:=AParent.Parent;
end;
// let application handle shortcut
if Assigned(Application) and Application.IsShortcut(Message) then
begin
CharCode := VK_UNKNOWN;
exit;
end;
// let parent(s) handle key from child key
if Assigned(Parent) then
if Parent.ChildKey(Message) then
begin
CharCode := VK_UNKNOWN;
exit;
end;
// let user handle the key
if not (csNoStdEvents in ControlStyle) then
begin
@ -2540,11 +2502,38 @@ end;
function TWinControl.DoRemainingKeyDown(var Message: TLMKeyDown): Boolean;
var
ShiftState: TShiftState;
AParent: TWinControl;
begin
Result:=true;
ShiftState := KeyDataToShiftState(Message.KeyData);
// check popup menu
if Assigned(FPopupMenu) then
begin
if FPopupMenu.IsShortCut(Message) then
exit;
end;
// let each parent form handle shortcuts
AParent:=Parent;
while (AParent<>nil) do begin
if (AParent is TCustomForm) then begin
if TCustomForm(AParent).IsShortcut(Message) then
exit;
end;
AParent:=AParent.Parent;
end;
// let application handle shortcut
if Assigned(Application) and Application.IsShortcut(Message) then
exit;
// let parent(s) handle key from child key
if Assigned(Parent) then
if Parent.ChildKey(Message) then
exit;
// handle LCL special keys
ControlKeyDown(Message.CharCode,ShiftState);
if Message.CharCode=VK_UNKNOWN then exit;
@ -4464,6 +4453,9 @@ end;
{ =============================================================================
$Log$
Revision 1.311 2005/02/06 15:49:49 micha
handle generic shortcuts after widgetset specific shortcuts
Revision 1.310 2005/02/05 16:09:52 marc
* first 64bit changes