Форум: "Основная";
Текущий архив: 2005.01.16;
Скачать: [xml.tar.bz2];
ВнизИспользование DrawText в обработчике DrawColumnCell в DBGrid Найти похожие ветки
← →
CTAPbIi (2005-01-02 18:57) [0]Хочу вручную выводить текст в DBGrid. Написал обработчик. Но почему-то текст не выводится. Что я делаю неправильно? ТОже самое, но с TextOut, работает
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var
r: TRect;
begin
r:=Rect;
(Sender as TDBGrid).Canvas.FillRect(Rect);
DrawText((Sender as TDBGrid).Canvas.Handle,
PChar("Text from database"), -1, r,
DT_SINGLELINE or DT_RIGHT or DT_VCENTER or
DT_END_ELLIPSIS);
end;
← →
begin...end © (2005-01-02 20:18) [1]> CTAPbIi (02.01.05 18:57)
Код в обработчике выполняется?
← →
CTAPbIi (2005-01-03 14:16) [2]Да, код выполняется. Ячейка ощищается, но текст не выводится. Я нашел в чем дело, но непонятно, или это баг, или можно как-то решить проблему. В DBGrid было выставлено свойство
BiDiMode:=bdRightToLeft
. Я поменял наbdLeftToRight
, после этого текст выводится. Но все-таки, если мне нужно показывать грид справа налево, неужели DrawText не работает?
← →
CTAPbIi (2005-01-03 14:57) [3]Что интересно, проверил DrawText на форме, StringGrid, ListBox - все работает и для bdRightToLeft. Только в DBGrid не работает!?
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.01.16;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.036 c