Форум: "Основная";
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];

Вниз

StringGrid   Найти похожие ветки 

← →
Song   (2002-03-19 14:13) [6]

procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,
ARow: Integer; const Value: String);
Var Rect:TRect;
begin
With TStringGrid(Sender) Do
Begin
Rect:=CellRect(ACol,ARow);
With Canvas Do
IF TextWidth(Cells[ACol,ARow])>Rect.Right-Rect.Left then
ColWidths[ACol]:=ColWidths[ACol]+TextWidth(Cells[ACol,ARow][Length(Cells[ACol,ARow])]);
End;
end;

Написать-написал, но на работспособность не проверил. Посмотри, чего получиться.

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.006 c