Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.44 MB
Время: 0.034 c
1-1103985482
emfw
2004-12-25 17:38
2005.01.16
Неизвестный файл


1-1104298826
Laymer
2004-12-29 08:40
2005.01.16
Перехват запуска программ


11-1085561137
Viman
2004-05-26 12:45
2005.01.16
По поводу тормознутости KolToolBar c tboFlat и FixFlatXP


1-1104485183
гость
2004-12-31 12:26
2005.01.16
Подскажите в чем ошибка


14-1104049679
Fin
2004-12-26 11:27
2005.01.16
Расчет платежа за электроэнергию.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский