|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
12.07.2007, 21:01 | #1 |
Регистрация: 26.11.2006
Сообщений: 6
|
Перенос из одного Image в другой
Допустим, у меня картинка в Image1. Мне надо взять кусок. Допустим, 50 на 50. И его в Image2. Как сделать?
|
13.07.2007, 00:59 | #2 |
аккаунт недоступен
Форумчанин
Регистрация: 23.01.2007
Сообщений: 107
|
это описано в любой книге по делфи ну да ладно ))
procedure CopyRect (Dest:TRect;Canvas:TCanvas;Source:T Rect); Dets:прямоугольник куда копируется Canvas: канва компонента из которого производится копирование Source:прямоугольни который копируется TRect -знаете что такое? если нет то это прямоугольник который задается методами Rect.Left,Rect.Top,Rect.Right,Rect. Bottom например Form1.Canvas.CopyRect(Dest,Image1.C anvas,Source); будет копирован прямоугольник Source из Image1 на канву формы в прямоугольник Dest понятно все?
ввел пароль, который мне не известен
|
13.07.2007, 13:04 | #3 |
Студент
Форумчанин
Регистрация: 10.11.2006
Сообщений: 196
|
Есть API-функция:
function BitBlt(DestDC: HDC; X, Y, Width, Height: Integer; SrcDC: HDC; XSrc, YSrc: Integer; Rop: Longint): Bool; Итак: Код:
координаты всех углов прямоугольника. И задать ее можно с помощью следующей процедуры: procedure SetRect(var Rect: TRect; X1, Y1, X2, Y2: Integer); Хотя описанный выше способ применим (через субьекты структуры: left,top,right,bottom), но великоват в написании - 4 строки вместо 1й!
Visita Interiorem Terrae Rectificando Operae Lapidem...
Последний раз редактировалось Сильванович Михаил; 13.07.2007 в 13:13. |
13.07.2007, 22:04 | #4 |
Регистрация: 26.11.2006
Сообщений: 6
|
Всё, разобрался, спасибо.
|
14.07.2007, 22:53 | #5 |
аккаунт недоступен
Форумчанин
Регистрация: 23.01.2007
Сообщений: 107
|
то что структура я понимаю , просто так написал ))
а вот за SetRect спасибо, 4 строчки и правда многовато
ввел пароль, который мне не известен
|
14.07.2007, 23:32 | #6 |
Телепат с дипломом
Старожил
Регистрация: 10.06.2007
Сообщений: 4,929
|
Я вообще так всегда пишу, проще некуда
CopyRect (Rect(x1,y1,x2,y2),Canvas,Rect(x1,y 1,x2,y2)); А про SetRect и я не знал, намотаю на ус, может пригодиться.
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Вставить данные из одного листа (таблицы) в другой | kartol | Microsoft Office Excel | 30 | 11.08.2008 10:43 |
Excel-перенос иформации с одного листа в другой согласно условия | ЛюдмилаЗ | Microsoft Office Excel | 2 | 28.05.2008 12:38 |
Перенос проги с одного ПК на другой | Azef | Помощь студентам | 2 | 13.05.2008 18:07 |
Как мне из формы одного проекта запустить другой | Diimka | Помощь студентам | 2 | 13.12.2007 21:41 |
Передача файла с одного компа на другой | Kocapb | Фриланс | 4 | 18.11.2007 18:37 |