Главная страница
    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.47 MB
Время: 0.044 c
15-1154062954
Ega23
2006-07-28 09:02
2006.08.27
С Днём рождения! 28 июля


2-1154996217
Василич
2006-08-08 04:16
2006.08.27
Очистить БД через запрос SQL


3-1150701631
Jann
2006-06-19 11:20
2006.08.27
связь с MS SQL Server


2-1154789460
Sele
2006-08-05 18:51
2006.08.27
Удаление


4-1146598889
DimaDukat
2006-05-02 23:41
2006.08.27
команда в WinAPI





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