PaintBox. Рисование

[antikhrist]

Помогите плиз, всё ещё очень акктуальна тема!!!

[Stilet]

Я правильно тебя понял, тебе нужно что-то подобное как в приложении?

[antikhrist]

Да практически то что нужно Огромное спасибо за отклик, но есть такое уточнение, они рисуются по нажатию правой кнопки мыши(в программе текущей) правая кнопка должна будет иметь выпадающее меню, как в Windows с действиями для квадрата -создать новый, удалить,переместить в область1, переместить в область2, переместить в область 3 и тд. А рисуются квадраты - по нажатию кнопки на самой форме (Создать новый квадрат).. И перетаскиваться они должны как бы тот который захватили тот и перетащили то есть 2 - переместился 2, если 4 то 4-ре... и тд, ну и если есть возможность добавить, что б юзер сам мог вводить номер уникальный квадрату

[antikhrist]

И ещё немного заметил "глюков" квадрат не перемещается именно так надо, а копируется... то есть с одной области пропал, в той что переносили прорисовался, и стал первый самый в очереди скажем координаты начала у всех областей для вершин левого верхнего угла квадрата (10,10) то есть, нажали создать квадрат 1 нарисовался в верхнем левом углу с началом координ (10, 10) через и так далее при создании ещё квадратиков они эту область заполняют как эл, в матрице, а при переносе, естественно переноситься тот который мы ужерживаем мышью, и он становиться с начала, в другой области, дальше переносим, он становиться рядом с уже перенесённым и тд ....
спасибо за понимание

[Stilet]

Ну дык, сделай запись типа

Kvadrat=coord:TRect;Name:String; end;

А для массива укажи в типе именно эту запись, и присваивай именя квадратам. Соответственно посади на мышку ПопУп и в его событиях рисуй.

P.S. я бы это сделал классами...

"глюков"

Это всего лишь пример. На продажу дяде Биллу он не годится.