Делфи. Кроссворд.

[Алексей_2012]

Ребят, всем привет.

Есть кроссворд, сетка - TEdit.
Проверка - строка символов, каждый символ сравнивается с одним TEdit, в соответствии с правильностью эдит выделяются тем или иным цветом.

Честно говоря запарился расставлять эдиты.
Рассматриваю StringGrid как альтернативу.

Есть у кого-нибудь код?
Как раскрасить грид так, чтобы сетка получилось нужная. Как указать нужные позиции ячеек?

Ребят, очень срочно, я обычно не выпрашиваю, но сейчас вынужден.

[Smitt&Wesson]

Лучше использовать две матрицы и Image. Одна матрица булева, в которой рисуется сетка. вторая - символьная (char). В Image отображаются, либо пустые квадратики, либо буквы в квадратиках.

[Алексей_2012]

А чем лучше грида? У вас есть пример кода?

[Stilet]

Рассматриваю StringGrid как альтернативу.

Поддерживаю.

В Image отображаются, либо пустые квадратики, либо буквы в квадратиках.

И чем это лучше кучи эдитов?

Как раскрасить грид так, чтобы сетка получилось нужная. Как указать нужные позиции ячеек?

Ну ты можешь прятать код цвета в свойство objects.
И из него извлекать для отрисовки.

procedure TForm1.StringGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
			aRect: TRect; aState: TGridDrawState);
begin
   with TStringGrid(Sender) do begin
     if Objects[aCol,aRow]<>nil then begin
       DefaultDrawing:=false;
       Canvas.Brush.Color:=TColor(Objects[aCol,aRow]);
       Canvas.FillRect(aRect);
		 end else DefaultDrawing:=true;
	 end;
end;

А назначать цвет так:

StringGrid1.Objects[2,1]:=TObject(clCream);

[Serge_Bliznykov]

А такую программку видели?
http://www.delphisources.ru/pages/so...d-creator.html
Исходник программы, предназначенной для составления и разгадывания кроссвордов различных тематических направлений.

Правда, там сетка рисуется прямо на PaintBox, но тоже прикольно выглядит.