Подскажите компонент таблицы

[XPAiN]

Строю таблицу в которой нужно перенести в ячейке значения на новую строку. Т.Е Пример

----------
1 | 4 |
2 | |
----------
3 | 6 |
----------

StringGrid не подходит даже #10#13 не хочет переносить на новую строку.

[Stilet]

Что значит переносить? Просто переложи значение из переносимой ячейки в ячейку куда перенести нужно.

[XPAiN]

Ячейка одна но в ней написано в несколько строк

[D-mon]

Можно было бы в ДБГриде увеличить высоту строки в двое, если это было бы возможно, и в обработчике ОнДравЦел рисовать строки хоть в 3-ри ряда, но увы...

Конечно я не утверждаю что нельзя, но помоему нет.

[DOLBY]

Даа в StringGrid'е так не получается. Попробуйте использовать DrawGrid и строки там "рисовать".

[Баламут]

VirtualStringTree, рекомендую. Хоть наискосок все выводи. Правда при изучении мозг напрячь придется.

[BOBAH13]

Береш TCustomControl и вперед рисовать ) думаю разделить на квадратики равного размера будет не сложно а если лень мучаться с прокрутками береш TScrollBox кажется такой компонент... и все собственоо

[Alter]

Нашол:

unit Wrapgrid;

interface

uses

  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, Grids;

type

  TWrapGrid = class(TStringGrid)
  private
    { Private declarations }
  protected
    { Protected declarations }
    { Процедура DrawCell осуществляет перенос текста в ячейке }
    procedure DrawCell(ACol, ARow: Longint; ARect: TRect;
      AState: TGridDrawState); override;
  public
    { Public declarations }
    { Процедура Create перекрывается для того, чтобы использовать процедуру DrawCell
    по умолчанию }
    constructor Create(AOwner: TComponent); override;
  published
    { Published declarations }
  end;

procedure Register;

implementation

constructor TWrapGrid.Create(AOwner: TComponent);
begin

  { Создаем TStringGrid }
  inherited Create(AOwner);

  { Заставляем компонент перерисовываться нашей процедурой по умолчанию DrawCell }
  DefaultDrawing := FALSE;
end;

{ Процедура DrawCell осуществляет перенос текста в ячейке }

procedure TWrapGrid.DrawCell(ACol, ARow: Longint; ARect: TRect;

  AState: TGridDrawState);
var

  Sentence, { Выводимый текст }
  CurWord: string; { Текущее выводимое слово }
  SpacePos, { Позиция первого пробела }
  CurX, { Х-координата 'курсора' }
  CurY: Integer; { Y-координата 'курсора' }
  EndOfSentence: Boolean; { Величина, указывающая на заполненность ячейки }
begin

  { Инициализируем шрифт, чтобы он был управляющим шрифтом }
  Canvas.Font := Font;

  with Canvas do
  begin
    { Если это фиксированная ячейка, тогда используем фиксированный цвет }
    if gdFixed in AState then
    begin
      Pen.Color := FixedColor;
      Brush.Color := FixedColor;
    end
      { в противном случае используем нормальный цвет }
    else
    begin
      Pen.Color := Color;
      Brush.Color := Color;
    end;

    { Рисуем подложку цветом ячейки }
    Rectangle(ARect.Left, ARect.Top, ARect.Right, ARect.Bottom);
  end;

  { Начинаем рисование с верхнего левого угла ячейки }
  CurX := ARect.Left;
  CurY := ARect.Top;

  { Здесь мы получаем содержание ячейки }
  Sentence := Cells[ACol, ARow];

  { для каждого слова ячейки }
  EndOfSentence := FALSE;
  while (not EndOfSentence) do
  begin
    { для получения следующего слова ищем пробел }
    SpacePos := Pos(' ', Sentence);
    if SpacePos > 0 then
    begin
      { получаем текущее слово плюс пробел }
      CurWord := Copy(Sentence, 0, SpacePos);

      { получаем остальную часть предложения }
      Sentence := Copy(Sentence, SpacePos + 1, Length(Sentence) - SpacePos);
    end
    else
    begin
      { это - последнее слово в предложении }
      EndOfSentence := TRUE;
      CurWord := Sentence;
    end;

    with Canvas do
    begin
      { если текст выходит за границы ячейки }
      if (TextWidth(CurWord) + CurX) > ARect.Right then
      begin
        { переносим на следующую строку }
        CurY := CurY + TextHeight(CurWord);
        CurX := ARect.Left;
      end;

      { выводим слово }
      TextOut(CurX, CurY, CurWord);
      { увеличиваем X-координату курсора }
      CurX := CurX + TextWidth(CurWord);
    end;
  end;
end;

procedure Register;
begin
  RegisterComponents('Samples', [TWrapGrid]);
end;

end.

[mahnova13]

А может кто подскажет компонент-таблицу, в которой можно было бы закрашивать ячейки разным цветом и выделять их?

[Alter]

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

А может кто подскажет компонент-таблицу, в которой можно было бы закрашивать ячейки разным цветом и выделять их?

Это рисуется ручками через Canvas, в стандартном StringGrid, а называется это DrawCell.