не могу выделить строку в гриде цветом

[NewUser]

использую событие DrawColumnCell у грида, код

Код: Выделить всё

if (условие) then begin
   with  DBGrid.Canvas do
   begin
      DBGrid.Canvas.Brush.Color:=clGreen;
      DBGrid.Canvas.Font.Color:=clWhite;
      DBGrid.Canvas.FillRect(Rect);
      DBGrid.Canvas.TextOut(Rect.Left+2,Rect.Top+2,Column.Field.Text);
   end;
   end;

выскакивает ошибка
Access violation

и активна строка
if ((FFieldName<>'') and (FField<>nil)) then
в файле DBGrids

причем выскакивает если TabSheet с гридом становится активный

[alexs]

Версия Lazarus?
был недавно глюк у Grid-а и DBGrid-а
чот если он находится на PageControl-е - то эта форма не может коректно создаться/открыться - но это исправлено в последних svn-версиях

[NewUser]

версия 0.9.22

если отключить у грида свойство dgIndicator, то все работает нормально

[alexs]

если отключить у грида свойство dgIndicator, то все работает нормально

кстати, о птицах, а ты учитываеш что тебе в обраотчик передаётся и вызов для отрисовки индикатора - а у него, как известно, полей нет

посмотри как это в RxDBGrid я сделал - там специальный код для отслеживания индикатора.

[NewUser]

не учитываю, а как можно его пропустить при отрисовке? к сожалению опыта не хватает разобраться в RxDBGrid

[alexs]

NewUser
ну там вобще не надо разбираться - там обработкич именно на этот сулчай я сделал:

Код: Выделить всё

    property OnGetCellProps(Sender: TObject; Field: TField; AFont: TFont;
      var Background: TColor);

вызывеается при отрисовке каждой ячейки, содержащей данные из DataSet-а

[NewUser]

вот какая проблема возникла, использую код

Код: Выделить всё

procedure TMainForm.DBGrid7DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  Img: Tbitmap;

begin
  Img := TBitmap.Create;

  if ( Column.FieldName = 'VID') then
    begin
      with  DBGrid7.Canvas do begin
      Brush.Color:=clWhite;
      FillRect(Rect);
    
      if (SQL7.FieldByName('VID').AsInteger = 1) then
        begin
          ImageList7.GetBitmap(14,Img);
        end
      else
        begin
          ImageList7GetBitmap(15,Img);
        end;
      Draw(round((Rect.Left+Rect.Right-Img.Width)/2),Rect.Top,Img);
    end;
  end;
end;

для отображения картинок в гриде. все работает нормально, только надписи в title перетираются. аналогичная проблема при замене цифр в гриде на значения (к примеру: 1 - выдано, 2 - принято )

как мне отловить, что сейчас выводится именно title, или есть другие решения. если можно куском кода