Persona/tim2view
3
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Removed unusable parameter.

Browse Source
This commit is contained in:
Vladimir Kryvian
2016-02-02 11:15:50 +03:00
parent 6d808f08f8
commit 575b30a905
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
udrawtim.pas
View File

@@ -14,7 +14,7 @@ type
procedure Tim2Png(TIM: PTIM; CLUT_NUM: Integer; Image: PDrawSurf; TranspMode: Byte);
procedure Png2Tim(Image: PDrawSurf; Dest: PTIM);
procedure DrawClutCell(TIM: PTIM; CLUT_NUM: Integer; Grid: PDrawGrid; X, Y: Integer);
procedure SetupCLUT(TIM: PTIM; CLUT_NUM: Integer; Grid: PDrawGrid);
procedure SetupCLUT(TIM: PTIM; Grid: PDrawGrid);
procedure ClearCanvas(ACanvas: PCanvas; Rect: TRect);
procedure ClearGrid(Grid: PDrawGrid);
@@ -365,9 +365,9 @@ begin
Dispose(CLUT_COLOR);
end;
procedure SetupCLUT(TIM: PTIM; CLUT_NUM: Integer; Grid: PDrawGrid);
procedure SetupCLUT(TIM: PTIM; Grid: PDrawGrid);
var
X, Y, ROWS, COLS, COLORS: Integer;
ROWS, COLS, COLORS: Integer;
begin
COLORS := GetTimColorsCount(TIM);
COLS := Min(COLORS, 32);

2
umain.pas
View File

@@ -1164,7 +1164,7 @@ begin
grdClut.Enabled := TIMHasCLUT(TIM);
if TIMHasCLUT(TIM) then
SetupCLUT(TIM, cbbCLUT.ItemIndex, @grdClut)
SetupCLUT(TIM, @grdClut)
else
begin
grdClut.ColCount := 1;