DELPHI/Часто задаваемые вопросы и ответы на них/Компоненты



На главную

Подписка

Новости

Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Компоненты / Как писать текст в StringGrid в стиле Exel (не обрезая, если он не помещается в ячейку)

Как писать текст в StringGrid в стиле Exel (не обрезая, если он не помещается в ячейку)


procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
  i, x, y: Integer;
begin
  if gdFixed in State then Exit;
  if ARow > 1 then Exit;
  {Draw row 1 with text from cell 1,1 spanning all cells in the row}
  with sender as TStringGrid do begin
    {Extend rect to include grid line on right, if not last cell in row}
    if aCol < Pred(ColCount) then
      Rect.Right := Rect.Right + GridlineWidth;
    {Figure out where the text of the first cell would start relative to the current cells rect}
    y := Rect.Top + 2;
    x := Rect.Left + 2;
    for i:= 1 to aCol - 1 do
      x := x - ColWidths[i] - GridlineWidth;
    {Paint cell pale yellow}
    Canvas.Brush.Color := $7FFFFF;
    Canvas.Brush.Style := bsSolid;
    Canvas.FillRect( Rect );
    {Paint text of cell 1,1 clipped to current cell}
    Canvas.TextRect( Rect, x, y, Cells[1, 1] );
  end;
end;


procedure TForm1.FormCreate(Sender: TObject);
var
  i, k: Integer;
begin
  with StringGrid1 do begin
    cells[1, 1] := 'A rather long line which will span cells';
    for i:= 1 to colcount-1 do
      for k:= 2 to rowcount -1 do
        cells[i,k] := Format( 'Cell[%d, %d]', [i, k]);
  end;
end;

Источник получения информации: http://www.delphimaster.ru