Тип события, возникающего при тестировании очередного объекта слоя
TTestObjectsCheckEvent = procedure(Sender: TObject; MOS: TMapObjectStructure;
lCode,oIndex,oType,nSubObject,LastPointNumber: integer;
CorrectionKind: TTestObjectCorrectionKind; var ErrorPointNumber: integer;
var ErrorPoint: TMapObjectPoint; var flHighlightMarkers: boolean;
var ErrorString: string) of object;
Sender
MOS
oType
nSubObject
LastPointNumber
CorrectionKind
ErrorPointNumber
ErrorPoint
ErrorString
(возвращаемый параметр) TTestObjectsCheckEvent = procedure(Sender: TObject; MOS: TMapObjectStructure; lCode,oIndex,oType,nSubObject,LastPointNumber: integer; CorrectionKind: TTestObjectCorrectionKind; var ErrorPointNumber: integer; var ErrorPoint: TMapObjectPoint; var flHighlightMarkers: boolean; var ErrorString: string) of object;