moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-25 10:42:20 -05:00
Code Issues Releases Wiki Activity

Small typo + some var -> out params.

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

4
Units/MMLAddon/PSInc/Wrappers/dtm.inc
View File

@ -49,14 +49,14 @@ begin
result := MFinder.FindDTMRotated(MDTM.GetDTM(DTM), x, y, xs, ys, xe, ye, sAngle, eAngle, aStep, aFound,false);
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
with CurrThread.Client do
result := MFinder.FindDTMsRotated(MDTM.GetDTM(DTM), Points, xs, ys, xe, ye,
sAngle, eAngle, aStep, aFound, true);
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
with CurrThread.Client do
result := MFinder.FindDTMsRotated(MDTM.GetDTM(DTM), Points, xs, ys, xe, ye,

2
Units/MMLAddon/PSInc/Wrappers/file.inc
View File

@ -51,7 +51,7 @@ begin
Result := CurrThread.Client.MFiles.FileSizeMuf(FileNum);
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
Result := CurrThread.Client.MFiles.ReadFileString(FileNum, s, x);
end;

2
Units/MMLAddon/PSInc/Wrappers/mouse.inc
View File

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

4
Units/MMLAddon/PSInc/Wrappers/ocr.inc
View File

@ -21,12 +21,12 @@ begin
Result := CurrThread.Client.MOCR.TextToMask(text,font);
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
TPA := CurrThread.Client.MOCR.TextToFontTPA(text, font, w, h);
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
Result := CurrThread.Client.MOCR.TextToFontTPA(text, font, w, h);
end;

2
Units/MMLCore/finder.pas
View File

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