paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 11:00:50 +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; AParent: TWinControl;
begin begin
//debugln('TWinControl.DoKeyDown ',DbgSName(Self),' ShiftState=',dbgs(KeyDataToShiftState(Message.KeyData)),' CharCode=',dbgs(Message.CharCode)); //debugln('TWinControl.DoKeyDown ',DbgSName(Self),' ShiftState=',dbgs(KeyDataToShiftState(Message.KeyData)),' CharCode=',dbgs(Message.CharCode));
Result:=true; Result := True;
with Message do with Message do
begin begin
@ -5379,14 +5379,15 @@ begin
if CharCode = VK_UNKNOWN then Exit; if CharCode = VK_UNKNOWN then Exit;
// let each parent form with keypreview handle the key // let each parent form with keypreview handle the key
AParent:=Parent; AParent := Parent;
while (AParent<>nil) do begin while (AParent <> nil) do
if (AParent is TCustomForm) then begin begin
if (AParent is TCustomForm) then
begin
F := TCustomForm(AParent); F := TCustomForm(AParent);
if (F.KeyPreview) if (F.KeyPreview) and (F.DoKeyDownBeforeInterface(Message)) then Exit;
and (F.DoKeyDownBeforeInterface(Message)) then Exit;
end; end;
AParent:=AParent.Parent; AParent := AParent.Parent;
end; end;
if CharCode = VK_UNKNOWN then Exit; if CharCode = VK_UNKNOWN then Exit;