не меняется цвет в ColorBox

← →
BAngel (2006-05-09 21:23) [0]

Точнее цвет меняется, но на один и тот же. Вот процедура:
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:41) [1]

а может, нет такого цвета...

← →
Пусик © (2006-05-09 21:42) [2]

colorbox1.Selected:=image.Canvas.Pixels[x,y];

← →
BAngel (2006-05-09 21:46) [3]

> colorbox1.Selected:=image.Canvas.Pixels[x,y];

не мне надо что бы из под мышки вынимало цвет

← →
Пусик © (2006-05-09 21:47) [4]

> BAngel (09.05.06 21:46) [3]
>
>
> > colorbox1.Selected:=image.Canvas.Pixels[x,y];
>
> не мне надо что бы из под мышки вынимало цвет

Это как раз из-под мышки. В клиентских координатах.
А ты пытаешься в экранных работать.

← →
Пусик © (2006-05-09 21:47) [5]

Кроме того, см. [1]

← →
Gydvin © (2006-05-09 21:48) [6]

> не мне надо что бы из под мышки вынимало цвет

смотри

> Пусик © (09.05.06 21:42) [2]

← →
Gydvin © (2006-05-09 21:48) [7]

ой

← →
BAngel (2006-05-09 21:52) [8]

> colorbox1.Selected:=image.Canvas.Pixels[x,y];

> Это как раз из-под мышки. В клиентских координатах.
> А ты пытаешься в экранных работать.
>

Попробовал. Выдаёт то самое

← →
KilkennyCat © (2006-05-09 21:52) [9]

то самое, или тоже самое?

← →
Gydvin © (2006-05-09 21:53) [10]

непойму зачем tcolorbox использовал бы лучше tpanel.color

← →
BAngel (2006-05-09 21:54) [11]

> то самое, или тоже самое?

ну цвета те самые выдаёт. Один чуть светлее другой по темнее и не меняются при повторном нажимании

← →
KilkennyCat © (2006-05-09 21:54) [12]

> [10] Gydvin © (09.05.06 21:53)

а еще можно Tmemo - то же самое почти.

← →
Gydvin © (2006-05-09 21:55) [13]

возьми форме в свойстве color выстави clred а в обработчик

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin //вставь colorbox1.Selected:=canvas.Pixels[x,y]; end;

работает?

← →
Gydvin © (2006-05-09 21:58) [14]

> а еще можно Tmemo - то же самое почти.

если я правильно телепатировал сабж, автор хочет посмотреть цвет пикселя под курсором непроще ли реаллизовать это с помощью панели и для замены цвета если нужно использовать колордиалог?

← →
BAngel (2006-05-09 22:05) [15]

> возьми форме в свойстве color выстави clred а в обработчик
>
> procedure TForm1.FormMouseDown(Sender: TObject; Button:
> TMouseButton;
> Shift: TShiftState; X, Y: Integer);
> begin
> //вставь
> colorbox1.Selected:=canvas.Pixels[x,y];
> end;
>
> работает?

ничего не понимаю, выдаёт
[Error] first.pas(178): Undeclared identifier: "ColorBox1"

← →
Gydvin © (2006-05-09 22:07) [16]

компонентик то на форму кинь )))))

← →
BAngel (2006-05-09 22:08) [17]

> если я правильно телепатировал сабж, автор хочет посмотреть
> цвет пикселя под курсором непроще ли реаллизовать это с
> помощью панели и для замены цвета если нужно использовать
> колордиалог?

цвета то заменять нужно, но из тех которые я выбираю(часто приходится выбирать из картинки)

← →
Пусик © (2006-05-09 22:09) [18]

> BAngel (09.05.06 22:08) [17]
>
>
> > если я правильно телепатировал сабж, автор хочет посмотреть
>
> > цвет пикселя под курсором непроще ли реаллизовать это
> с
> > помощью панели и для замены цвета если нужно использовать
>
> > колордиалог?
>
> цвета то заменять нужно, но из тех которые я выбираю(часто
> приходится выбирать из картинки)

Ты разве не понимаешь, что у тебя на рисунке могут быть цвета, которых нет в TColorBox?

← →
BAngel (2006-05-09 22:09) [19]

> компонентик то на форму кинь )))))

Так я его отудава и не убирал

← →
Gydvin © (2006-05-09 22:11) [20]

тебе нуно создать список цветов, а потом выбрав из них нужный менять им остальные?

← →
BAngel (2006-05-09 22:11) [21]

> Ты разве не понимаешь, что у тебя на рисунке могут быть
> цвета, которых нет в TColorBox?

Я когда-то делал уже, только вот щас не получается. А раньше оно мне цвет кидало в кустом. Оно и щас его туда кидает, только одно и то же

← →
BAngel (2006-05-09 22:13) [22]

> тебе нуно создать список цветов, а потом выбрав из них нужный
> менять им остальные?

так я же не знаю какие там в картинке цвета могут быть

Тогда надо сначало Add сделать, а потом уж присваивать...

короче
var
colorQ:array of tcolor;
i:integer;

тебе в руки

а так же setlength() и будет тебе счастие ))))) какой цвет хочешь такой туду и запишешь под номером I

> [24] Gydvin © (09.05.06 22:16)

это лишнее. Его солорбокс ничем не хуже, как хранилище. Учитывая, что он потом им пользуется.
К тому же, все цвета и так уже объявлены простой записью $00000000 - $FFFFFFFF

← →
BAngel (2006-05-09 22:23) [26]

← →
BAngel (2006-05-09 22:24) [27]

Кстати, это может быть из-за того что я использую самодельный курсор(точку чувствительности я указал)

> [27] BAngel (09.05.06 22:24)

нет, не из-за этого.

алгоритм таков -
получаем цвет точки.
смотрим, есть ли такой цвет в боксе.
если есть - устанавливаем итем бокса соответсвенно цвету, если нет - добавляем итем в бокс, затем устанавливаем.

← →
BAngel (2006-05-09 22:34) [29]

А что, это идея. Спасибо

не меняется цвет в ColorBox Найти похожие ветки