Клетчатое поле

← →
guitarist © (2006-09-25 14:47) [0]

День добрый.
Хочу приступить к созданию игры типа крестики-нолики или клопы (не суть важна). Хочу услышать подсказку, как лучше сделать клетчатое поле на котором все будет происходить, так чтобы это смотрелось хорошо и не было бы слишком сложно.
Спасибо.
Будут вопросы -- разъясню

← →
clickmaker © (2006-09-25 15:08) [1]

TPaintBox
линии рисовать в цикле в OnPaint

← →
Сергей М. © (2006-09-25 15:32) [2]

Обычный TCustomGrid

← →
ProgRAMmer Dimonych (2006-09-25 19:01) [3]

Свой компонент от TGraphicControl или TCustomControl (если нужен хэндл). Всё прорисовываем ручками, крестики с ноликами тоже можно автоматически в нём рисовать...

← →
brother © (2006-09-25 20:31) [4]

в OnPaint создать отдельную процедуру (или там же) и рисовать на канве формы что дуще угодно...

← →
Моторокер (2006-09-27 16:19) [5]

А по щелчку мыши полностью перерисовывать?

Invalidate
(вообще-то перерисовать Redraw, но обычно нужно не перерисовать немедленно, а указать что элемент управления требует перерисовки вызовом Invalidate)

www.gaplayer.jino-net.ru/GAME.rar - скачай глянь. Если понравиццо - кинь мыло на mylce@yandex.ru я исходник отдам.

В данной ситуации Canvas рулит!
procedure DrawGrid(_out: TForm); //Может тут что-то не так - писал где-то год назад... :) var i: integer; begin _out.Canvas.MoveTo(0,0); _out.Canvas.FillRect(Rect(0,0,_out.Width,_out.Height)); _out.Canvas.Pen.Color:=clBlack; _out.Canvas.Pen.Width:=3; _out.Canvas.LineTo(0,_out.Height); _out.Canvas.LineTo(_out.Width,_out.Height); _out.Canvas.LineTo(_out.Width,0); _out.Canvas.LineTo(0,0); for i:=1 to 3 do begin _out.Canvas.MoveTo(50*i, 0); _out.Canvas.LineTo(50*i, _out.Height); _out.Canvas.MoveTo(0, 50*i); _out.Canvas.LineTo(_out.Width ,50*i); end; end;

Клетчатое поле Найти похожие ветки