Картинка check box в строках DBGrid

@Buyniti · Регистрация: 05.11.2015

Пытаюсь сделать картинку заместо check box в строках DBGrid'а а так же подсветить его другим цветом.
есть поле - Статус. В данное поле в зависимости от значения check box нужно поместить картинку.

В данном случае у меня картинка появляется только при нажатии на любое поле. Нужно чтобы только в поле - "статус" отображалось и постоянно.
Пробовал разными способами, но результат нужный не получил.
Прошу помощи, код:

Delphi

procedure TForm2.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
Var ImageIndex : Integer;
 
begin
IF fgfggBox1.Checked=true
 
Then Begin
ImageIndex:=1;
 
ImageList1.Draw(TDBGrid(Sender).Canvas,Rect.Left,Rect.Top, ImageIndex );
 
{TDBGrid(Sender).Canvas.Brush.Color:=clRed;
TDBGrid(Sender).Canvas.Font.Color:=clWhite;
IF gdSelected IN State
Then Begin
TDBGrid(Sender).Canvas.Brush.Color:= clHighLight;
TDBGrid(Sender).Canvas.Font.Color := clHighLightText;
TDBGrid(Sender).Canvas.FillRect(Rect);} {это код подсветки красным пока закомментил тоже работает не так как нужно}
 
 
End;
 
 
TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
 
 
End;

@krapotkin · 02.04.2018, 11:53

этот обработчик вызывается для каждой ячейки
и вам в параметрах передают, что это за ячейка и даже в каком состоянии вы должны ее рисовать
DataCol: Integer; Column: TColumn; State: TGridDrawState
так что проверяйте параметры и рисуйте для нужной колонки, не трогайте остальные

@Buyniti · 02.04.2018, 17:54 **[ТС]**

Delphi

procedure TForm2.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
  Var ImageIndex   : Integer;
 
begin
 
IF column.FieldName='Статус' then
if fgfggBox1.Checked=true
 
  Then Begin
    with DBGrid1.Canvas do begin
  ImageIndex:=1;
 
       TDBGrid(Sender).Canvas.FillRect(Rect);
    ImageList1.Draw(TDBGrid(Sender).Canvas,Rect.Left+2,Rect.Top, ImageIndex );
 
    end;
 
 
   { TDBGrid(Sender).Canvas.Brush.Color:=clRed;
    TDBGrid(Sender).Canvas.Font.Color:=clWhite;
     IF  gdSelected   IN State
  Then Begin
      TDBGrid(Sender).Canvas.Brush.Color:= clHighLight;
      TDBGrid(Sender).Canvas.Font.Color := clHighLightText;
        TDBGrid(Sender).Canvas.FillRect(Rect);
  End;     }
 
    End;
 
 // TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
 
  End;

Сейчас он работает для поля - "статус" как и должен , но отображает данные некорректно. Некоторые отображает, некоторые нет.
Я не понимаю почему так происходит? в чем ошибка.

@krapotkin · 02.04.2018, 22:22

а какие, простите, данные?
единственное данное, что вы проверяете. это

Сообщение от Buyniti

if fgfggBox1.Checked=true

вот это я бы вообще убрал

Сообщение от Buyniti

with DBGrid1.Canvas do begin

а тут

Сообщение от Buyniti

TDBGrid(Sender).Canvas.FillRect(Rect);

лучше просто dbgrid1.Canvas.FillRect()
хотя это непринципиально...

@northener · 03.04.2018, 01:48

Сообщение от Buyniti

Я не понимаю почему так происходит? в чем ошибка.

Возможно потому, что вы рисуете только при

Delphi

1	fgfggBox1.Checked=true

а надо бы рисовать ещё и в противном случае.

@krapotkin 5498 / 4293 / 1379 Регистрация: 14.04.2014 Сообщений: 19,286 Записей в блоге: 19
	02.04.2018, 11:53	2
	этот обработчик вызывается для каждой ячейки и вам в параметрах передают, что это за ячейка и даже в каком состоянии вы должны ее рисовать DataCol: Integer; Column: TColumn; State: TGridDrawState так что проверяйте параметры и рисуйте для нужной колонки, не трогайте остальные 0

@krapotkin 5498 / 4293 / 1379 Регистрация: 14.04.2014 Сообщений: 19,286 Записей в блоге: 19
	02.04.2018, 22:22	4
	а какие, простите, данные? единственное данное, что вы проверяете. это Сообщение от Buyniti if fgfggBox1.Checked=true вот это я бы вообще убрал Сообщение от Buyniti with DBGrid1.Canvas do begin а тут Сообщение от Buyniti TDBGrid(Sender).Canvas.FillRect(Rect); лучше просто dbgrid1.Canvas.FillRect() хотя это непринципиально... 0

Опции темы