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

Вниз

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

← →
Сергей Иванов   (2002-03-19 14:11) [5]

uses
procedure WriteToCell(Sender :TStringGrid; ACol, ARow :integer; Value :variant);
var
Len: TSize;
begin
with Sender do begin
if Value<>null then Cells[ACol, ARow] := value else Cells[ACol, ARow] := "";
Win32Check(GetTextExtentPoint32(Canvas.Handle, Pchar(Cells[ACol, ARow]),
Length(Cells[ACol, ARow]), Len));
if Len.cx > ColWidths[ACol] then ColWidths[ACol] := Len.cx+6;
if Len.cy > RowHeights[ARow] then RowHeights[ARow] := Len.cy+2;
end;
end;

---

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

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

Наверх

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