moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-08-13 16:53:59 -04:00
Code Issues Releases Wiki Activity

Added MDTM.Index + rev number

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

2
Projects/Simba/simbaunit.pas
View File

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

1
Units/MMLAddon/PSInc/uPSC_mml.pas
View File

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

2
Units/MMLAddon/PSInc/uPSR_mml.pas
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_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 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 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; procedure SettingsPrefix(self : TMMLSettingsSandbox; var Prefix : String);begin; Prefix := self.Prefix; end;
@ -163,6 +164,7 @@ begin
RegisterMethod(@TMDTM.AddPoint,'AddPoint'); RegisterMethod(@TMDTM.AddPoint,'AddPoint');
RegisterPropertyHelper(@TMDTMCount_R,@TMDTMCount_W,'Count'); RegisterPropertyHelper(@TMDTMCount_R,@TMDTMCount_W,'Count');
RegisterPropertyHelper(@TMDTMPoints_R,nil,'Points'); RegisterPropertyHelper(@TMDTMPoints_R,nil,'Points');
RegisterPropertyHelper(@TMDTMIndex_r,nil,'Index');
end; end;
end; end;
procedure RIRegister_TMMLSettingsSandbox(cl : TPSRuntimeClassImporter); procedure RIRegister_TMMLSettingsSandbox(cl : TPSRuntimeClassImporter);

6
Units/MMLCore/mufasatypes.pas
View File

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