помогите с размерами изображения

[Brainyc]

Здравствуйте! Не могли бы вы помочь мне в одной программке. Вот например матрица, и на ней расположена картинка в виде круга или квадрата, как угодно! И дело в том, что нужно узнать какой размер этой картинки ширина, высота, и координаты расположения её на матрице. Подскажите, пожалуйста, может уже есть такая, исходник, или хотя бы ссылки, где можно посмотреть что то похожее. Заранее спасибо. Александр!

[Alex21]

Совсем не въехал......
Что за матрица?
Что значит - на ней расположена картинка?
Картинка - это компонент Image или Bitmap???

Если так, то у них есть свойства:
=========================
Top, Left - координаты
Width, Height - Ширина, Высота
=========================

[Virtson]

я понял так :
на рисунке нужно выделить объект, его координаты и размеры.

для чего именно ?

[Brainyc]

А ну да, компонент image в нём загружен рисунок. например круг, и он например посередине. И нужно просто узнать его размер Width, Height. И в какой позиции он расположен на компоненте image. А, видимо вот так правельней, какое расстояние от левого края, правого края, верх, низ.

[AVer]

А известен цвет рисунка и фона?
Если да, то вот пример. Предположим, что это черный рисунок на белом (не черном ) фоне.

Var Width,Height,Left,Right,Top,Bottom: Integer; //Координаты и размеры рисунка
I,J:Integer;
Begin
For I:=0 To Image1.Height-1 do
For J:=0 To Image1.Width-1 do
If Image1.Pixels[I,J] = clBlack Then
Begin
If I<Top Then Top:=I;
If I>Bottom Then Bottom:=I;
If J<Left Then Left:=J;
If J>Right Then Right:=J;
End;
Width:=Right-Left;
Height:=Bottom-Top;
End;

[Brainyc]

Да всё верно, белое, и чёрный рисунок, а как сделать сканирование например с лева на право. Попадается скажем точка и программа сразу её записывает. скажем частоту, размер, вообщем что есть не ровность.