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

fixed crash on end of package tree

Browse Source 
git-svn-id: trunk@6721 -
This commit is contained in:
mattias 2005-02-01 11:25:16 +00:00
parent 7bebf194eb
commit dc731a2447
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/rtticontrols/rttictrls.pas
View File

@ -1607,6 +1607,7 @@ begin
if CollectValues then FetchValues; if CollectValues then FetchValues;
if ((FEditor<>nil) or OldEditorExisted) and Assigned(OnEditorChanged) then if ((FEditor<>nil) or OldEditorExisted) and Assigned(OnEditorChanged) then
OnEditorChanged(Self); OnEditorChanged(Self);
UpdateIdleHandler;
end; end;
procedure TCustomPropertyLink.FetchValues; procedure TCustomPropertyLink.FetchValues;
@ -1634,6 +1635,7 @@ begin
FIdleHandlerConnected:=false; FIdleHandlerConnected:=false;
Application.RemoveOnIdleHandler(@OnApplicationIdle); Application.RemoveOnIdleHandler(@OnApplicationIdle);
end; end;
//debugln('TCustomPropertyLink.UpdateIdleHandler ploReadOnIdle=',dbgs(ploReadOnIdle in Options));
end; end;
end; end;
@ -2103,10 +2105,10 @@ end;
procedure TTICustomEdit.LinkLoadFromProperty(Sender: TObject); procedure TTICustomEdit.LinkLoadFromProperty(Sender: TObject);
begin begin
if Sender=nil then ; if Sender=nil then ;
if (FLink.Editor=nil) then exit;
//writeln('TTICustomEdit.LinkLoadFromProperty A ',Name, //writeln('TTICustomEdit.LinkLoadFromProperty A ',Name,
// ' FLink.GetAsText=',FLink.GetAsText,' Text=',Text, // ' FLink.GetAsText=',FLink.GetAsText,' Text=',Text,
// ' PropName=',FLink.TIPropertyName); // ' PropName=',FLink.TIPropertyName);
if (FLink.Editor=nil) then exit;
Text:=FLink.GetAsText; Text:=FLink.GetAsText;
end; end;
@ -2114,6 +2116,9 @@ procedure TTICustomEdit.LinkSaveToProperty(Sender: TObject);
begin begin
if Sender=nil then ; if Sender=nil then ;
if FLink.Editor=nil then exit; if FLink.Editor=nil then exit;
//writeln('TTICustomEdit.LinkSaveToProperty A ',Name,
// ' FLink.GetAsText=',FLink.GetAsText,' Text=',Text,
// ' PropName=',FLink.TIPropertyName);
FLink.SetAsText(Text); FLink.SetAsText(Text);
end; end;

4
packager/packagelinks.pas
View File

@ -664,8 +664,8 @@ begin
break; break;
end; end;
CurNode:=LinkTree.FindSuccessor(CurNode); CurNode:=LinkTree.FindSuccessor(CurNode);
if AnsiCompareText(TPackageLink(CurNode.Data).Name,Dependency.PackageName) if CurNode=nil then break;
<>0 if CompareText(TPackageLink(CurNode.Data).Name,Dependency.PackageName)<>0
then begin then begin
CurNode:=nil; CurNode:=nil;
break; break;