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

Вниз

Grid с автоматическим выравниванием ширины столбцов   Найти похожие ветки 

 
Ник   (2002-04-11 21:34) [0]

Подскажите такой хороший Grid. DBGridEh не подходит.


 
Vitek_m   (2002-04-12 05:16) [1]

Можно используя и обычный Grid или же есть хороший ExpressQuantumGrid который может многое.....

procedure AutoSizeGridColumn(Grid : TStringGrid; column : integer);
var
i : integer;
temp : integer;
max : integer;
begin
max := 0;
for i := 0 to (Grid.RowCount - 1) do
begin
temp := Grid.Canvas.TextWidth(grid.cells[column, i]);
if temp > max then max := temp;
end;
Grid.ColWidths[column] := Max + Grid.GridLineWidth + 3;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
AutoSizeGridColumn(StringGrid1, 1);
end;




 
Lusha   (2002-04-12 10:20) [2]

Попробуйте такой обработчик...

type TMyDBGrid = class(TDBGrid);

...

procedure TForm1.GridMouseUp(Sender : TObject; Button : TMouseButton; Shift : TShiftState; X, Y : Integer);
var Cell : TGridCoord;
begin
with TMyDbGrid(Sender) do
if Sizing(X, Y) then
begin
Cell := MouseCoord(X, Y);
if dgIndicator in Options then dec(Cell.X);
DefaultColWidth := Columns[Cell.X].Width;
ShowMessage();
end;
end;


 
Lusha   (2002-04-12 10:23) [3]

Гы-гы. ShowMessage нужно убрать - это меня колбасит... :)



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

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

Наверх




Память: 0.45 MB
Время: 0.004 c
1-17591
weak
2002-04-22 16:02
2002.05.06
Как сделать не главную форму MDI-формой ?


1-17533
Basilio
2002-04-23 19:03
2002.05.06
Конфликты имен глобальных объектов (типов, переменных, функций)


1-17559
Tpv
2002-04-22 09:26
2002.05.06
Открыть Word.


3-17509
Ник
2002-04-11 21:34
2002.05.06
Grid с автоматическим выравниванием ширины столбцов


1-17547
Andrey007
2002-04-23 17:15
2002.05.06
Как ловить движение мыши над TRadioGroup?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский