Outlining, Dragging, and Pasting a Region (Delphi 6.0)

Take the following steps to add code that lets you outline an area with a mouse, drag a copy of the selected area, and paste the copy into another part of the bitmap:

ReadyToDrag: boolean ; //The state after marking the region but before dragging
Dragging: boolean;  //The state when the mouse is used for dragging the floater
StartX: Single; //Starting X position in screen twips
StartY: Single; //Starting Y position in screen twips
FloaterX: Single; //Floater X position in screen twips
FloaterY: Single; //Floater Y position in screen twips
ZoomFactorX: Single; //Used for translating positioning information
ZoomFactorY: Single; //Used for translating positioning information

procedure TForm1.btnSelRgnClick(Sender: TObject); 
begin
   LEADRasterView1.RgnFrameType := RGNFRAME_ANIMATED; 
   LEADRasterView1.Raster.RefBitmap:= False ; 
   LEADRasterView1.RgnMarkingMode:= RGNMARK_FREEHAND; 
   ShowMessage ('Draw a freehand region'); 
end; 

procedure TForm1.btnPasteFloaterClick(Sender: TObject); 
var
   LCRgnX:Single; 
   LCRgnY:Single; 
   LCRgnWidth: Single; 
   LCRgnHeight: Single; 
   LBRgnX: Single; 
   LBRgnY: Single; 
   LBRgnWidth: Single; 
   LBRgnHeight:Single; 
   MyOp: CombineConstants; 
begin
    //Do nothing if there is no floater. 
    if (LEADRasterView1.Floater = 0 ) then
       Exit; 

    //Get the floater into another bitmap
    LEADRasterView2.Raster.RefBitmap:= False; 
    LEADRasterView2.ScaleMode:= LEADRasterView1.ScaleMode; 
    LEADRasterView2.Raster.Bitmap := LEADRasterView1.Floater; 
    //Get the floater's client coordinates into local variables. 
    LCRgnX := LEADRasterView1.FloaterDstLeft; 
    LCRgnY := LEADRasterView1.FloaterDstTop; 
    LCRgnWidth := LEADRasterView1.FloaterDstWidth; 
    LCRgnHeight := LEADRasterView1.FloaterDstHeight; 
    //Delete the floater. 
    LEADRasterView1.FloaterVisible := False; 
    LEADRasterView1.Floater := 0; 
    //Translate the client coordinates to bitmap coordinates. 
    LBRgnX := ((LCRgnX - LEADRasterView1.DstLeft) / ZoomFactorX) + LEADRasterView1.SrcLeft; 
    LBRgnY := ((LCRgnY - LEADRasterView1.DstTop) / ZoomFactorY) + LEADRasterView1.SrcTop; 
    LBRgnWidth := LCRgnWidth / ZoomFactorX; 
    LBRgnHeight := LCRgnHeight / ZoomFactorY; 
    //Reposition the region to use as a mask for the Combine method. 
    LEADRasterView1.Raster.OffsetRgn ( LBRgnX - LEADRasterView1.Raster.Rgnleft, 
               LBRgnY - LEADRasterView1.Raster.Rgntop ) ; 
    //Use the Combine method to paste the Lead2 bitmap into the Lead1 bitmap. 
    MyOp := CB_OP_ADD + CB_DST_0 ; //Operation flags for a simple paste. 
    LEADRasterProcess1.Combine ( LEADRasterView1.Raster, LBRgnX, LBRgnY, LBRgnWidth, LBRgnHeight, LEADRasterView2.Raster, 0, 0, MyOp ) ; 
    //Repaint the part of the client area that has changed. 
    LEADRasterView1.RepaintRect ( LCRgnX, LCRgnY, LCRgnWidth, LCRgnHeight, False ) ; 
    //Free the region. 
    LEADRasterView1.Raster.FreeRgn ( ) ; 
end; 

procedure TForm1.LEADRasterView1MouseDown2 (Sender: TObject; Button,
  Shift: Smallint; x, y: Integer);
var
   BitmapX: Single; 
   BitmapY: Single; 
   NewX: Single; 
   NewY:Single; 
   NewWidth: Single; 
   NewHeight: Single; 

