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




Вниз

StringGrid 


KB   (2002-03-19 13:45) [0]

Помогите, плиз
как в StringGrid сделать чтоб ячейки автоматически увеличивались или уменьшалсиь, типи autosize.



Song   (2002-03-19 13:56) [1]

Ну, например, можно обрабатывать onSetEditText и проверять, что если размер вводимого текста превышает ширину столбца, то увеличивать ширину столбца на размер вводимой буквы, изменяя ColWidths



KB   (2002-03-19 14:01) [2]

как узнать размер вводимой буквы?



Виктор Щербаков   (2002-03-19 14:04) [3]

Если известен DC, то можно узнать средний размер буквы выбранного шрифта с помощью GetTextMetrics.
Но проще TCanvas.TextWidth



KB   (2002-03-19 14:09) [4]

может кинете отрывок кода проги небольшой



Сергей Иванов   (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;



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;

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



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

PS. Извини, uses с перепугу поставил пустой :(
uses Windows, Sysutils



Song   (2002-03-19 14:17) [8]

:))
2Сергей Иванов, а чего Вы испугались?
Мы такие страшные?



Song   (2002-03-19 14:18) [9]

Кстати, в моём примере Cells[ACol,ARow] везде можно в лёгкую заменить на Value.




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




Наверх





Память: 0.72 MB
Время: 0.023 c
1-177             Сатир                 2002-03-19 18:01  2002.04.01  
Получение списка установленных компонент


1-233             Ольга                 2002-03-18 16:24  2002.04.01  
Outlook


1-169             KB                    2002-03-19 13:45  2002.04.01  
StringGrid


7-321             Aleksandr             2001-12-28 11:08  2002.04.01  
Как узнать, крупный или мелкий экранный шрифт установлен в системе?


4-363             Di_wind               2002-01-29 21:38  2002.04.01  
Нужна помощь.