| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

DBGRID с разноцветніми строками [D7, XP]

KyRo ©   (2006-11-30 17:25:00) 

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

---

KyRo   (2006-12-01 12:24:00) [1]

> Вот статьи на "Королевстве 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
> В них найдешь исчерпывающую информацию от том, что требуется.
>


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

---

Amoeba   (2006-12-01 12:01:00) [2]

Вот статьи на "Королевстве 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 11:56:00) [3]

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


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

---

Desdechado   (2006-12-01 11:53:00) [4]

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

---

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

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


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-11-30 18:10:00) [6]

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;

---

isasa   (2006-11-30 18:06:00) [7]

const Rect: TRect; - ???

---

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

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


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

---

alex_***   (2006-11-30 17:34:00) [9]

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

---

Desdechado   (2006-11-30 17:26:00) [10]

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

а вообще в OnDrawCell

---

Наверх