[Heg788]

Есть две процедуры - это распознавание цвета пикселя на картинке и перемещение объекта по форме. Как прописать что бы распознавание цвета начиналось только после начала перемещения объекта и координаты XY брались с него же? То есть, я выделяю объект начинаю его перемещать и пока зажата левая кнопка мыши, цвет пикселя распознается.

Вот код:

Код:

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 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, jpeg, ExtCtrls;   type   TForm1 = class(TForm)     Image1: TImage;     Image2: TImage;     Label1: TLabel;     Shape1: TShape;     procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,       Y: Integer);     procedure Image2MouseDown(Sender: TObject; Button: TMouseButton;       Shift: TShiftState; X, Y: Integer);     procedure Image2MouseMove(Sender: TObject; Shift: TShiftState; X,       Y: Integer);     procedure Image2MouseUp(Sender: TObject; Button: TMouseButton;       Shift: TShiftState; X, Y: Integer);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   col: TColor;   Flag: boolean;   X0,Y0: integer; implementation   {$R *.dfm}   //---------------------------------------------------------------------- procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,   Y: Integer); begin col := Image1.Picture.Bitmap.Canvas.Pixels[x,y]; label1.Caption:= IntToStr(col); Shape1.Brush.Color:= col; end; //----------------------------------------------------------------------   //---------------------------------------------------------------------- procedure TForm1.Image2MouseDown(Sender: TObject; Button: TMouseButton;   Shift: TShiftState; X, Y: Integer); begin  Flag := Button = mbLeft; if Flag then  begin    x0 := x;    y0 := y   end; end;   procedure TForm1.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,   Y: Integer); begin if Flag then    with TControl(Sender) do begin      Left := Left + x - x0;      Top := Top + y - y0;   end; end;   procedure TForm1.Image2MouseUp(Sender: TObject; Button: TMouseButton;   Shift: TShiftState; X, Y: Integer); begin  Flag := false end; //------------------------------------------------------------------------ end.

lmikle: пользуемся тегами.

[Alegun]

Да вроде и так всё для поставленной задачи имеется, только нужно содержимое процедуры двига мышки от первого имиджа переместить в блок проверки нажатия ЛКМ в аналогичной процедуре от второго имиджа

[Heg788]

Пробовал, программа начинает показывать такие цвета, которых нет в данной точке. Поэтому на форуме и написал, может быть что то упускаю...

[lmikle]

Да, упустил.
Посмотри координаты, которые ты получаешь. Они - глобальные (если я правильно помню). Т.е. тебе надо их преобразовать в координаты твоего приложения/компонента. Для этого надо в нужных местах вызвать ScreenToClient()

[Alegun]

Сообщение от lmikle

Да, упустил...

А можно и так

Код:

1 2 3 4 5 6 7 8

procedure Image2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var  s: TImage absolute Sender; begin  if Flag then   s.SetBounds(s.Left+X-x0, s.Top+Y-y0, s.Width, s.Height); end;