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

designer: fix traversing component using arrow keys

Browse Source 
git-svn-id: trunk@21752 -
This commit is contained in:
paul 2009-09-18 00:32:19 +00:00
parent ede3c52deb
commit e19f46701f
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
designer/designer.pp
View File

@ -642,7 +642,9 @@ begin
AComponent := TComponent(List[0])
else
AComponent := TComponent(List[List.Count - 1]);
end;
end
else
AComponent := nil;
end
else
if DiffY <> 0 then
@ -664,7 +666,9 @@ begin
AComponent := TComponent(List[0])
else
AComponent := TComponent(List[List.Count - 1]);
end;
end
else
AComponent := nil;
end;
finally
List.Free;