Code: Select all
Procedure DrawMap(X, Y: Integer);
Var
Figure: TMapFigure;
Begin
  Figure.kind := fkLine;
  Figure.coord := fcWorld;
  Figure.x1 := X;
  Figure.y1 := Y;
  Figure.x2 := X+1;
  Figure.y2 := Y+1;
  Figure.brushStyle := bsClear;
  Figure.brushColor := $000000;
  Figure.color := $FFFF00;        //цвет линии
  Figure.text := '';
  AddFigure(Figure);
End;Как закрасить 1 квадрат на карте?
Как нарисовать обрамление 1 квадрата?
Как залить многогранник?
Посоветуйте, у кого есть опыт?
Можно ли что то кроме текста в чате и над головой отправить в клиент?
Например моба или контейнер или свой гамп.


