Текущий архив: 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.46 MB
Время: 0.054 c