procedure TfraRefPrivils.dbgMainCustomDrawCell(Sender: TObject;
  ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
  AColumn: TdxTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean;
  var AText: String; var AColor: TColor; AFont: TFont;
  var AAlignment: TAlignment; var ADone: Boolean);
begin
  inherited;

  if ANode.HasChildren then
    Exit;

//  if AColumn.Caption = 'Конець' then
    if ANode.Values[dbgMainDATETO.Index] <> Null then
    begin
      //AFont.Style := AFont.Style + [fsBold];
      if ASelected then begin
//        AFont.Color := clWhite;
      end
      else begin
        AColor := clInactiveBorder;
        AFont.Color := clWindow;
      end;
    end;


end;