moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-22 09:12:19 -05:00
Code Issues Releases Wiki Activity

Fixed *dickish* bug!

Browse Source
This commit is contained in:
Raymond 2010-05-12 13:01:29 +02:00
parent 12cb2c1513
commit adcc10fc58
3 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Projects/Simba/simbaunit.lfm
View File

@ -798,6 +798,7 @@ object SimbaForm: TSimbaForm
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF006D9CD4896A9AD2FB6697CFEE FF00FFFFFF00FFFFFF00FFFFFF006D9CD4896A9AD2FB6697CFEE
} }
ShortCut = 16465
OnClick = ActionExitExecute OnClick = ActionExitExecute
end end
end end

2
Projects/Simba/simbaunit.pas
View File

@ -46,7 +46,7 @@ uses
CastaliaSimplePasPar, v_AutoCompleteForm, PSDump; CastaliaSimplePasPar, v_AutoCompleteForm, PSDump;
const const
SimbaVersion = 660; SimbaVersion = 666;
type type

9
Units/MMLCore/tpa.pas
View File

@ -981,23 +981,24 @@ begin;
fy := TempBox.y2 - TempBox.y1+3; fy := TempBox.y2 - TempBox.y1+3;
fx := TempBox.x2 - TempBox.x1+2; fx := TempBox.x2 - TempBox.x1+2;
for i := 0 to fx do for i := 0 to fx do
FillChar(PointsToFill[i][0],fy*sizeof(boolean),0); FillChar(PointsToFill[i][0],fy,0);
x := TempBox.x1 - 1; x := TempBox.x1 - 1;
y := TempBox.y1 - 1; y := TempBox.y1 - 1;
CurrentArray := -1; CurrentArray := -1;
SetLength(Stack , LengthTPA + 1); SetLength(Stack , LengthTPA + 1);
SetLength(Lengths , LengthTPA + 1); SetLength(Lengths , LengthTPA + 1);
SetLength(TempTPA , LengthTPA + 1); SetLength(TempTPA , LengthTPA + 1);
For I := 0 to LengthTPA do for I := 0 to LengthTPA do
begin; begin;
TempTPA[I].x := TPA[I].x - x; TempTPA[I].x := TPA[I].x - x;
TempTPA[I].y := TPA[I].y - y; TempTPA[I].y := TPA[I].y - y;
end; end;
For I := 0 to LengthTPA do for I := 0 to LengthTPA do
PointsToFill[TempTPA[I].x][TempTPA[I].y] := True; PointsToFill[TempTPA[I].x][TempTPA[I].y] := True;
For I := 0 to LengthTPA do for I := 0 to LengthTPA do
if PointsToFill[TempTPA[I].x][TempTPA[I].y] then if PointsToFill[TempTPA[I].x][TempTPA[I].y] then
begin; begin;
PointsToFill[TempTPA[i].x][TempTPA[i].y] := false;
inc(CurrentArray); inc(CurrentArray);
SetLength(Result,CurrentArray + 1); SetLength(Result,CurrentArray + 1);
SetLength(Result[CurrentArray],LengthTPA - I + 1); SetLength(Result[CurrentArray],LengthTPA - I + 1);