графический редактор

[RUSt88]

Bitmap.Canvas.CopyRect(Dest, MyPaintBox.Canvas, Source);

вот здесь проиходит копирование рисунка в битмап из пайнтбокса

Source: TRect;
Dest: TRect;

это размеры прямоугольной области для копирования

[rita_angel_2010]

так он копирует весь рисунок?! а мне надо только выделенную часть

[RUSt88]

ну я ж тебе написал

Source := Rect(0, 0, Width, Height);

в рект передай параметры - первые 2 - это положение по x, y, последне 2 параметра - ширина, высота

[rita_angel_2010]

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

[RUSt88]

когда нажимаешь мышку вызываешь функцию
p: TPoint;
GetCursorPos(p1);

теперь у тебя есть координаты начала прямоугольника выделения

далее, когда отпускаешь мышку, опять вызываешь эту функцию
GetCursorPos(p2);

теперь можно вычислить ширину и высоту выделенного прямоугольника
ширина = p2.x - p1.x, высота = p2.y - p1.y

[rita_angel_2010]

спасибо))))очень помог)))дальше сама попробую разобраться.....

[rita_angel_2010]

PatBlt(Form1.Canvas.Handle, 0, 0, Form1.ClientWidth, Form1.ClientHeight, WHITENESS);
так кнопка создать не работает(((картинка восстанавливается опять........

[RUSt88]

как ты функцию написала конкретно?

ты рисуешь же на пайнтбоксе, вот и вставляй в функцию хендл пайнтбокса

[rita_angel_2010]

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

[RUSt88]

по той ссылке еще были функции очистки канвы, посмотри