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

Вниз

Закрасить строку в ListView   Найти похожие ветки 

 
Finjy   (2008-09-01 09:24) [0]

Имеется функция, которая содержит запрос и выполняет заполнение ListView. Вот код
function TFrame1.Sel: Boolean;
begin
    Result := True;
    ListView1.Items.Clear;
    with DataModule1.IBQShared do
    begin
          SQL.Clear;
          SQL.Add("select name,note from Table1" +
                  "left join Table2 on Table2.name_id = Table1.note_id);
                  Open;
                  while not Eof do
                  begin
                       with ListView1.Items.Add do
                       begin
                                  Caption :=FieldByName("name").AsString;
                                  with SubItems do
                                  begin
                                       Add(FieldByName("note").AsString);
                                  end;
                         end;

                       Next;
                  end;
                  Close;
    end;
         if result then DataModule1.IBT.CommitRetaining
         else DataModule1.IBT.RollbackRetaining;
         inherited;
end;

В итоге получается следующая таблица
Name    Note
n1       2  
n2    
n3       4
n4
n5       3
Нужно сделать проверку: если для элемента столбца Name  не существует  значения в столбце Note, то всю строку окрасить в красный цвет.
Прчем желательно все это сделать в этой функции.


 
Johnmen ©   (2008-09-01 09:52) [1]

См. OnDrawItem

PS
0. Что значит "все это сделать в этой функции"?
1. Зачем if result then, если result не меняется?
2. К чему здесь inherited?
3. Какой смысл в CommitRetaining/RollbackRetaining в данном контексте?
И последнее - чем не устроили DataAware компоненты типа DBGrid"ов?


 
имя   (2009-03-20 15:14) [2]

Удалено модератором


 
имя   (2009-03-20 15:15) [3]

Удалено модератором



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

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

Наверх




Память: 0.47 MB
Время: 0.011 c
2-1265057348
Studdu
2010-02-01 23:49
2010.04.04
Наложение bmp на bmp


2-1264921818
cyber-pilot
2010-01-31 10:10
2010.04.04
Указатель на массив


15-1262053212
brother
2009-12-29 05:20
2010.04.04
Отчет в FastMM


2-1265224360
Pavel
2010-02-03 22:12
2010.04.04
как отправить запросы модему


2-1264797504
NoSilence
2010-01-29 23:38
2010.04.04
Рабочий стол за формой