VPF::Расчёт координат - Форум программистов

Akella

Дата 22.3.2011, 15:10 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

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

На форме лежит TImage. В нём живёт картинка Bitmap.
user posted image

В базе данных есть список координат типа
X=1, Y=1 Рисовать = Да
X=1, Y=2 Рисовать = Нет
X=1, Y=3 Рисовать = Нет
X=1, Y=4 Рисовать = Да
X=1, Y=5 Рисовать = Да
..
X=2, Y=1 Рисовать = Да
X=2, Y=2 Рисовать = Нет
....

т.е. список тех клеточек, где нужно нарисовать белую точку.

В цикле по таблице можно пройтись по всем записям и

Код


  with im1.Picture.Bitmap.Canvas do
    begin
      Brush.Color := $0032AAF1;
      Pen.Color := $0032AAF1;
      Ellipse(как рассчитать начальные координаты X1 и Y1);
    end;

Но вот вопрос в чём. как рассчитать начальные координаты X1 и Y1 для каждой клеточки?

До этого с графикой я не дружил :(

Akella

Дата 22.3.2011, 16:18 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

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

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

Snowy

Дата 22.3.2011, 17:00 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Код


function DrawCell(X, Y: integer);
var
  cw, ch: integer;
  x1,y1,x2,y2: integer;
  kx, ky: integer;
begin
  cw := 37; // ширина клетки
  ch := 37; // высота клетки
  ky := 16; // количество клеток в столбике
  x1 := X * cw - cw; // левый угол Х
  y1 := (ky - Y) * ch; // и Y
  x2 := x1 + cw; // правый нижний угол Х
  y2 := x2 + ch; // и Y - просто добавляем ширину и высоту клетки к первой координате
  чего-то-там..Canvas.Rectangle(x1,y1,x2,y2);
end;

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