moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-01-10 13:18:00 -05:00
Code Issues Releases Wiki Activity

Small fix

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@56 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Wizzup? 2009-09-13 19:14:15 +00:00
parent 3b6aadcf88
commit f8e5ca80fd
2 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Projects/SAMufasaGUI/project1.lpi
View File

@ -7,7 +7,7 @@
<TargetFileExt Value=""/>
<Title Value="Mufasa Stand Alone"/>
<UseXPManifest Value="True"/>
<ActiveEditorIndexAtStart Value="2"/>
<ActiveEditorIndexAtStart Value="1"/>
</General>
<VersionInfo>
<ProjectVersion Value=""/>
@ -377,7 +377,7 @@
<Filename Value="../../Units/MMLCore/finder.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="finder"/>
<CursorPos X="3" Y="290"/>
<CursorPos X="3" Y="289"/>
<TopLine Value="269"/>
<EditorIndex Value="1"/>
<UsageCount Value="57"/>
@ -409,7 +409,7 @@
<IsPartOfProject Value="True"/>
<UnitName Value="mmlpsthread"/>
<CursorPos X="65" Y="139"/>
<TopLine Value="225"/>
<TopLine Value="139"/>
<EditorIndex Value="8"/>
<UsageCount Value="53"/>
<Loaded Value="True"/>
@ -752,8 +752,8 @@
<Unit100>
<Filename Value="../../Units/PascalScript/uPSRuntime.pas"/>
<UnitName Value="uPSRuntime"/>
<CursorPos X="11" Y="1815"/>
<TopLine Value="1820"/>
<CursorPos X="54" Y="1887"/>
<TopLine Value="1875"/>
<EditorIndex Value="2"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>

8
Units/MMLCore/finder.pas
View File

@ -281,14 +281,14 @@ begin
end;
Inc(Ptr);
end;
Inc(Ptr, PtrInc)
Inc(Ptr, PtrInc);
end;
SetLength(TPA, I);
//Move(ClientTPA[0], TPA[0], i * SizeOf(TPoint));
for xx := 0 to I do
TPA[I] := ClientTPA[I];
Move(ClientTPA[0], TPA[0], i * SizeOf(TPoint));
{ for xx := 0 to I - 1 do
TPA[xx] := ClientTPA[xx];}
Result := I > 0;
TClient(Client).MWindow.FreeReturnData;