Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.06;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
1-17631
agrig
2002-04-21 19:43
2002.05.06
TCheckBox - как програмно поменять Checked, чтобы не произошло ..


1-17571
cypher
2002-04-21 22:42
2002.05.06
Как вставить TPicture в панель TStatusBarэ


1-17612
DikobraZ
2002-04-22 16:27
2002.05.06
Как реализоваить смайлы в чате?


1-17634
lipskiy
2002-04-22 23:58
2002.05.06
Как прикрутить PopupMenu к одному из пунктов MainMenu?


4-17722
Jungerman
2002-03-01 00:16
2002.05.06
Как скрыть и показать курсор?