Theoretically DTM editor should work now.. There is just some nasty bug left :(. That's making PS not compile it.

This commit is contained in:
Raymond 2010-06-15 18:38:16 +02:00
parent c558f564f6
commit 9cc1279143
2 changed files with 13 additions and 3 deletions

View File

@ -609,7 +609,7 @@ begin
if FindColorsTolerance(Points, getColour, 0, 0, bmpBuffer.Width - 1, bmpBuffer.Height - 1, getTolerance) then
bmpOverlay.DrawTPA(Points, MarkCol);
SetImageTarget(h);}
SetImageTarget(h);
UpdateBitmap(True, False);
end;

View File

@ -38,7 +38,7 @@ end;
function FindDTMs(DTM: Integer; var p: TPointArray; xs, ys, xe, ye: Integer): Boolean;
begin
with Client do
result := MFinder.FindDTMs(MDTMs[DTM], p, xs, ys, xe, ye);
result := MFinder.FindDTMs(MDTMs.GetDTM(DTM), p, xs, ys, xe, ye,0);
end;
procedure FreeDTM(DTM: Integer);
@ -53,5 +53,15 @@ end;
function AddDTM(const d: TMDTM): Integer;
begin
Result := Client.MDTMs.AddDTM(d);
Result := Client.MDTMs.AddMDTM(d);
end;
function GetDTM(const index : integer) : TMDTM;
begin
result := Client.MDTMs.GetDTM(index);
end;
function FindColorsTolerance(var Points: TPointArray; Color, xs, ys, xe, ye, Tolerance: Integer): Boolean;
begin;
result := Client.MFinder.FindColorsTolerance(points,color,xs,ys,xe,ye,tolerance);
end;