paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 06:19:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

added check if fDockClients=nil (issue #7023)

Browse Source 
git-svn-id: trunk@9591 -
This commit is contained in:
mattias 2006-07-10 19:41:27 +00:00
parent ddd6c3806a
commit b71a2a8654
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
designer/designer.pp
View File

@ -1666,8 +1666,7 @@ var
Handled: boolean; Handled: boolean;
Begin Begin
{$IFDEF VerboseDesigner} {$IFDEF VerboseDesigner}
DebugLn('TDesigner.KEYDOWN ',DbgS(TheMessage.CharCode),' ', DebugLn(['TDesigner.KEYDOWN ',TheMessage.CharCode,' ',TheMessage.KeyData]);
DbgS(TheMessage.KeyData));
{$ENDIF} {$ENDIF}
Shift := KeyDataToShiftState(TheMessage.KeyData); Shift := KeyDataToShiftState(TheMessage.KeyData);
@ -1677,6 +1676,7 @@ Begin
TheMessage.CharCode,Shift); TheMessage.CharCode,Shift);
//DebugLn('TDesigner.KEYDOWN Command=',dbgs(Command)); //DebugLn('TDesigner.KEYDOWN Command=',dbgs(Command));
DoProcessCommand(Self,Command,Handled); DoProcessCommand(Self,Command,Handled);
//DebugLn(['TDesigner.KeyDown Command=',Command,' Handled=',Handled,' TheMessage.CharCode=',TheMessage.CharCode]);
if not Handled then begin if not Handled then begin
Handled:=true; Handled:=true;

1
lcl/include/wincontrol.inc
View File

@ -5518,6 +5518,7 @@ var
i: integer; i: integer;
begin begin
Result := 0; Result := 0;
if FDockClients=nil then exit;
for i:=FDockClients.Count-1 downto 0 do for i:=FDockClients.Count-1 downto 0 do
if TControl(FDockClients[I]).Visible then inc(Result); if TControl(FDockClients[I]).Visible then inc(Result);
end; end;