DevExpress

TcxImageCombo text wordwrap in TcxGrid

Revers Tuna 2019. 1. 24. 15:45
  
uses
  cxDrawUtils;
type
  TcxViewInfoAcess = class(TcxGridTableDataCellViewInfo);
  TcxPainterAccess = class(TcxGridTableDataCellPainter);

var
  APainter: TcxPainterAccess;
begin
  APainter := TcxPainterAccess(TcxViewInfoAcess(AViewInfo).GetPainterClass.Create(ACanvas, AViewInfo));

  try
    with TcxCustomTextEditViewInfo(AViewInfo.EditViewInfo) do
    begin
      TextRect.Left := TextRect.Left + 1;
      DrawTextFlags := CXTO_CENTER_VERTICALLY or CXTO_WORDBREAK;
    end;

    APainter.DrawContent;
  finally
    APainter.Free;
  end;
end;