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

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

Равномерное обрезание картинки по краям? [D7, WinXP]

Мастер Ломастер ©   (2005-12-01 02:39:00) 

Здравствуйте, уважаемые мастера!

Подскажите пожалуйста как сделать следующее:
1. Есть некоторая картинка на белом фоне.
2. Как сделать обрезание по краям картинки, чтобы не было излишнего количества белого фона (извините за тувтологию). Ну скажем чтобы расстояние от картинки до краев было 10 pix.

Спасибо.

---

ShiFT   (2005-12-01 07:07:00) [1]

> Ну скажем чтобы расстояние от картинки до краев было 10 pix.

простой код.
procedure BitmapCrop( SourceBitmap, DestBitmap: TBitmap; const Offset: Integer);
var
 sr, dr: TRect;
begin
 sr := SourceBitmap.Canvas.ClipRect;
 sr := Rect( sr.Left+Offset, sr.Top+Offset, sr.Right-Offset, sr.Bottom-Offset);
 DestBitmap.Width  := sr.Right  - sr.Left;
 DestBitmap.Height := sr.Bottom - sr.Top;
 dr := Rect( 0, 0, sr.Right - Offset, sr.Bottom - Offset);
 DestBitmap.Canvas.CopyRect( dr, SourceBitmap.Canvas, sr);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 b: TBitmap;
 s: TBitmap;
begin
 s := TBitmap.Create;
 s.LoadFromFile( 'img1.BMP');
 b := TBitmap.Create;
 BitmapCrop( s, b, 10);
 Form1.Canvas.Draw( 0, 0, b);
 s.Free;
 b.Free;
end;

ну а если анализировать то ....

---

Джо   (2005-12-01 06:31:00) [2]

> Но тут ДОФИГИЩЕ еще разных "ЕСЛИ", все упрощается есть фон
> это однородный цвет битмэпа, а если это джипег то тут вообще
> гемор...

Вот с этим не поспоришь...

---

Васяня   (2005-12-01 06:29:00) [3]

Джо, вот я именно про это... причем надо будет логический анализ делать, мне видется след. решение - надо в конечном итоге путем анализа строк(если даже за пример брать sample.jpg) получить квадрать, по сути на рисунке это отмечено красным квадратом... и уже по его рамке обрезать рисунок...

Но тут ДОФИГИЩЕ еще разных "ЕСЛИ", все упрощается есть фон это однородный цвет битмэпа, а если это джипег то тут вообще гемор...

---

Джо   (2005-12-01 06:25:00) [4]

Значит, нужно анализировать целые строки.

---

Васяня   (2005-12-01 06:17:00) [5]

Джо, ты не понял, я имею ввиду что сама картинка может по краям иметь белые пиксели + к этому белый фон, и как тут тогда разграничить!?

Ну, например, как показано тут - http://3w.cross-kpk.ru/sample.jpg
Красная линия это разделение рисунка и фон...

---

Джо   (2005-12-01 06:02:00) [6]

>  [4] Васяня   (01.12.05 05:56)

Васяня, где в вопросе сказано о градиентном фоне?

---

Васяня   (2005-12-01 05:56:00) [7]

Джо, не универсально, а если фон градиентный, не однородный (не из одного цвета)? то есть сама картинка имеет часть белых пикселей являющихся частью картинки, а не полем которое необходимо образеть...

---

Джо   (2005-12-01 03:13:00) [8]

Если известен цвет фона, то можно проходить по массиву Pixels[x,y] по горизонтали/вертикали до первого обнаруженного пиксела, чей цвет отличается от цвета фона.

---

Мастер Ломастер   (2005-12-01 03:04:00) [9]

Проблема в том что я заранее не знаю размер картинки, т.е. надо как-то вычилсять границы.

---

Джо   (2005-12-01 02:57:00) [10]

Скопировать с одной Канвы на другую ее методом CopyRect.

---

Наверх