Выделение объектов в Canvas...

[Roof]

Данный код рисует 16 квадратиков на Image1

procedure TForm1.FormCreate(Sender: TObject);
var
i, j: integer;
x, y, x1, y1: integer;
begin
  x:= 10; y:=10; x1:= 30; y1:=30;
  with Form1.Image1.Canvas do begin;
       Pen.Color:= ($0000FF);
       Brush.Color:= ($556677);
       Form1.Image1.Canvas.Rectangle(0,0,image1.Width,image1.Height);

       for  i:= 1 to 4 do
           for j:= 1 to 4 do begin
               RectAngle(x, y, x1, y1);
               Inc(x, (30));
               Inc(x1, (30));

               if j>= 4 then begin
                 x:=10; x1:= 30;
                 Inc(y, (30));
                 Inc(y1, (30));
               end;
           end;
   end;
end;

Как реализовать - когда пользователь мышкой проносит над любым из квадратиков, то он бы выделялся снаружи рамкой?
Например, белого цвета. Понимаю, что в событии MouseMove, но ерунда получается...

[Stilet]

Вот пример части рисунка который на форме как плитка отрисовывается:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ImgList;

type
  TForm1 = class(TForm)
    ImageList1: TImageList;
    procedure FormPaint(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var  a,b:integer;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormPaint(Sender: TObject);
var xo,yo,x,y,i:integer;
begin
 x:=0; y:=0;
 for i:=0 to ImageList1.Count-1 do begin
  ImageList1.Draw(Form1.Canvas,x,y,i);
  if (a>x)and(a<(x+64))and(b>y)and(b<y+64) then begin
   Canvas.Pen.Color:=clRed;
   Canvas.Brush.Style:=bsClear;
   Canvas.Pen.Width:=5;
   Canvas.Rectangle(x,y,x+64,y+64);
  end else begin
   Canvas.Pen.Color:=clNone;
   Canvas.Pen.Width:=0;
  end;
  xo:=x;yo:=y;
  if x+ImageList1.Width<Width then inc(x,64)
   else begin
    inc(y,64);x:=0;
   end;
 end;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  a:=x;
  b:=y ;
  Repaint;
end;

end.

[Roof]

2 Stilet - долго и упорно не мог разобраться в твоем коде
Я решил проблему по-другому. Даже двумя спсобами. Но все же кинь исходник, хочу посмотреть, что твой код делает. Чет

как плитка отрисовывается:

- меня заинтересовало. ))))

[mutabor]

Как плитка, я думаю значит по сетке, как в проводнике режим показа "плитка". Судя по коду с интервалом в 64 пикселя.
Код довольно простой. Обрабатывается нажатие мыши и отрисовка окна.

Но все же кинь исходник

А это что было? Не исходник? )))

Кинь на форму ImageList, заполни его картинками, скопируй код и запускай. Добавь только процедуры к классу TForm1 (правый клик по процедуре - Complete class at cursor или вручную добавь) и назначь их на события (в инспекторе выберешь их в выпадающем списке к нужным событиям, т.к. названия стандартные можно просто дважды щелкнуть).

[Roof]

2 mutabor ))))))) попробую ))))))