delphi - solucion - problemas con la barra de desplazamiento vertical

Cómo encontrar el ancho real del componente de la cuadrícula con la barra de desplazamiento en Delphi

Question

Tengo un componente de cuadrícula (DBGrid) que tiene muchas columnas en él. Debido a la gran cantidad de columnas, se creó una barra de desplazamiento y, por lo tanto, una parte de la cuadrícula permanece oculta. Necesito averiguar cuál es el ancho real de DBGrid, incluida la parte que no se muestra debido a la barra de desplazamiento. Pero la propiedad Ancho solo da el ancho del componente en sí. ¿Alguien tiene alguna idea?

Answer 1

Aquí hay funciones que hemos usado en el pasado. Tiene en cuenta el ancho de los datos en función de la fuente y también compensa las líneas verticales si son visibles

function GridTextWidth(fntFont : TFont; const sString : OpenString) :
integer;
var
f: TForm;
begin
try
f:=TForm.Create(nil);
f.Font:=fntFont;
result:=f.canvas.textwidth(sstring);
finally
f.Free;
end;
end;
function CalcGridWidth(dbg : TDBGrid { the grid to meaure }): integer; { the "exact" width }
const cMEASURE_CHAR = ''0'';
iEXTRA_COL_PIX = 4;
iINDICATOR_WIDE = 11;
var i, iColumns, iColWidth, iTitleWidth, iCharWidth : integer;
begin
iColumns := 0;
result := GetSystemMetrics(SM_CXVSCROLL);
iCharWidth := GridTextWidth(dbg.font,cMeasure_char);
with dbg.dataSource.dataSet do begin
DisableControls;
for i := 0 to FieldCount - 1 do with Fields[i] do
if visible then
begin
iColWidth := iCharWidth * DisplayWidth;
if dgTitles in dbg.Options then begin
ititlewidth:=GridTextWidth(dbg.titlefont,displaylabel);
if iColWidth < iTitleWidth then
iColWidth := iTitleWidth;
end;
inc(iColumns, 1);
inc(result, iColWidth + iEXTRA_COL_PIX);
end;
EnableControls;
end;
if dgIndicator in dbg.Options then
begin
inc(iColumns, 1);
inc(result, iINDICATOR_WIDE);
end;
if dgColLines in dbg.Options then
inc(result, iColumns)
else
inc(result, 1);
end;

Answer 2

Creo que encontré una solución (aunque parece un poco extraña). Para encontrar la diferencia entre el ancho de las columnas y el ancho real de DBgrid (eso significa encontrar el ancho del espacio vacío que queda después de la última columna), necesitamos hacer un seguimiento de qué columna se muestra a la izquierda ahora (lo que es la columna actual que se desplaza hacia) Podemos hacer eso usando el evento OnDrawColumnCell, ya que dibujará solo las columnas que se desplazan ahora. Luego, necesitamos calcular la suma de anchos de todas las columnas visibles y restarla del ancho de DBGrid. PD: lo siento por el mal inglés

Código de Ex:

 For i:=0 to Last do
if Vis[i] then
Begin
Sum:=Sum+DBG.Columns[i].Width;
Inc(Cnt);
End;
if dgColLines in DBG.Options then
Sum := Sum + Cnt;
//add indicator column width
if dgIndicator in DBG.Options then
Sum := Sum + IndicatorWidth;
Dif:=DBG.ClientWidth - Sum;

Answer 3

Tal vez esto puede ser útil. Es parte de un ayudante de clase para TDBGrid que dimensiona automáticamente la última columna, de modo que la cuadrícula no tiene espacio vacío. Debería ser fácil de ajustar a sus necesidades.

Como puede observar, el método CalcDrawInfo es lo que está buscando. Como está protegido, puedes usar un ayudante de clase o el hack protegido habitual para ponerlo manos a la obra.

procedure TDbGridHelper.AutoSizeLastColumn;
var
DrawInfo: TGridDrawInfo;
ColNo: Integer;
begin
ColNo := ColCount - 1;
CalcDrawInfo(DrawInfo);
if (DrawInfo.Horz.LastFullVisibleCell < ColNo - 1) then Exit;
if (DrawInfo.Horz.LastFullVisibleCell < ColNo) then
ColWidths[ColNo] := DrawInfo.Horz.GridBoundary - DrawInfo.Horz.FullVisBoundary
else
ColWidths[ColNo] := ColWidths[ColNo] + DrawInfo.Horz.GridExtent - DrawInfo.Horz.FullVisBoundary
end;

Answer 4

TDBGrid tiene una propiedad Columns . Cada una de las columnas tiene su propia propiedad Width . Entonces podrías recorrer todas las columnas y resumir sus anchos.

Me gusta esto:

function TotalColumnsWidth(var AGrid: TDBGrid);
var
i: Integer;
begin
Result := 0;
for i := to AGrid.Columns.Count - 1 do
Result := Result + AGrid.Columns[i].Width;
end;