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:
parent
780190e2c7
commit
0a2ec3af12
@ -46,7 +46,7 @@ uses
|
||||
CastaliaSimplePasPar, v_AutoCompleteForm, PSDump;
|
||||
|
||||
const
|
||||
SimbaVersion = 676;
|
||||
SimbaVersion = 685;
|
||||
|
||||
type
|
||||
|
||||
|
@ -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;
|
||||
|
@ -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);
|
||||
|
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user