VPF::Как уменьшить/увеличить все значения массива

Chydik

Дата 13.12.2012, 11:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 27
Регистрация: 7.1.2007

Репутация: нет
Всего: нет

Есть массив координат
SelectArea : array of TPoint;
Может кто знает как разом уменьшить или увеличить значения массива скажем на +30/-50, не используя цикл? smile

northener

Дата 13.12.2012, 11:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 12
Всего: 20

Без волшебной палочки никак. :(
Другой вопрос - где потом используются эти координаты? Может в той процедуре заранее предусмотреть некий коэффициент?

--------------------

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

Chydik

Дата 13.12.2012, 11:38 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 27
Регистрация: 7.1.2007

Репутация: нет
Всего: нет

Это массив выделенной области на изображении.
Вывожу я его через polyline и просто хочу сделать возможность перемещать это выделение на самой канве, т.е. координаты +/- положения курсора на экране.

jorka

Дата 16.12.2012, 15:56 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 104
Регистрация: 25.10.2008

Репутация: нет
Всего: нет

Сделай процедуру как посоветовал northener.
Примерно так:

Код


function GetSelectAreaPoint(aIndex, aShiftX, aShiftY: Integer): TPoint;
var
  lPoint: TPoint;
begin
  Result := Point(0, 0);

  if (aIndex < 0) or (aIndex >= Length(SelectArea)) then Exit;

  lPoint := SelectArea[aIndex];
  Result := Point(lPoint.X + aShiftX, lPoint.Y + aShiftY);
end;

Это сообщение отредактировал(а) jorka - 16.12.2012, 15:57

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »