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:
Simba Code:
{*******************************************************************************
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;