Вопрос и Ответ 46

Вопросы и Ответы

46. Возможно ли определить общую ширину всех видимых полей TDBGrid во время работы приложения?

Желание узнать полную ширину компоненты TDBGrid возникает при необходимости отображения всей сетки без горизонтальной полосы прокрутки. При этом необходимо учитывать не только ширину всех видимых полей, но и общую ширину разделительных линий (если они есть), ширину столбца индикации (если он есть), и ширину вертикальной полосы прокрутки (есть всегда).

Ширина одной разделительной линии равна одному пикселу, ширина столбца индикации - примерно 11-15 (в зависимости от различных факторов), ширина полосы прокрутки является системной информацией.

Пример:

............

function TForm1.GridWidth(DBG: TDBGrid):Integer;
CONST

cMEASURE_CHAR = '0';
iEXTRA_COL_PIX = 4;
iINDICATOR_WIDE = 15;

VAR

i, iColumns, iColWidth, iTitleWidth, iCharWidth : Integer;

BEGIN

{Ширина вертикальной полосы прокрутки}
Result := GetSystemMetrics(SM_CXVSCROLL);
iColumns := 0;
{Ширина видимых столбцов}
iCharWidth := DBG.Canvas.TextWidth(cMEASURE_CHAR);
WITH DBG.DataSource.DataSet DO

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 := DBG.Canvas.TextWidth(DisplayLabel);
IF iColWidth

END;
Inc(iColumns, 1);
Inc(Result, iColWidth+iEXTRA_COL_PIX);

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;

............

...предыдущая страница следующая...
оглавление

wm-help.net -> Электронная библиотека -> Delphi -> Вопросы и Ответы по Delphi -> Вопрос и Ответ 46 -> Версия для печати

Вопрос и Ответ 46