Скачать: CL | DM;

Равномерное обрезание картинки по краям?   Найти похожие ветки 

← →
Мастер Ломастер   (2005-12-01 02:39) [0]

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

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

Спасибо.

---

← →
Джо ©   (2005-12-01 02:57) [1]

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

---

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

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

---

← →
Джо ©   (2005-12-01 03:13) [3]

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

---

← →
Васяня   (2005-12-01 05:56) [4]

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

---

← →
Джо ©   (2005-12-01 06:02) [5]

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

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

---

← →
Васяня   (2005-12-01 06:17) [6]

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

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

---

← →
Джо ©   (2005-12-01 06:25) [7]

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

---

← →
Васяня   (2005-12-01 06:29) [8]

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

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

---

← →
Джо ©   (2005-12-01 06:31) [9]

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

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

---

← →
ShiFT   (2005-12-01 07:07) [10]

> Ну скажем чтобы расстояние от картинки до краев было 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;

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

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.025 c