| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

CopyRect

Страницы:   < 1 2 >

ser_ega ©   (2004-09-30 21:40:00) 

Привет! Сделал так:
var
 ARect: TRect;
begin
with Image1.Canvas do
 begin
   CopyMode := cmWhiteness;
   ARect := Rect(0, 0, 50, 50);
   CopyRect(ARect, Image1.Canvas, ARect);
   CopyMode := cmSrcCopy; { restore the copy mode }
 end;
End;
Как теперь скорированный ARect сохранить в файл!

---

Рыба   (2004-09-30 22:57:00) [21]

Уй забул размеры битмапа установить:

var Bmp: TBitmap;
begin
 Bmp := TBitmap.Create;
 try
   ARect := Rect(0, 0, 50, 50);
   with Bmp, ARect do begin
     Width := Right-Left;
     Height := Bottom - Top;
     Canvas.CopyMode := cmWhiteness;
     Canvas.CopyRect(Rect(0,0,Width,Height), Image1.Canvas, ARect);
   end;
   Bmp.SaveToFile('copyrect.bmp');
 finally
   Bmp.Free;
 end;
end;

---

Рыба   (2004-09-30 22:54:00) [22]

Не понял, ты имаг сам на себя что ли копируешь? :))

Лучше делай так:

var Bmp: TBitmap;
begin
 Bmp := TBitmap.Create;
 try
   ARect := Rect(0, 0, 50, 50);
   with Bmp, ARect do begin
     Canvas.CopyMode := cmWhiteness;
     Canvas.CopyRect(Rect(0,0,Right-Left,Bottom - Top), Image1.Canvas, ARect);
   end;
   Bmp.SaveToFile('copyrect.bmp');
 finally
   Bmp.Free;
 end;
end;

---

Страницы:   < 1 2 >

Наверх