Замеченные неполадки - Страница 37 - Форум

function LineWidth: double;
begin
   Result := View3D.ClientHeight / 400;
   if Result < 1 then
     Result := 1;
   LW := Result;   
end;

if PM <> nil then begin
             { FIX BEGIN }
             // костыль совместимости
             if ((NMName='d') or (NMName='dd') or (NMName='cd'))
             and (Length(PM.Signature)<>0) and (PM.Signature[Length(PM.Signature)]<>'m') then begin
               while (Length(Hiddens)>0) and (Hiddens[High(Hiddens)].Kind=nkMdr) do
                 SetLength(Hiddens, Length(Hiddens)-1);
             end;
             // проверка соответствия скрытых параметров
             hiddenError := false;
             for i := Low(Hiddens) to High(Hiddens) do begin
               case PM.Signature[i+(Length(PM.Signature)-High(Hiddens))] of
                 'f' : if not (Hiddens[i].Kind in [nkFlt,nkFltFunc]) then begin hiddenError := true; break; end;
                 'p' : if not (Hiddens[i].Kind in [nkPnt,nkPntFunc]) then begin hiddenError := true; break; end;
                 'm' : if not (Hiddens[i].Kind in [nkMdr])
                 or (Hiddens[i].Mdr=nil)
                 or (FullSignature(Hiddens[i].Mdr)<>FullSignature(PM.ArgRefs[i+(High(PM.ArgRefs)-High(Hiddens))].Mdr))
                 then begin hiddenError := true; break; end;
               end;
             end;
             if hiddenError and ShowError then
               AddMessage('Ошибка в сигнатуре подменённой модели ' + NMName + '!');
             { FIX END }
             NMSig := Copy(PM.Signature, 1, Length(PM.Signature) - Length(Hiddens));
           end;

Не найдена модель 71-605_3
Не найдена модель 71-605_7
Не найдена модель 71-605_static
На маршрут 1  нет подходящих моделей