Форум: "Базы";
Текущий архив: 2004.12.12;
Скачать: [xml.tar.bz2];
Вниз
DBGrid. Отображение данных в полях Найти похожие ветки
← →
Death © (2004-11-15 11:28) [0]Есть БД (файл DBF). Есть в нем поле, тип-Logical.
Таблица DBGrid это поле отображает как false или true.
Как сделать чтобы в таблице это поле отображалось в виде птички в квадратике?
← →
Соловьев © (2004-11-15 11:37) [1]http://www.delphikingdom.ru/asp/viewitem.asp?catalogid=168
← →
Vlad © (2004-11-15 11:51) [2]
> птички в квадратике
хм... не сразу понял что имелся ввиду CheckBox :-)
вот небольшой примерчик:procedure DrawGridCheckBox(Canvas: TCanvas; Rect: TRect; Checked: boolean);
var
DrawFlags: Integer;
tmpRect: TRect;
begin
tmpRect := Rect;
InflateRect(tmpRect, -2, -2);
Canvas.FillRect(Rect);
DrawFrameControl(Canvas.Handle, Rect, DFC_BUTTON, DFCS_BUTTONPUSH or DFCS_ADJUSTRECT);
DrawFlags := DFCS_BUTTONCHECK or DFCS_ADJUSTRECT;// DFCS_BUTTONCHECK
if Checked then
DrawFlags := DrawFlags or DFCS_CHECKED;
DrawFrameControl(Canvas.Handle, tmpRect, DFC_BUTTON, DrawFlags);
end;
Вызывать в событии грида OnDrawColumnCell
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2004.12.12;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.036 c
