Map edition is done. It doesn't edit everything I planned but does basic edition.
mapedit2.jpg
The small black squares are a bug. I'm using next code to draw "void" tiles:
Code:
WITH ImageMap.Canvas DO
BEGIN
Brush.Color := clInactiveCaption;
Brush.Style := bsSolid;
Rectangle (TX , TY, TX + TW, TY + TH);
Pixels[TX, TY] := clBlack;
Pixels[TX + TW - 1, TY + TH - 1] := clWhite;
END;
It should draw a gray square and two points, but it draws a gray square with black border. Don't know why.
[edit] Fixed. I forgot the "Pen" property.
Bookmarks