Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.12.17;
Скачать: CL | DM;

Вниз

DBGRID с разноцветніми строками   Найти похожие ветки 

 
KyRo   (2006-11-30 17:25) [0]

Подскажите есть ли какой то компонент которій позволяет разукрасить нужные мне строки в нем в определенные цвета.
Или как это сделать со стандартным гридом ?


 
Desdechado ©   (2006-11-30 17:26) [1]

поищи на королевстве статью "полосатый DBGrid"

а вообще в OnDrawCell


 
alex_*** ©   (2006-11-30 17:34) [2]

Компонент для разукраски грида это круто :) OnDrawDataCell + Ф1 Там есть пример


 
KyRo   (2006-11-30 17:50) [3]


> alex_*** ©   (30.11.06 17:34) [2]
> Компонент для разукраски грида это круто :) OnDrawDataCell
> + Ф1 Там есть пример


Мне надо разукрасить строки , а не шрифт в этих строках


 
isasa ©   (2006-11-30 18:06) [4]

const Rect: TRect; - ???


 
Desdechado ©   (2006-11-30 18:10) [5]

procedure TfrmPortNagr.gridNagrDrawColumnCell( Sender: TObject; const Rect: TRect;
         DataCol: Integer; Column: TColumn; State: TGridDrawState );
begin
 with( gridNagr ) do
   if( Enabled and ( not( gdFocused in State ) ) and
       ( Column.FieldName = "CCONT" ) ) then
     begin
       if( qryPortNagr.FieldByName( "NSTATUS" ).AsInteger = PS_RESERVED ) then
         begin
           Canvas.Brush.Color := clMoneyGreen;
           Canvas.FillRect( Rect );
         end
       else if( qryPortNagr.FieldByName( "NSTATUS" ).AsInteger in [ PS_NOTVALID, PS_EQUIPPED ] ) then
         begin
           Canvas.Brush.Color := clYellow;
           Canvas.FillRect( Rect );
         end;
       DefaultDrawColumnCell( Rect, Column.Index, Column, State );
     end; // with & if
end;


 
KyRo   (2006-12-01 11:31) [6]

Нашол уже легче способ . Вот кому интересно


if  ParsStFunc.TailPos(fsDBGrid10.DataSource.DataSet.FieldByName("STATUS_CLIENT").As String,"Работает",1)>0
then
  begin
    with  fsDBGrid10.Canvas do
     begin
      Brush.Color:=clBackground;
      Font.Color:=clwhite;
      FillRect(Rect);
      TextOut(Rect.Left+2,Rect.Top+2,Column.Field.Text);
    end;
  end;


 
Desdechado ©   (2006-12-01 11:53) [7]

и чем он легче?
прикруткой своих FieldByName?


 
KyRo   (2006-12-01 11:56) [8]


> Desdechado ©   (01.12.06 11:53) [7]
> и чем он легче?
> прикруткой своих FieldByName?


Во первых да ! А во вторых как мне кажется он меньше и проще в нем разобратся !


 
Amoeba ©   (2006-12-01 12:01) [9]

Вот статьи на "Королевстве Delpi" по теме вопроса:
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=168
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=170
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=1193
В них найдешь исчерпывающую информацию от том, что требуется.


 
KyRo   (2006-12-01 12:24) [10]


> Вот статьи на "Королевстве Delpi" по теме вопроса:
> http://www.delphikingdom.com/asp/viewitem.asp?catalogid=168
> http://www.delphikingdom.com/asp/viewitem.asp?catalogid=170
> http://www.delphikingdom.com/asp/viewitem.asp?catalogid=1193
> В них найдешь исчерпывающую информацию от том, что требуется.
>


Спасибо но я уже сделал все работает.



Страницы: 1 вся ветка

Текущий архив: 2006.12.17;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.028 c
8-1146511164
EZHIK
2006-05-01 23:19
2006.12.17
Скорость отображения графики


15-1164283016
kaif
2006-11-23 14:56
2006.12.17
Газпром-сити.


15-1164532855
ArtemESC
2006-11-26 12:20
2006.12.17
Государственный форум...


3-1160551068
RebroFF
2006-10-11 11:17
2006.12.17
Конфликт агрегатной функции с названием поля


2-1164738540
Hollander
2006-11-28 21:29
2006.12.17
Не могу прочитать файл ;-)