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

+ Fixed error which stopped code from compiling

Browse Source 
git-svn-id: trunk@6970 -
This commit is contained in:
michael 2005-03-16 21:22:43 +00:00
parent 49b530b12a
commit 86803e5b23
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ideintf/componenttreeview.pas
View File

@ -165,7 +165,7 @@ begin
Node:=GetNodeAt(X, Y);
if Assigned(Node) and Assigned(Node.Data) then begin
AnObject:=TObject(Node.Data);
if AnObject is TWinControl and (csAcceptsControls in TWinControl(AnObject).ControlStyle) then
if (AnObject is TWinControl) and (csAcceptsControls in TWinControl(AnObject).ControlStyle) then
begin
AContainer := TWinControl(AnObject);
AcceptContainer := True;