SRL Archive - Suggestions

Instant bitmap maker

Nebula

2012-06-22 02:30:00

Just downloaded Scar to play around and see how it compares to Simba. One thing I noticed was that it had a tool to automatically create bitmaps by dragging the mouse like so:

Simply put, it would be nice to have this in Simba.

Based Lord

2012-06-22 02:39:06

Seems useful :)

Le Jingle

2012-06-22 03:45:12

Well there is


CopyClientToBitmp(bmp, xs, ys, xe, ye);

but if you're looking for actually using the mouse (in rs?)then maybe you could do something such as:


Procedure BMPMouse(xs, ys, xe, ye: Integer; PtoS: Boolean);
Var
  i: Integer;
Begin
  MMouse(xs, ys, 0, 0);
  HoldMouse(xs, ys, Mouse_Left);
  MMouse(xe, ye, 0, 0);
  ReleaseMouse(xe, ye, Mouse_Left);
  CopyClientToBitmap(i, xs, ys, xe, ye);
  {$IFDEF SMART} SMART_DrawBoxEx(False, intToBox(xs, ys, xe, ye), 255); {$ENDIF}
  If PtoS Then
    WriteLn(CreateBitmapString(i));
End;