Форум: "Базы";
Текущий архив: 2003.05.01;
Скачать: [xml.tar.bz2];
ВнизDBGrid Найти похожие ветки
← →
HanIP (2003-04-15 09:58) [0]Есть поле в таблице Flag:boolean как сделать так что если оно false то строка грида должна окраситься в красный или любой другой цвет.
← →
evvcom (2003-04-15 10:09) [1]OnDrawColumnCell
← →
HanIP (2003-04-15 10:21) [2]пишу так
DBGrid1.Canvas.brush.Color:=clRed;
if Main.FieldbyName("Flag").AsBoolean then
DBGrid1.Canvas.FillRect(Rect);
и текста не видно
← →
MBo (2003-04-15 10:25) [3]или сам выводи TrxtOut или DefaltDrawing вызывай
пример в хелпе на TCustomDBGrid.OnDrawDataCell
← →
evvcom (2003-04-15 10:29) [4]А Canvas.TextOut кто делать будет?
← →
MsGuns (2003-04-15 11:34) [5]Вот кусок, который красит выбранную строку грида в синий (стандартный), если сам грид в фокусе, и серый, если нет. Фон грида "баксовый" независимо от того, в фокусе грид или нет.
Тебе же надо перед определением цвета проверять содержимое соотв.поля - флажка.
Св-во Option включает dgAlwaysShowSelection, dgRowSelect
procedure TForm1.grSuperDrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
{
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! Выражаю огромную благодарность Леночке Филипповой за ее превосходную !
! статью в "Королевстве Дельфи" "ПОЛОСТАЫЙ ГРИД" от 12 апреля 2000 г. !
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
}
var
BkgColor: TColor;
begin
if not (gdSelected in State) then
BkgColor := clMoneyGreen // Для не текущей строки
else
if TDBGrid(Sender).Focused then
BkgColor := clDefault // Черный для текущей строки
else
BkgColor := clMedGray; // Серый для текущей строки
TDBGrid(Sender).Canvas.Brush.Color:=BkgColor;
TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2003.05.01;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c