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:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:

procedure TLane.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
var apos    : Tpoint;
    iRec    : TRect;
begin
  if ssleft in Shift THEN
  BEGIN
    //
    IF fmouseact = madraw THEN
    BEGIN
      image1.Canvas.DrawFocusRect(rect(fp_ol.X,fp_ol.Y,fp_ur.X,fp_ur.Y));
      image1.Canvas.DrawFocusRect(rect(fp_ol.X,fp_ol.Y,X,Y));
    END;
    //
    IF fmouseact = mamove THEN
    BEGIN
      IF fAktiveObj < 0 THEN
      BEGIN
        image1.Canvas.Brush.Color := clWhite;
        image1.Canvas.Pen.Color := clBlack;
        image1.Canvas.DrawFocusRect(fmfokus);
      //
        fp_ol.X := x;  fp_ol.Y := y;
        fmfokus.TopLeft := fp_ol;
        apos.X := fm_rect.Right+fp_ol.X;
        apos.Y := fm_rect.Bottom + fp_ol.Y;
        fmfokus.BottomRight := apos;
        fmfokus := srect(fmfokus);
        image1.Canvas.Pen.Color := clBlack;
        image1.Canvas.DrawFocusRect(fmfokus);
      END
      ELSE
      BEGIN
        image1.Canvas.Brush.Color := clWhite;
        image1.Canvas.Pen.Color := clBlack;
        image1.Canvas.DrawFocusRect(fmfokus);
        fp_ol.X := x;  fp_ol.Y := y;
        irec  := fworkobjekt.PrepareDrawRect;
        fmfokus.TopLeft := fp_ol;
        apos.X := irec.Right + fp_ol.X;
        apos.Y := irec.Bottom + fp_ol.Y;
        fmfokus.BottomRight := apos;
        fmfokus := srect(fmfokus);

        image1.Canvas.Pen.Color := clBlack;
        image1.Canvas.DrawFocusRect(fmfokus);
      END;
    END;
    fp_ur.X := x;  fp_ur.Y := y;
  END;
end;