paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 05:36:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazutils: less warnings

Browse Source 
git-svn-id: trunk@36244 -
This commit is contained in:
mattias 2012-03-23 07:19:29 +00:00
parent dd09dc3868
commit e5e9750ca5
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
components/lazutils/ttraster.pas
View File

@ -141,13 +141,13 @@ type
function Draw_Sweep(MinY, MaxY: integer; PixelGrain: integer): boolean;
procedure Horizontal_Gray_Sweep_Drop(y: Int; x1, x2: TT_F26dot6; Left,
Right: TProfile);
procedure Horizontal_Gray_Sweep_Span(y: Int; x1, x2: TT_F26dot6; Left,
Right: TProfile);
procedure Horizontal_Gray_Sweep_Span(y: Int; x1, x2: TT_F26dot6; {%H-}Left,
{%H-}Right: TProfile);
procedure Horizontal_Sweep_Drop(y: Int; x1, x2: TT_F26dot6; Left,
Right: TProfile);
procedure Horizontal_Sweep_Init(var min, max: Int);
procedure Horizontal_Sweep_Span(y: Int; x1, x2: TT_F26dot6; Left,
Right: TProfile);
procedure Horizontal_Sweep_Init(var {%H-}min, {%H-}max: Int);
procedure Horizontal_Sweep_Span(y: Int; x1, x2: TT_F26dot6; {%H-}Left,
{%H-}Right: TProfile);
procedure Horizontal_Sweep_Step;
function ProcessCoordinate(var List: TProfile): integer;
procedure Raster_Object_Init;
@ -156,19 +156,19 @@ type
PixelGrain: integer): boolean;
{$IFNDEF CONST_PREC}procedure Set_High_Precision(High: boolean);
procedure Set_Second_Pass(Pass: boolean);
procedure Vertical_Gray_Sweep_Init(var min, max: Int);
procedure Vertical_Gray_Sweep_Init(var min, {%H-}max: Int);
procedure Vertical_Gray_Sweep_Init_Direct(var min, max: Int);
procedure Vertical_Gray_Sweep_Init_Direct_HQ(var min, max: Int);
procedure Vertical_Gray_Sweep_Init_HQ(var min, max: Int);
procedure Vertical_Gray_Sweep_Init_HQ(var min, {%H-}max: Int);
procedure Vertical_Gray_Sweep_Step;
procedure Vertical_Gray_Sweep_Step_Direct;
procedure Vertical_Gray_Sweep_Step_Direct_HQ;
procedure Vertical_Gray_Sweep_Step_HQ;
procedure Vertical_Sweep_Drop(y: Int; x1, x2: TT_F26dot6; Left,
Right: TProfile);
procedure Vertical_Sweep_Init(var min, max: Int);
procedure Vertical_Sweep_Span(y: Int; x1, x2: TT_F26dot6; Left,
Right: TProfile);
procedure Vertical_Sweep_Init(var min, {%H-}max: Int);
procedure Vertical_Sweep_Span({%H-}y: Int; x1, x2: TT_F26dot6; {%H-}Left,
{%H-}Right: TProfile);
procedure Vertical_Sweep_Step;
{$ENDIF}
public