1
0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-29 04:22:16 -05:00

Small typo + some var -> out params.

This commit is contained in:
Raymond 2010-04-18 23:26:21 +02:00
parent 850620d946
commit 77420fa172
5 changed files with 7 additions and 7 deletions

View File

@ -49,14 +49,14 @@ begin
result := MFinder.FindDTMRotated(MDTM.GetDTM(DTM), x, y, xs, ys, xe, ye, sAngle, eAngle, aStep, aFound,false); result := MFinder.FindDTMRotated(MDTM.GetDTM(DTM), x, y, xs, ys, xe, ye, sAngle, eAngle, aStep, aFound,false);
end; end;
function ps_FindDTMsRotatedAlternating(DTM: Integer; var Points: TPointArray; xs, ys, xe, ye: Integer; sAngle, eAngle, aStep: Extended; out aFound: T2DExtendedArray): Boolean; extdecl; function ps_FindDTMsRotatedAlternating(DTM: Integer; var Points: TPointArray; xs, ys, xe, ye: Integer; sAngle, eAngle, aStep: Extended; var aFound: T2DExtendedArray): Boolean; extdecl;
begin begin
with CurrThread.Client do with CurrThread.Client do
result := MFinder.FindDTMsRotated(MDTM.GetDTM(DTM), Points, xs, ys, xe, ye, result := MFinder.FindDTMsRotated(MDTM.GetDTM(DTM), Points, xs, ys, xe, ye,
sAngle, eAngle, aStep, aFound, true); sAngle, eAngle, aStep, aFound, true);
end; end;
function ps_FindDTMsRotatedSE(DTM: Integer; var Points: TPointArray; xs, ys, xe, ye: Integer; sAngle, eAngle, aStep: Extended; out aFound: T2DExtendedArray): Boolean; extdecl; function ps_FindDTMsRotatedSE(DTM: Integer; var Points: TPointArray; xs, ys, xe, ye: Integer; sAngle, eAngle, aStep: Extended; var aFound: T2DExtendedArray): Boolean; extdecl;
begin begin
with CurrThread.Client do with CurrThread.Client do
result := MFinder.FindDTMsRotated(MDTM.GetDTM(DTM), Points, xs, ys, xe, ye, result := MFinder.FindDTMsRotated(MDTM.GetDTM(DTM), Points, xs, ys, xe, ye,

View File

@ -51,7 +51,7 @@ begin
Result := CurrThread.Client.MFiles.FileSizeMuf(FileNum); Result := CurrThread.Client.MFiles.FileSizeMuf(FileNum);
end; end;
function ps_ReadFileString(FileNum: Integer; out s: string; x: Integer): Boolean; extdecl; function ps_ReadFileString(FileNum: Integer; var s: string; x: Integer): Boolean; extdecl;
begin begin
Result := CurrThread.Client.MFiles.ReadFileString(FileNum, s, x); Result := CurrThread.Client.MFiles.ReadFileString(FileNum, s, x);
end; end;

View File

@ -30,7 +30,7 @@ begin
CurrThread.Client.IOManager.SetMousePos(X, Y); CurrThread.Client.IOManager.SetMousePos(X, Y);
end; end;
procedure ps_GetMousePos(out x, y: integer); extdecl; procedure ps_GetMousePos(var x, y: integer); extdecl;
begin begin
CurrThread.Client.IOManager.GetMousePos(X, Y); CurrThread.Client.IOManager.GetMousePos(X, Y);
end; end;

View File

@ -21,12 +21,12 @@ begin
Result := CurrThread.Client.MOCR.TextToMask(text,font); Result := CurrThread.Client.MOCR.TextToMask(text,font);
end; end;
procedure ps_TPAFromTextWrap(const text, font: String;out w,h : integer;out TPA : TPointArray); extdecl; procedure ps_TPAFromTextWrap(const text, font: String;var w,h : integer;out TPA : TPointArray); extdecl;
begin begin
TPA := CurrThread.Client.MOCR.TextToFontTPA(text, font, w, h); TPA := CurrThread.Client.MOCR.TextToFontTPA(text, font, w, h);
end; end;
function ps_TPAFromText(const text, font: String;out w,h : integer): TPointArray; extdecl; function ps_TPAFromText(const text, font: String;var w,h : integer): TPointArray; extdecl;
begin begin
Result := CurrThread.Client.MOCR.TextToFontTPA(text, font, w, h); Result := CurrThread.Client.MOCR.TextToFontTPA(text, font, w, h);
end; end;

View File

@ -2159,7 +2159,7 @@ begin
goodPoints[i] := not DTM.bp[i]; goodPoints[i] := not DTM.bp[i];
MaxX := x2 - x1; MaxX := x2 - x1;
MaxY := x2 - y1; MaxY := y2 - y1;
// Init data structure B. // Init data structure B.
W := x2 - x1; W := x2 - x1;