begin
   //Do nothing if we are drawing a region. 
   if LEADRasterView1.RgnMarkingMode <> RGNMARK_NONE then
      Exit; 
   //Save the starting position, in case we need it. 
   StartY := y; 
   StartX := x; 
   //If we are ready to drag the selection, get a floater. 
   if ( ReadyToDrag = True ) then
   begin
      //Translate the current mouse coordinates. 
      //These coordinates account for the zoom factor and offset. 
      ZoomFactorX := LEADRasterView1.DstWidth / LEADRasterView1.SrcWidth; 
      ZoomFactorY := LEADRasterView1.DstHeight / LEADRasterView1.SrcHeight; 
      BitmapX := (x / ZoomFactorX) - (LEADRasterView1.DstLeft / ZoomFactorX) 
                 + LEADRasterView1.SrcLeft; 
      BitmapY := (y / ZoomFactorY) - (LEADRasterView1.DstTop / ZoomFactorY) 
                 + LEADRasterView1.SrcTop; 
      //Continue to create the floater if the mouse is pointing to the region we marked. 

      if ( LEADRasterView1.Raster.IsPtInRgn (BitmapX, BitmapY) )then
      begin
         //Hide the region frame. 
         LEADRasterView1.RgnFrameType := RGNFRAME_NONE; 
         //Create the floater bitmap, which will be the part of the main bitmap that is
         //in the region's bounding rectangle. 
         LEADRasterView1.Floater := LEADRasterView1.Raster.Bitmap; 
         //Translate the bitmap region coordinates to client area coordinates. 
         NewY := ((LEADRasterView1.Raster.RgnTop - LEADRasterView1.SrcTop) * ZoomFactorY) 
                  + LEADRasterView1.DstTop; 
         NewX := ((LEADRasterView1.Raster.Rgnleft - LEADRasterView1.SrcLeft) * ZoomFactorX) 
                  + LEADRasterView1.DstLeft; 
         NewWidth := LEADRasterView1.Raster.RgnWidth * ZoomFactorX; 
         NewHeight := LEADRasterView1.Raster.RgnHeight * ZoomFactorY; 
         //Set the initial display position of the floater. 
         LEADRasterView1.SetFloaterDstRect ( NewX, NewY, NewWidth, NewHeight ) ; 
         //Set form-level variables. 
         FloaterY := LEADRasterView1.FloaterDstTop; 
         FloaterX := LEADRasterView1.FloaterDstLeft; 
         LEADRasterView1.FloaterVisible := True; 
         Dragging := True; 
         ReadyToDrag := False; 
       end; 
   end; 
end; 

procedure TForm1.LEADRasterView1MouseMove2 (Sender: TObject; Button,
  Shift: Smallint; x, y: Integer);
var
   xDelta: Single; 
   yDelta: Single; 
   NewX: Single; 
   NewY: Single; 
   NewWidth: Single; 
   NewHeight: Single; 
begin
   //Do nothing if we are drawing a region. 
   if LEADRasterView1.RgnMarkingMode <> RGNMARK_NONE then
      Exit ; 
   //Reposition the floater if we are dragging it. 
   if ((Dragging = True) And (Button = 1) And (LEADRasterView1.Floater <> 0)) then
   begin
      if ( LEADRasterView1.IsPtInFloater ( x, y )) then
      begin
         //Update the position variables. 
         xDelta := x - StartX; 
         yDelta := y - StartY; 
         NewX := FloaterX + xDelta; 
         NewY := FloaterY + yDelta; 
         NewWidth := LEADRasterView1.FloaterDstWidth ; 
         NewHeight := LEADRasterView1.FloaterDstHeight; 
         //Reposition the floater. 
         LEADRasterView1.SetFloaterDstRect ( NewX, NewY, NewWidth, NewHeight ) ; 
         //Save the form-level position variables. 
         FloaterY := NewY; 
         FloaterX := NewX; 
         StartY := y; 
         StartX := x; 
      end; 
   end; 
end; 

procedure TForm1.LEADRasterView1MouseUp2 (Sender: TObject; Button,
  Shift: Smallint; x, y: Integer);
begin
   //if we were drawing a region, set up for the next operation. 
   if ( LEADRasterView1.RgnMarkingMode <> RGNMARK_NONE ) then
   begin
      LEADRasterView1.RgnMarkingMode := RGNMARK_NONE; 
      LEADRasterView1.RgnFrameType := RGNFRAME_STATIC; 
      ReadyToDrag := True; 
      ShowMessage ( 'Now, drag the selection to another place.' ) ; 
   end; 
end;