Текущий архив: 2008.06.08;
Скачать: CL | DM;

Вниз

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

← →
kupidon ©   (2008-05-15 05:49) [0]

Приветствую всех. Вопрос: имеется таблица dbgid. растягиваю ширину столбцов на требуемую - все работает прекрасно. На другой день запускаю делфи, запускаю программу- ширины столбцов- как попало. Что может быть?
Пробовал и в инспекторе на столбцы ширину устанавливать- работает нормально, но до поры до времени. :(

---

← →
Vlad Oshin ©   (2008-05-15 09:57) [1]

procedure setgridcolumnwidths(grid: tdbgrid);
const
defborder = 10;
var
temp, n: integer;
lmax: array [0..30] of integer;
begin
with grid do
begin
 canvas.font := font;
 for n := 0 to columns.count - 1 do //if columns[n].visible then
                        lmax[n] := canvas.textwidth(fields[n].fieldname) + defborder;
 grid.datasource.dataset.first;
 while not grid.datasource.dataset.eof do
 begin
   for n := 0 to columns.count - 1 do
   begin
     //if columns[n].visible then begin
     temp := canvas.textwidth(trim(columns[n].field.displaytext)) + defborder;
     if temp > lmax[n] then lmax[n] := temp;
     //end; { if }
   end; {for}
   grid.datasource.dataset.next;
 end; { while }
grid.datasource.dataset.first;
for n := 0 to columns.count - 1 do
                 if lmax[n] > 0 then columns[n].width := lmax[n];
end; { with }
end; {setgridcolumnwidths }

---

← →
Vlad Oshin ©   (2008-05-15 09:57) [2]

procedure setgridcolumnwidths(grid: tdbgrid);
const
defborder = 10;
var
temp, n: integer;
lmax: array [0..30] of integer;
begin
with grid do
begin
 canvas.font := font;
 for n := 0 to columns.count - 1 do //if columns[n].visible then
                        lmax[n] := canvas.textwidth(fields[n].fieldname) + defborder;
 grid.datasource.dataset.first;
 while not grid.datasource.dataset.eof do
 begin
   for n := 0 to columns.count - 1 do
   begin
     //if columns[n].visible then begin
     temp := canvas.textwidth(trim(columns[n].field.displaytext)) + defborder;
     if temp > lmax[n] then lmax[n] := temp;
     //end; { if }
   end; {for}
   grid.datasource.dataset.next;
 end; { while }
grid.datasource.dataset.first;
for n := 0 to columns.count - 1 do
                 if lmax[n] > 0 then columns[n].width := lmax[n];
end; { with }
end; {setgridcolumnwidths }

---

← →
Vlad Oshin ©   (2008-05-15 09:57) [3]

procedure setgridcolumnwidths(grid: tdbgrid);
const
defborder = 10;
var
temp, n: integer;
lmax: array [0..30] of integer;
begin
with grid do
begin
 canvas.font := font;
 for n := 0 to columns.count - 1 do //if columns[n].visible then
                        lmax[n] := canvas.textwidth(fields[n].fieldname) + defborder;
 grid.datasource.dataset.first;
 while not grid.datasource.dataset.eof do
 begin
   for n := 0 to columns.count - 1 do
   begin
     //if columns[n].visible then begin
     temp := canvas.textwidth(trim(columns[n].field.displaytext)) + defborder;
     if temp > lmax[n] then lmax[n] := temp;
     //end; { if }
   end; {for}
   grid.datasource.dataset.next;
 end; { while }
grid.datasource.dataset.first;
for n := 0 to columns.count - 1 do
                 if lmax[n] > 0 then columns[n].width := lmax[n];
end; { with }
end; {setgridcolumnwidths }

---

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

Текущий архив: 2008.06.08;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.018 c