Вопрос и Ответ 46 < Вопросы и Ответы по Delphi < Delphi

Новые книги

Вниманию читателей предлагается справочник по PHP.

Справочник предназначается для людей, уже освоивших азы программирования на языке PHP.

Справочник создан на основе информации, предоставленной на сайте «Справочник Web-языков» www.spravkaweb.ru.

Взрыв обучения: Девять правил эффективного виртуального класса

На наших глазах происходит созидательный взрыв. Благодаря мобильному телефону и Интернету знание и информация стали доступны для всех и каждого. Теперь ученику не обязательно сидеть за школьной партой. Интернет вместо доски, виртуальное пространство вместо парты, самообразование вместо обучающих инструкций, неформальное общение вместо дидактики – именно так люди теперь хотят, предпочитают и решают учиться.

То, что годится для реального учебного пространства, не всегда подходит для виртуального. Эффективный переход от традиционного к онлайн-обучению требует нового подхода к содержанию, оргсхеме обучения и способам передачи знаний. Сформулированные авторами правила и практические советы помогут вам создать или усовершенствовать собственную виртуальную школу.

Вопрос и Ответ 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;

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

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