1
0
mirror of https://github.com/moparisthebest/Simba synced 2024-12-25 08:48:51 -05:00

Added MDTM.Index + rev number

This commit is contained in:
Raymond 2010-05-19 22:47:12 +02:00
parent 780190e2c7
commit 0a2ec3af12
4 changed files with 7 additions and 4 deletions

View File

@ -46,7 +46,7 @@ uses
CastaliaSimplePasPar, v_AutoCompleteForm, PSDump;
const
SimbaVersion = 676;
SimbaVersion = 685;
type

View File

@ -109,6 +109,7 @@ begin
RegisterMethod('procedure MovePoint(fromIndex,toIndex : integer);');
RegisterMethod('procedure AddPoint( Point : TMDTMPoint);');
RegisterProperty('Count','Integer',iptrw);
RegisterProperty('Index','Integer',iptr);
RegisterProperty('Points','TMDTMPointArray',iptr);
end;
end;

View File

@ -61,6 +61,7 @@ procedure TRegExprExpression_R(Self: TRegExp; var T: RegExprString);begin T := S
procedure TMDTMCount_W(Self: TMDTM; const T: Integer);begin Self.Count := T; end;
procedure TMDTMCount_R(Self: TMDTM; var T: Integer);begin T := Self.Count; end;
procedure TMDTMPoints_R(Self : TMDTM; var T : TMDTMPointArray); begin t := self.Points; end;
procedure TMDTMIndex_R(Self : TMDTM; var T : integer); begin t := self.Index; end;
procedure SettingsPrefix(self : TMMLSettingsSandbox; var Prefix : String);begin; Prefix := self.Prefix; end;
@ -163,6 +164,7 @@ begin
RegisterMethod(@TMDTM.AddPoint,'AddPoint');
RegisterPropertyHelper(@TMDTMCount_R,@TMDTMCount_W,'Count');
RegisterPropertyHelper(@TMDTMPoints_R,nil,'Points');
RegisterPropertyHelper(@TMDTMIndex_r,nil,'Index');
end;
end;
procedure RIRegister_TMMLSettingsSandbox(cl : TPSRuntimeClassImporter);

View File

@ -103,6 +103,9 @@ type
x1, y1, x2, y2: Integer;
end;
const
TMDTMPointSize = 5*SizeOf(integer)+Sizeof(boolean);
type
{ TODO: add cts per colour/tolerance? }
// TODO DTM-Not points. Not very hard really.
@ -117,9 +120,6 @@ type
Asz: Area size;
bp: Bad Point;
}
const
TMDTMPointSize = 5*SizeOf(integer)+Sizeof(boolean);
type
TMDTMPoint = record //TMufasaDTMPoint
x,y,c,t,asz : integer;
bp : boolean;