StringGrid

[Dimon88]

Как сделать столбцы разлчиной ширины. Допустим первый столбец ширина:=20, второй:=50.

[Alex21]

вот так:

form1.StringGrid1.ColWidths[1]:=10;

[Almaas]

Здравствуйте, не подскажете, как сделать форматирование текста в таблице при выводе в нее результатов расчета?
Т.е. мне надо, чобы выводились разным текстом:
1. надписи в фиксированных ячейках (заголовки столбцов);
2. строка ниже - как заголовок-разделитель (таких будет несколько);
3. остальные строки;
4. текст в одном из столбцов с буквенным обозначением выводимого параметра.
За ранее спасибо.

[Stilet]

что такое "Разным текстом"? Разными шрифтами и цветами?
Тогда в OnDrawCell проверяй на какой ячейке сработало событие и если это нужная ячейка ставь font и color в нужные тебе значения

[Almaas]

Да, именно разными шрифтами и разными цветами.
У меня нет события OnDrawCell... Я заполняю таблицу по нажатию кнопки и точно знаю, в какой ячейке что будет записано. Может я чего-то недопонимаю... Не могли бы вы поподробнее объяснить?

[AlDelta]

У меня нет события OnDrawCell...

Но это событие есть у StringGrid'a:
OnDrawCell возникает при необходимости перерисовать изображение ячейки

[Stilet]

Да, верно, присмотрись в Object Inspector на страничку СтрингГрида на его события

[Alter]

Сообщение от Alex21

form1.StringGrid1.ColWidths[1]:=10;

Вобщето в Таблицах строки и столбцы нумеруются с Нуля.
Поэтому так:

StringGrid1.ColWidths[0] := 10;

___________________________________ ______________________________
Как красить ячейки, есть на форуме.

[Almaas]

Господа, простите, но я не понимаю, что делать...
Ну создал я процедуру (в конце программы):

procedure TForm1.StringGrid1DrawCell(Sender: TOobgect; ACol, ARow: integer;
    Rect: Trect; State: TGridDrawState);
begin
 if (ACol=0) and (ARow=1) then
  TStringGrid(Sender).Font.Color:=clRed;
end;

Запускаю программу - ничего не происходит. Текст в первом столбце второй строки как был черным, так таким и остался...

[alexBlack]

А дальше ? С цветом определились. Теперь нужно нарисовать:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; Col, Row: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if (Col=0) and (Row=1) then begin
     TStringGrid(Sender).Font.Color:=clRed;
     TStringGrid(Sender).Canvas.TextOut(2, 2, 'aaaaa');


  end;
end;

Кстати, что это в условиях используется присвоение вместо равенста ?