координаты и цвет

mazic · 15 апр 2005, 16:29

без Б. Делаб новую тему.OnMouseMove компоненты Image1, который отображает с помощью label-лоф дает координаты мыши цвет пикселоф в этих координатах.
Пасиба зарание. :)

mazic · 15 апр 2005, 16:33

вроде писал правельно а вышла чушь какая-то. расщифровываю

On MouseMove компоненты Image1, который в label-ax выдает координаты мыши, и цвет в этих координатах. Зарание спасибо.

RoKon · 15 апр 2005, 17:48

Так че надо то? :-)
Это?

Код: Выделить всё

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 Label1.Caption:='X='+IntToStr(X)+'; Y='+IntToStr(Y)+'; '+ColorToString(Image1.Canvas.Pixels[x,y]);
 Label1.Font.Color:=Image1.Canvas.Pixels[x,y]
end;

mazic · 15 апр 2005, 18:15

да че-то типа того. шас только подковыряю немного. Спасибо большое! :D