Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.12.17;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.039 c
11-1141321073
Maloric
2006-03-02 20:37
2006.12.17
Помогите разобраться с компонентами


15-1164746342
Loginov Dmitry
2006-11-28 23:39
2006.12.17
Test


2-1164883305
Creative
2006-11-30 13:41
2006.12.17
Как на API будет "если зажат Shift"?


2-1164651925
Змей
2006-11-27 21:25
2006.12.17
webbrowser. анимация вкл.выкл


2-1164220023
Tray62
2006-11-22 21:27
2006.12.17
Подскажите код для Дельфи для открытия диалога графических файлов





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский