Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

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

valussev@mail.ru © (2009-12-21 14:22:00)
все привет, подскажите

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

Б (2009-12-21 23:23:00) [1]

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

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

valussev@mail.ru (2009-12-21 22:46:00) [2]
antonn ©
для чего это? кинь ссылку если можно

antonn (2009-12-21 19:40:00) [3]
и приучить себя к try..finally

Leonid Troyanovsky (2009-12-21 19:08:00) [4]

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

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

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

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

--
Regards, LVT.

valussev@mail.ru (2009-12-21 17:37:00) [5]
спасибо, почти разобрался

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:00) [6]
или как то еще можно сделать? проще?

MBo (2009-12-21 16:22:00) [7]
Canvas.CopyRect выведет на форму.
А параметры есть в справке.

valussev@mail.ru (2009-12-21 15:51:00) [8]
form1.canvas.copyrect а какие параметры?

valussev@mail.ru (2009-12-21 15:51:00) [9]
и как его(этот кусочек) вывести на форму?

MBo (2009-12-21 15:44:00) [10]
эти строки:
bitmap.canvas.Brush.Color := clWhite;
bitmap.Canvas.Rectangle(0,0,400,400);
не имеют смысла, т.к. далее загружается картинка

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

valussev@mail.ru (2009-12-21 14:26:00) [11]
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)

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

Наверх

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