paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-15 22:20:44 +01:00
Code Issues Packages Projects Releases Wiki Activity

lcl: formatting

Browse Source 
git-svn-id: trunk@21813 -
This commit is contained in:
paul 2009-09-22 02:19:56 +00:00
parent da18cb85a2
commit 90f683e8be
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/include/wincontrol.inc
View File

@ -5366,7 +5366,7 @@ var
AParent: TWinControl;
begin
//debugln('TWinControl.DoKeyDown ',DbgSName(Self),' ShiftState=',dbgs(KeyDataToShiftState(Message.KeyData)),' CharCode=',dbgs(Message.CharCode));
Result:=true;
Result := True;
with Message do
begin
@ -5379,14 +5379,15 @@ begin
if CharCode = VK_UNKNOWN then Exit;
// let each parent form with keypreview handle the key
AParent:=Parent;
while (AParent<>nil) do begin
if (AParent is TCustomForm) then begin
AParent := Parent;
while (AParent <> nil) do
begin
if (AParent is TCustomForm) then
begin
F := TCustomForm(AParent);
if (F.KeyPreview)
and (F.DoKeyDownBeforeInterface(Message)) then Exit;
if (F.KeyPreview) and (F.DoKeyDownBeforeInterface(Message)) then Exit;
end;
AParent:=AParent.Parent;
AParent := AParent.Parent;
end;
if CharCode = VK_UNKNOWN then Exit;