Форум: "Основная";
Поиск по всему сайту: 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.04 c
14-314            phantom2040           2002-02-20 14:11  2002.04.01  
Сервер удаленного доступа на XP


1-158             MaXie                 2002-03-22 11:20  2002.04.01  
Как совместить ShortString с множеством?


1-132             DenKop                2002-03-21 19:50  2002.04.01  
Криптография


1-183             Tsatur Soft           2002-03-16 22:09  2002.04.01  
Поиск


7-324             Nomad                 2001-12-29 15:14  2002.04.01  
Как в NT-ях разрешить программе редактировать реестр текущего пользователя?