![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
не меняется цвет в ColorBox
BAngel © (2006-05-09 21:23:00)Точнее цвет меняется, но на один и тот же. Вот процедура:
procedure T_1.ImageMouseDown(Sender:TObject;mb: TMouseButton;Shift: TShiftState;
X, Y: Integer);
begin
if pipetka.Down then case mb of
mbLeft:
colorbox1.Selected:=image.Canvas.Pixels[Mouse.CursorPos.X,Mouse.CursorPos.y];
mbRight:
colorbox2.Selected:=image.Canvas.Pixels[Mouse.CursorPos.x,Mouse.CursorPos.y];
end;
end;
KilkennyCat (2006-05-09 21:52:00) [21]то самое, или тоже самое?
BAngel (2006-05-09 21:52:00) [22]
> colorbox1.Selected:=image.Canvas.Pixels[x,y];
> Это как раз из-под мышки. В клиентских координатах.
> А ты пытаешься в экранных работать.
>
Попробовал. Выдаёт то самое
Gydvin (2006-05-09 21:48:00) [23]ой
Gydvin (2006-05-09 21:48:00) [24]
> не мне надо что бы из под мышки вынимало цвет
смотри
> Пусик © (09.05.06 21:42) [2]
Пусик (2006-05-09 21:47:00) [25]Кроме того, см. [1]
Пусик (2006-05-09 21:47:00) [26]
> BAngel (09.05.06 21:46) [3]
>
>
> > colorbox1.Selected:=image.Canvas.Pixels[x,y];
>
> не мне надо что бы из под мышки вынимало цвет
Это как раз из-под мышки. В клиентских координатах.
А ты пытаешься в экранных работать.
BAngel (2006-05-09 21:46:00) [27]
> colorbox1.Selected:=image.Canvas.Pixels[x,y];
не мне надо что бы из под мышки вынимало цвет
Пусик (2006-05-09 21:42:00) [28]
colorbox1.Selected:=image.Canvas.Pixels[x,y];
KilkennyCat (2006-05-09 21:41:00) [29]а может, нет такого цвета...