1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

procedure TfrmGartomatPRO.GardenBackgroundMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
var
 XP, YP, BX, BY: integer;
 Source,Dest : TRect;
begin
 BX := GardenBackground.XScr2Bmp ( X );
 BY := GardenBackground.YScr2Bmp ( Y );
 XP := Trunc ( (BX - 20) / 40 );
 YP := Trunc ( (BY - 25) / 40 );
 // draw selection
 if ( XP < 17 ) and ( YP < 12 )then
  begin
   Caption := 'Column: ' + IntToStr ( XP + 1 ) + '  ' + 'Row: ' + IntToStr ( YP + 1 );
   with GardenBackground.BackBuffer.Canvas do
    begin
     Pen.Color := clBlack;
     Pen.Mode  := pmNotXor;
     Pen.Width := 1;
     // Source := Rect(0,0,40,40);
     Dest   := Rect((XP*40)+20,(YP*40)+25,(XP*40)+60,(YP*40)+65);
     // GardenBackground.Bitmap.Canvas.CopyRect(Dest,Pflanzen40x40.Canvas,Source);
     Rectangle(Dest);
   end;
  end
 else
  begin
  end;
end;