0

I use OnCustomDrawCell event handler to draw bitmaps and text in cells. Calling ApplyBestFit makes width of the cells enought to fit bitmaps but not enought to fit text.

For example a width of a bitmap is 16, width of a text is 100. After calling ApplyBestFit width of a cell will be 100 (corresponding to the width of the text) and I'll see the bitmap and a part (84px) of the text.

I would like to the width of the cell be 116 in order to fit both the bitmap and the text.

Is it possible to set desired width of the cell within the OnCustomDrawCell event handler?

Amith
  • 6,818
  • 6
  • 34
  • 45
tikskit
  • 339
  • 5
  • 14

2 Answers2

1

You could override TcxCustomGridTableItem.CalculateBestFitWidth and add the needed space to the result of the function. Inthe example below the derived class TcxGridDBColumn is used. If you are using a TcxGridTableView you will have to interpose TcxGridColumn, if you are using TcxGridDBBandedTableView you will have to interpose TcxGridDBBandedColumn and so on ...
EDIT
As correctly mentioned by @tikskit, if you are needed to create columns at runtime (e.g. by calling View.DataController.CreateAllItems()) it's necessary to override GetItemClass of the used view's class so that the interposed class will be created.

type
  TcxGridDBTableView=Class(cxGridDBTableView.TcxGridDBTableView)
    function GetItemClass: TcxCustomGridTableItemClass; override;
  End;

  TcxGridDBColumn=Class(cxGridDBTableView.TcxGridDBColumn)
     function CalculateBestFitWidth: Integer;override;
  End;

  TForm3 = class(TForm)
    v: TcxGridDBTableView;
    cxGrid1Level1: TcxGridLevel;
    cxGrid1: TcxGrid;
    vID: TcxGridDBColumn;
    vName: TcxGridDBColumn;
    .....
    .....
var
  Form3: TForm3;

implementation

{$R *.dfm}

{ TcxGridDBColumn }

function TcxGridDBColumn.CalculateBestFitWidth: Integer;
begin
  Result := inherited CalculateBestFitWidth;
  Result := Result + 16;
end;

{ TcxGridDBTableView }


function TcxGridDBTableView.GetItemClass: TcxCustomGridTableItemClass;
begin
   inherited;
  Result := TcxGridDBColumn;
end;
bummi
  • 27,123
  • 14
  • 62
  • 101
  • Does this approach mean it's needed to override TcxGridTableView.GetItemClass in order to return TcxGridDBColumn instead of TcxGridColumn? – tikskit Oct 24 '13 at 03:23
  • Nice find. Yes indeed if you need to create columns at runtime you will have to override `GetItemClass` to let the view use the interposed class. I'll do an edit. – bummi Oct 24 '13 at 06:04
0

Declare an access class to TcxCustomGridTableItem:

type
  TcxCustomGridTableItemAccess = class(TcxCustomGridTableItem);

and in your method do:

procedure Test.cxGrid1DBTableView1CustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
  if Assigned(AViewInfo) and Assigned(AViewInfo.Item) then
    TcxCustomGridTableItemAccess(AViewInfo.Item).Width := 116; // or calc here your new width
end;
Agustin Seifert
  • 1,938
  • 1
  • 16
  • 29