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

Last fixes for stable version.

Browse Source
This commit is contained in:
meffi@lab313.ru
2014-05-07 17:48:45 +00:00
parent 27d22bec0e
commit 347d12c47a
8 changed files with 281 additions and 258 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
utim.pas
View File

@@ -238,6 +238,16 @@ begin
Result := (TIM^.HEAD^.bBPP in cTIMCLUT);
end;
function CheckCLUTVramX(TIM: PTIM): Boolean;
begin
Result := (TIM^.CLUT^.wVRAMX + TIM^.CLUT^.wColorsCount) <= cCLUTColorsMax;
end;
function CheckCLUTVramY(TIM: PTIM): Boolean;
begin
Result := (TIM^.CLUT^.wVRAMY + TIM^.CLUT^.wClutsCount) <= cCLUTCountMax;
end;
function CheckCLUTColors(TIM: PTIM): Boolean;
begin
Result := (TIM^.CLUT^.wColorsCount >= 1) and (TIM^.CLUT^.wColorsCount <= cCLUTColorsMax);
@@ -267,9 +277,7 @@ end;
function CheckCLUT(TIM: PTIM): Boolean;
begin
Result := (CheckCLUTColors(TIM) and CheckCLUTCount(TIM)
// Need to Check CLUT^.dwSize
);
Result := CheckCLUTColors(TIM) and CheckCLUTCount(TIM) and CheckCLUTVramX(TIM) and CheckCLUTVramY(TIM);
end;
function CheckTIMSize(TIM: PTIM): Boolean;
@@ -282,15 +290,31 @@ begin
Result := (TIM^.IMAGE^.dwSize = GetTIMIMAGESize(TIM));
end;
function CheckIMAGEWidth(TIM: PTIM): Boolean;
begin
Result := (TIM^.IMAGE^.wWidth >= 1) and (TIM^.IMAGE^.wWidth <= cIMAGEWidthMax);
end;
function CheckIMAGEHeight(TIM: PTIM): Boolean;
begin
Result := (TIM^.IMAGE^.wHeight >= 1) and (TIM^.IMAGE^.wHeight <= cIMAGEHeightMax);
end;
function CheckIMAGEVramX(TIM: PTIM): Boolean;
begin
Result := (TIM^.IMAGE^.wVRAMX + TIM^.IMAGE^.wWidth) <= cCLUTColorsMax;
end;
function CheckIMAGEVramY(TIM: PTIM): Boolean;
begin
Result := (TIM^.IMAGE^.wVRAMY + TIM^.IMAGE^.wHeight) <= cCLUTCountMax;
end;
function CheckIMAGE(TIM: PTIM): Boolean;
begin
Result := False;
Result := CheckIMAGEWidth(TIM) and CheckIMAGEHeight(TIM) and CheckIMAGEVramX(TIM) and CheckIMAGEVramY(TIM);
if (TIM^.IMAGE^.wWidth = 0) or (TIM^.IMAGE^.wHeight = 0) then Exit;
if (TIM^.IMAGE^.wWidth > cIMAGEWidthMax) or (TIM^.IMAGE^.wHeight > cIMAGEHeightMax) then Exit;
Result := (not(TIM^.HEAD^.bBPP in cTIMWrongBads)) or TIMIsGood(TIM);
Result := Result and ((not(TIM^.HEAD^.bBPP in cTIMWrongBads)) or TIMIsGood(TIM));
end;
procedure ClearTIM(TIM: PTIM);
@@ -570,4 +594,4 @@ begin
Result := TIM^.IMAGE^.wVRAMY;
end;
end.
end.