Карта сайтаСсылкиКонтакты

Изменение стиля шрифта в ячейках DBGrid

PDF Печать
Статьи

Как можно изменить стиль шрифта в ячейках TDBGrid?

Используйте событие OnDrawDataCell DBGrid.


procedure TForm1.DBGrid1DrawDataCell(
    Sender: TObject; const Rect: TRect; 
    Field: TField; State: TGridDrawState); 
begin 
   // Если CustNo записи - 4711 рисуем полную строку с
   // линией через нее. (Установить стиль шрифта зачеркрутый) 
   if (Sender as TDBGrid).DataSource.DataSet.FieldByName('CustNo').AsString = 
     '4711' then 
     with (Sender as TDBGrid).Canvas do 
     begin 
       FillRect(Rect); 
       // Установить стиль шрифта в StrikeOut 
       Font.Style := Font.Style + [fsStrikeOut]; 
       // Рисуем ячейку, выровненную справа для floats + offset 
       if (Field.DataType = ftFloat) then 
         TextOut(Rect.Right-TextWidth(Field.AsString)-3, 
                 Rect.Top+3, Field.AsString) 
       // Иначе, выравниваем слева + offset 
       else 
         TextOut(Rect.Left+2,Rect.Top+3,Field.AsString); 
     end; 
end; 

Примечание: код использует DBDemos, таблицу CUSTOMER.DB, TDBGrid, TDataSource и TTable.

По материалам http://delphi.3000.com


 

Комментарии   

 
+1 #1 dog beds 08.07.2014 18:58
Hi there Dear, are you really visiting this web site
daily, if so then you will absolutely obtain fastidious know-how.
Цитировать
 
 
0 #2 Wolter Majer 07.06.2017 07:14
Howdy would you mind letting me know which hosting company you're using?
I've loaded your blog in 3 completely different
browsers and I must say this blog loads a lot quicker then most.
Can you recommend a good web hosting provider at a honest price?
Thanks a lot, I appreciate it!
Цитировать
 
 
0 #3 Serge 07.06.2017 13:40
Цитирую Wolter Majer:
Howdy would you mind letting me know which hosting company you're using?
I've loaded your blog in 3 completely different
browsers and I must say this blog loads a lot quicker then most.
Can you recommend a good web hosting provider at a honest price?
Thanks a lot, I appreciate it!

Link at the bottom of the page
Цитировать
 

Добавить комментарий


Защитный код
Обновить