procedure TForm1.FormCreate(Sender: TObject);
var
C, R: Integer;
begin
for C := 0 to StringGrid.ColCount - 1 do
for R := 0 to StringGrid.RowCount - 1 do
StringGrid.Cells[C, R] := 'A very very very long string';
end;
procedure TForm1.StringGridDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if not (Sender is TStringGrid) then Exit;
with TStringGrid(Sender) do
begin
Canvas.FillRect(Rect);
DrawText(Canvas.Handle, PChar(Cells[ACol, ARow]), -1, Rect, DT_WORDBREAK);
end;
end;
end.
Автор: Smike
Статья StringGrid, Печать в ячейку раздела Компоненты и Классы TStringGrid и TDrawGrid может быть полезна для разработчиков на Delphi и FreePascal.
