Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.03.18;
Скачать: CL | DM;

Вниз

Image   Найти похожие ветки 

 
kail   (2007-02-23 18:52) [0]

Доскажите, возможно ли средствами Delphi  вырезать из изрображения размером x на y начиная с определенных координат?


 
RASkov   (2007-02-23 18:58) [1]

CopyRect


 
RASkov   (2007-02-23 19:02) [2]

А куда вырезать. Если просто убрать кусок из картинки можно и
Brush.Color:=<цвет фона>;
FillRect(Rect(x1, y1, x1+x, y1+y))
???


 
kail   (2007-02-23 19:02) [3]

А можно подробнее как это работает


 
kail   (2007-02-23 19:04) [4]

Нет... есть рисунок Bmp вгруженный в компонент image. надо создавать маленькую картинку, вырезанную из большого рисунка


 
trubin ©   (2007-02-23 19:21) [5]

Как и указано в [1] TCanvas.CopyRect


 
kail   (2007-02-23 19:26) [6]

А можно накидать небольшой листинг, где из image1 получается image2, вырезанная из 1 по опр ширины, высоты и начинаю с опредл. точки


 
RASkov   (2007-02-23 20:17) [7]

> [6] kail   (23.02.07 19:26)

Ну чтонить типа так:

procedure CutPicture(Im1, Im2: TCanvas; const ARect: TRect);
begin
 im2.CopyRect(Rect(0,0,Arect.Right-ARect.Left, Arect.Bottom-Arect.Top), Im1, ARect);
end;
......
CutPicture(Image1.Canvas, Image2.Canvas, Rect(10,10,100,100));



Страницы: 1 вся ветка

Текущий архив: 2007.03.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.04 c
15-1171752456
koha
2007-02-18 01:47
2007.03.18
Может быть обсудим новую утилиту


2-1172573397
VitaliyRilan
2007-02-27 13:49
2007.03.18
Virtual Drive


15-1171857541
Slider007
2007-02-19 06:59
2007.03.18
С днем рождения ! 19 февраля


4-1155566603
Sinus
2006-08-14 18:43
2007.03.18
Загрука и отображение bitmap


3-1166681949
svt
2006-12-21 09:19
2007.03.18
Уважаемые мастера, подскажите как перегнать данные из FireBird