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

MG: replaced halt with raiseexception

Browse Source 
git-svn-id: trunk@1423 -
This commit is contained in:
lazarus 2002-02-09 02:30:47 +00:00
parent 6de883b97d
commit e70cbdf3a2
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
designer/propedits.pp
View File

@ -1422,12 +1422,10 @@ begin
and (PropInfo^.SetProc = nil)))
then begin
Candidates.Delete(I);
writeln('AAA1 ',PropInfo^.Name);
continue;
end;
EdClass := GetEditorClass(PropInfo, Obj);
if EdClass = nil then begin
writeln('AAA2 ',PropInfo^.Name);
Candidates.Delete(I)
end else
begin
@ -1435,7 +1433,7 @@ writeln('AAA2 ',PropInfo^.Name);
PropEditor := EdClass.Create(Hook,Components,1);
PropEditor.SetPropEntry(0, Components[0], PropInfo);
PropEditor.Initialize;
with PropInfo^ do
with PropInfo^ do begin
// check for multiselection, ValueAvailable and customfilter
if ((CompCount > 1)
and not (paMultiSelect in PropEditor.GetAttributes))
@ -1443,8 +1441,9 @@ writeln('AAA2 ',PropInfo^.Name);
or (Assigned(EditorFilterFunc) and not EditorFilterFunc(PropEditor))
then begin
Candidates.Delete(I);
writeln('AAA3 ',PropInfo^.Name);
end;
end;
PropEditor.Free;
end;
end;
PropLists := TList.Create;