Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Звук, графика и видео > Расчёт координат

Автор: Akella 22.3.2011, 15:10

На форме лежит 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

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

Автор: Snowy 22.3.2011, 17:00

Код


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;