EnumSegments example for Delphi
procedure TForm1.LEADMRC1EnumSegments (nSegId, SegmentLeft, SegmentTop,
SegmentRight, SegmentBottom, nSegType: Integer; crTextForeColor,
crTextBackColor: Cardinal);
begin
LEADImage1.DrawFillStyle := bsDiagCross;
LEADImage1.DrawPenWidth := 6;
LEADImage1.DrawPenColor := clYellow;
if nSegType = SEGMENT_PICTURE Then
LEADImage1.DrawFillColor := clGreen
else
LEADImage1.DrawFillColor := clRed;
LEADImage1.DrawRectangle (SegmentLeft, SegmentTop, SegmentRight - SegmentLeft, SegmentBottom - SegmentTop);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
LEADMrc1.EnumSegments ();
Caption:= 'Picture segments will be green-hashed';
end;