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

Вниз

Выделение цветом строк в TDBGrid.   Найти похожие ветки 

 
vigo_   (2006-07-14 11:59) [0]

Возможно ли выделить цветом одну или несколько из строк в TDBGrid?


 
DVM ©   (2006-07-14 12:01) [1]

Возможно


 
vigo_   (2006-07-14 12:03) [2]

Если можно код...


 
Плохиш ©   (2006-07-14 12:06) [3]


> vigo_   (14.07.06 12:03) [2]
> Если можно код...

А поиском по форуму воспользоваться "Слабо"?


 
Amoeba ©   (2006-07-14 12:06) [4]

На http:\\www.delphikingdom.com найдешь большую статью "Разноцветный DBGrid".


 
vigo_   (2006-07-14 12:08) [5]

спасибо


 
vigo_   (2006-07-14 12:59) [6]

Народ, не могу загрузить с delphikingdom раздел "Свитки", где должна быть описана статья "Разноцветный DBGrid". Выложете, плиз, статью.
Спасибо


 
DVM ©   (2006-07-14 13:00) [7]


procedure TfrmMain.dbgrdListZoneDrawColumnCell(Sender: TObject;
 const Rect: TRect; DataCol: Integer; Column: TColumn;
 State: TGridDrawState);
var
 CheckIt: boolean;
begin
if TDBGrid(Sender).DataSource.DataSet.RecNo mod 2 = 1 then
   TDBGrid(Sender).Canvas.Brush.Color := cl3DLight;
 if gdSelected in State then
   begin
   TDBGrid(Sender).Canvas.Brush.Color:= clHighLight;
   TDBGrid(Sender).Canvas.Font.Color := clHighLightText;
  end;
 TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;


 
vigo_   (2006-07-14 15:28) [8]

Еще один вопрос по этой теме. Мне, например, нужно отметить определенные строки, причем их количество может меняться, а не через одну, как в примере. Тогда я должен указать диапазон, но в "set of " больше 256 эелементов не поместится. Как можно пометить бОльшее количество определенных строк?


 
DVM ©   (2006-07-14 15:35) [9]


> Как можно пометить бОльшее количество определенных строк?

procedure TfrmMain.dbgrdListZoneDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var
CheckIt: boolean;
begin
if (Условие) then
  TDBGrid(Sender).Canvas.Brush.Color := clRed;
if gdSelected in State then
  begin
  TDBGrid(Sender).Canvas.Brush.Color:= clHighLight;
  TDBGrid(Sender).Canvas.Font.Color := clHighLightText;
 end;
TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

Условие - очевидно проверка значения какого либо поля в рисуемой строке


 
vigo_   (2006-07-14 15:42) [10]

А если строки уже прорисованы?


 
DVM ©   (2006-07-14 15:46) [11]


> А если строки уже прорисованы?

InvalidateRect()


 
vigo_   (2006-07-14 15:47) [12]

Хочу сделать кнопку, по которой осуществляется некая проверка. После чего определенные строки на гриде выделяются. При этом пользуюсь событием DBGrid.Refresh, так как пользователь может, например, удалить выделенную запись, после чего, естественно, строка этого номера не должна быть отмечена.



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

Форум: "Основная";
Текущий архив: 2006.08.27;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.042 c
2-1154962343
ArtemESC
2006-08-07 18:52
2006.08.27
Не найдеться ли у кого функция,


2-1154596971
lorn
2006-08-03 13:22
2006.08.27
XML ->PARSER


15-1153955958
Dust
2006-07-27 03:19
2006.08.27
Редактор исходного кода с аутлайнингом


1-1152706062
Kerk
2006-07-12 16:07
2006.08.27
TdxDBEdit + 7E6


6-1144673974
Xerx
2006-04-10 16:59
2006.08.27
Асинхронная работа





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