часть битмапа

← →
valussev@mail.ru (2009-12-21 14:22) [0]

все привет, подскажите

как загрузив в битмап картинку, вывести ее часть на форме?

← →
valussev@mail.ru (2009-12-21 14:26) [1]

bitmap := TBitmap.Create;
bitmap.canvas.Brush.Color := clWhite;
bitmap.Canvas.Rectangle(0,0,400,400);
bitmap.LoadFromFile("Image\002.bmp");
Form5.Image3.Canvas.Draw(0, 0, bitmap);

допустим вот так я его загрузил

Bitmap.Canvas.CopyRect(Rect(0, 0, 50, 40)

как то так его можно вырезать, подскажите как именно

← →
MBo © (2009-12-21 15:44) [2]

эти строки:
bitmap.canvas.Brush.Color := clWhite;
bitmap.Canvas.Rectangle(0,0,400,400);
не имеют смысла, т.к. далее загружается картинка

А вывести часть - Canvas(формы).CopyRect

← →
valussev@mail.ru (2009-12-21 15:51) [3]

form1.canvas.copyrect а какие параметры?

← →
valussev@mail.ru (2009-12-21 15:51) [4]

и как его(этот кусочек) вывести на форму?

← →
MBo © (2009-12-21 16:22) [5]

Canvas.CopyRect выведет на форму.
А параметры есть в справке.

← →
valussev@mail.ru (2009-12-21 17:37) [6]

спасибо, почти разобрался

MyRect := Rect(80,10,170,100); MyOther := Rect(360,0,450,90); bitmap:=TBitmap.Create; bitmap.LoadFromFile("pic_1.bmp"); Form1.Canvas.Draw(0, 0, bitmap); Form1.Canvas.CopyRect(MyOther,Bitmap.Canvas,MyRect);

← →
valussev@mail.ru (2009-12-21 17:37) [7]

или как то еще можно сделать? проще?

← →
Leonid Troyanovsky © (2009-12-21 19:08) [8]

> valussev@mail.ru (21.12.09 17:37) [7]

> или как то еще можно сделать? проще?

Проще: исключить 5 строку и не использовать Form1 (forever).

Мда. Не забыть Bitmap.Free.
Усложняет, хотя, в конечном счете, проще.

--
Regards, LVT.

и приучить себя к try..finally

← →
valussev@mail.ru (2009-12-21 22:46) [10]

← →
Б (2009-12-21 23:23) [11]

> для чего это? кинь ссылку если можно

Иди на Королевство Дельфи.
Там и ищи. В разделе "Hello, World!".

часть битмапа Найти похожие ветки