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 квадрата?
Как залить многогранник?
Посоветуйте, у кого есть опыт?
Можно ли что то кроме текста в чате и над головой отправить в клиент?
Например моба или контейнер или свой гамп.