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

Merge branch 'master' of ssh://villavu.com:54367/simba

Browse Source
This commit is contained in:
Merlijn Wajer 2010-05-09 11:34:49 +02:00
commit 85f608d515
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Projects/SAMufasaGUI/testunit.pas
View File

@ -46,7 +46,7 @@ uses
CastaliaSimplePasPar, v_AutoCompleteForm, PSDump; CastaliaSimplePasPar, v_AutoCompleteForm, PSDump;
const const
SimbaVersion = 655; SimbaVersion = 656;
type type

6
Units/MMLCore/tpa.pas
View File

@ -1341,9 +1341,9 @@ begin;
if height > SearchBox.y2 then if height > SearchBox.y2 then
Screenbox.y2 := Screenbox.y2 + (height - SearchBox.y2); Screenbox.y2 := Screenbox.y2 + (height - SearchBox.y2);
SearchBox.y2 := Height; SearchBox.y2 := Height;
SetLength(Screen, SearchBox.x2 + 1,Searchbox.y2 + 1); SetLength(Screen, SearchBox.x2 + 1,SearchBox.y2 + 1);
for i := ScreenBox.x2 downto 0 do for i := SearchBox.x2 downto 0 do
FillChar(screen[i][0],screenbox.y2+1,0); FillChar(screen[i][0],SearchBox.y2+1,0);
SetLength(InversedTPA,(SearchBox.x2 + 1) * (Searchbox.y2 + 1)); SetLength(InversedTPA,(SearchBox.x2 + 1) * (Searchbox.y2 + 1));
for I := 0 to LenSearch do for I := 0 to LenSearch do
Screen[ SearchTPA[I].x,SearchTPA[I].y] := True; Screen[ SearchTPA[I].x,SearchTPA[I].y] := True;