Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];

Вниз

TDBGrid и Ширина столбца. Все что мне посоветовали это здорово но как реально это сделать...   Найти похожие ветки 

 
777   (2001-12-26 03:03) [0]

Есть компонент TDBGrid и хотел чтобы Ширина столбца должна соответствовать максимальной длине строки в отображаемой части набора данных, другими словами я хочу чтобы размер колонок соответствовал максимальному размеру текста в колонке.
Вот то, до чего я дошел...

procedure TForm3.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
Var i, MaxW: integer;

begin
MaxW := 0;
{По моему где то здесь собака порылась}
with DBGrid1.DataSource.DataSet do
for i := 0 to FieldCount - 1 do
if visible then begin
if MaxW < Length(Column.Field.AsString)*DBGrid1.Font.Size then
MaxW := Length(Column.Field.AsString)*DBGrid1.Font.Size;
end;

{Здесь сравнение найденого? максимума и ширины колонки
можно конечно и defaultwidth написать но не в это дело}
if Length(Column.Field.AsString)*DBGrid1.Font.Size > Length(Trim(Column.Title.Caption))*DBGrid1.Font.Size then
Column.Width := MaxW
else
Column.Width := Length(Trim(Column.Title.Caption))*DBGrid1.Font.Size;

dbgrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
// Panel1.Refresh;

end;

Вот. С начала все идет окей, но когда при прокрутке грида появляется строка больше или меньше...тут все и начинает дергаться...


 
gek   (2001-12-26 07:41) [1]

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


 
Desdechado   (2001-12-26 10:27) [2]

ну и обработчик тут явно не тот - на прорисовку каждой клетки выполняется!!! ты предварительно все рассчитай (в TDataSet.AfterOpen, например) ширины и подкорректируй свой грид. только учти, что колонки могут оказаться шире самого грида :))



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

Форум: "Базы";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.005 c
1-99956
MystiX
2002-01-13 18:02
2002.01.31
Heeelp!!!


3-99860
Nimnul
2001-12-26 08:49
2002.01.31
Вопром по DBF таблицам...


3-99859
DeadMoroz
2001-12-26 12:05
2002.01.31
Киньте ссылкой


1-99947
Kaginava
2002-01-11 23:58
2002.01.31
как считывать строки из текстового DOS файла


1-100015
Yuraz
2002-01-14 18:04
2002.01.31
Не могу разобраться, как определить размер файла???





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский