SRL Archive - SRL Bugs

PaintSmart variable removal [minor]


Cstrike

2010-11-17 11:10:32

Minor problem, the thing works just I keep getting "variable unused" x2

This is my fix if anyone wants to apply it, in fact you can even remove the commented variables out, I just left it commented so I could both test it and show you guys what needs removing:

{*******************************************************************************
procedure SMART_DrawBoxEx(Clear: boolean; Box: TBox; color: TColor);
Contributors: Sir R. Magician, caused, mastaraymond
Description: Draws a TBox onto the SMART Debug canvas
*******************************************************************************}
procedure SMART_DrawBoxEx(Clear: boolean; Box: TBox; color: TColor);
{$IFDEF SMART}
var
drawing : TBitmap;
//TP : TPoint;
//B: TBox;
begin

drawing := TBitmap.Create;
drawing.canvas.handle := SmartGetDebugDC;
drawing.canvas.Pen.Color := color;

if Clear then ClearRSCanvas(drawing.canvas);

drawing.canvas.moveto(Box.x1,Box.y1);
drawing.canvas.LineTo(Box.x2,Box.y1);
drawing.canvas.LineTo(Box.x2,Box.y2);
drawing.canvas.LineTo(Box.x1,Box.y2);
drawing.canvas.LineTo(Box.x1,Box.y1);


try
FreeBitmap(drawing);
except end;

{$ELSE}
begin
{$ENDIF}

end;

Coh3n

2010-11-17 18:24:13

Fixed, thanks.