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

2
umain.pas
View File

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