Изменение двумерного массива с сохранением всех данных.

[Vova777]

Хочу спросить совета профессионалов.
Есть у меня TImage с картинкой из черных точек, линий, и есть двумерный массив, с числом ячеек, соответствующим числу пикселей TImage. В ячейках массива так: если пиксель (1,1) картинки - черный, то в ячейку массива пишется 1, если белый то 0. И т.д.
Как сделать, чтобы при масштабировании TImage изменялся и массив (масштабировался)? Но с сохранением всех данных.

Масштабирую изображение изменением размеров TImage со Strech:= True;

P.S. Извиняюсь за подобное изложение своей идеи.

[veniside]

> с сохранением всех данных.

Это как? Был массив 1000х1000, сжали его до 1х1, и что дальше?

Или смысл в том, что при изменении размера картинки, 1 и 0 в массиве правильно пересчитывались? Имхо, проще заново будет их из картинки вытащить.

[Человек_Борща]

Vova777,
А вы маштабируйте картинку,в началеочистите массив и сократите его до 1x1, по окончанию маштабирования перезаполняйте массив заного.

[Vova777]

Сообщение от Человек_Борща

Vova777,
А вы маштабируйте картинку,в началеочистите массив и сократите его до 1x1, по окончанию маштабирования перезаполняйте массив заного.

код подскажите для попиксельной записи в массив?

[Человек_Борща]

В ячейках массива так: если пиксель (1,1) картинки - черный, то в ячейку массива пишется 1, если белый то 0. И т.д.

Предпологалось что это у вас уже реализованно как код

[Vova777]

Сообщение от Человек_Борща

Предпологалось что это у вас уже реализованно как код

так и есть, но хотел бы увидеть как правильно

Не надо код, я сам так сделал:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  disk: array[1..10, 1..10] of integer;
  x, y: integer;
begin
  for y:= 0 to 10 do
  begin
    for x:= 0 to 10 do
    begin
      if Image1.Canvas.Pixels[x,y] = clBlack then
      StringGrid1.Cells[x,y]:= '1';
    end;
  end;
end;

Сообщение от Человек_Борща

Vova777,
А вы маштабируйте картинку,в началеочистите массив и сократите его до 1x1, по окончанию маштабирования перезаполняйте массив заного.

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

Массив мне нужен для определения
Мне нужно массив изменять вместе с масштабированием изображения

[Аватар]

При изменении пропорций или размеров Image срабатывает некий алгоритм, который сжимает или растягивает изображение. Если вы знаете этот алгоритм и сможете его реализовать в массиве-тени, то все карты вам в руки. Если нет - то выше вам предложили как поступить

[Vova777]

Сообщение от Аватар

При изменении пропорций или размеров Image срабатывает некий алгоритм, который сжимает или растягивает изображение. Если вы знаете этот алгоритм и сможете его реализовать в массиве-тени, то все карты вам в руки. Если нет - то выше вам предложили как поступить

Неужели ничего нельзя сделать?

Так как предложили выше, я только определю где черные пиксели, но ведь они могут являться частью линии, прямоугольника - мне важно определить именно это, а не просто его позицию.

[Человек_Борща]

Досканально изучите как работает Timage и все его предки. Поищите комоненты аналоги Tmage с расширеными событиями.. вариантов массы.

[Аватар]

По хорошему это делается не так. Для каждого элемента изображения (линия, прямоугольник и т.п.) создается объект, который и отображает себя на канве. Программно нужно дать возможность выделения этого объекта и изменение его состояния запоминается в нем и отображается на канве. Визуальный пример такого подхода в Word-е можно посмотреть