moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-12-12 02:22:20 -05:00
Code Issues Releases Wiki Activity

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

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Extensions/dtm_editor.sex
View File

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

14
Includes/mml.simba
View File

@ -38,7 +38,7 @@ end;
function FindDTMs(DTM: Integer; var p: TPointArray; xs, ys, xe, ye: Integer): Boolean; function FindDTMs(DTM: Integer; var p: TPointArray; xs, ys, xe, ye: Integer): Boolean;
begin begin
with Client do 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; end;
procedure FreeDTM(DTM: Integer); procedure FreeDTM(DTM: Integer);
@ -53,5 +53,15 @@ end;
function AddDTM(const d: TMDTM): Integer; function AddDTM(const d: TMDTM): Integer;
begin 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; end;