[Shoni]

Нашла процедуру для "многострочности" заголовков DBGrida, немного изменила под свои нужды:

Код:

type
  TAccessDBGrid = class(TDBGrid);

procedure TfmChild1.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var
 S1, S2: String;
 begin
   with TAccessDBGrid(DBGrid1) do
   begin
    RowHeights[0] := 32;
    Canvas.Brush.Style := bsClear;
    case Column.Index of
     9: begin
          Column.Title.Caption := ' ';
          S1 := 'Обхват колодки';
          S2 := 'в пучка, мм';
        end;
     12: begin
          Column.Title.Caption := ' ';
          S1 := 'Длина ноги';
          S2 := 'по следу, мм';
        end;
     13: begin
          Column.Title.Caption := ' ';
          S1 := 'Обхват ноги';
          S2 := 'в пучках, мм';
        end;
     14: begin
          Column.Title.Caption := ' ';
          S1 := 'Длина колодки';
          S2 := 'по следу, мм';
        end;
      4: begin
          Column.Title.Caption := ' ';
          S1 := 'Фасон';
          S2 := 'колодки';
        end;
     end;
     Canvas.TextOut(Rect.Left+2, 2, S1);
     Canvas.TextOut(Rect.Left+2, 16, S2);
   end;

end;

Как сделать так, чтобы при изменении ширины соседней левой колонки заголовки перерисовывались, а то они пропадают?

[Shoni]

Точнее, проблема появляется при использовании scroll'ов