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

Вниз

Как при поиске в DBGRID выделять цветом найденные значения   Найти похожие ветки 

 
Masha Streltsova   (2004-02-17 16:29) [0]

Как при поиске слова в DBGRID выделять все найденные слова цветом. Если есть примерчик скиньте файл плиз ;) derliga@mail.ru


 
Соловьев ©   (2004-02-17 16:32) [1]


procedure TFForm.DBGridTableDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
const dat="30.12.2999";
var
holdColor: TColor;
begin
IF TDBGrid(Sender).DataSource.DataSet.RecNo = RecNum
Then TDBGrid(Sender).Canvas.Brush.Color:=RGB($00,$cc,$ff);

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);

holdColor := DBGridTable.Canvas.Brush.Color; {сохраняем оригинальный цвет}
//calcD
if Column.FieldName ="calcD" then {"раскрашиваем" ячейки только для поля
calcD}
if Column.Field.asString = "бессрочно" then
begin
DBGridTable.Canvas.Brush.Color := $00000ff00;//Green
DBGridTable.DefaultDrawColumnCell(Rect, DataCol, Column, State);
DBGridTable.Canvas.Brush.Color := holdColor;
end
else
if Column.Field.AsString <> "" then
if (StrToDate(Column.Field.AsString) < Date) then //срок истек
begin
DBGridTable.Canvas.Brush.Color := clRed;
DBGridTable.DefaultDrawColumnCell(Rect, DataCol, Column, State);
DBGridTable.Canvas.Brush.Color := holdColor;
end
end;


Вот когда-то писал


 
Guest   (2004-02-17 16:36) [2]

[1] Соловьев © (17.02.04 16:32)

+ лучше перекинуть первый DefaultDraw в конец процедуры (в новую ветвь else). Чтобы не рисовать 2 раза для указанных полей.


 
Masha Streltsova   (2004-02-17 16:46) [3]

спасибо большое, сейчас попробуем!



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

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

Наверх




Память: 0.47 MB
Время: 0.026 c
3-43345
DimaF
2004-02-17 03:53
2004.03.14
SQL


3-43377
belyh
2004-02-14 23:45
2004.03.14
компонент QUERY -???


3-43348
denis24
2004-02-16 12:51
2004.03.14
как закрыть все датасеты?


1-43589
stud
2004-02-27 13:08
2004.03.14
вопрс про Quickrep.preview


1-43551
Fants
2004-02-27 19:07
2004.03.14
TreeView