Страница 1 из 1
координаты и цвет
Добавлено: 15 апр 2005, 16:29
mazic
без Б. Делаб новую тему.OnMouseMove компоненты Image1, который отображает с помощью label-лоф дает координаты мыши цвет пикселоф в этих координатах.
Пасиба зарание. :)
Добавлено: 15 апр 2005, 16:33
mazic
вроде писал правельно а вышла чушь какая-то. расщифровываю
On MouseMove компоненты Image1, который в label-ax выдает координаты мыши, и цвет в этих координатах. Зарание спасибо.
Добавлено: 15 апр 2005, 17:48
RoKon
Так че надо то? :-)
Это?
Код: Выделить всё
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;
Добавлено: 15 апр 2005, 18:15
mazic
да че-то типа того. шас только подковыряю немного. Спасибо большое! :D