Блог


Последние записи


Теги

Информация

Как разделить группы толстыми линиями в cxGrid?

добавлено: 22 ноя 12
понравилось:0
просмотров: 2486
комментов: 0

теги:

Автор: X11

Как разделить группы похожих записей в TcxGrid толстыми линиями?


procedure TForm1.cxGrid1DBTableView1CustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var R: TRect;
begin
  if AViewInfo.GridRecord.Index = Sender.DataController.RecordCount-1 then Exit;
  if Sender.DataController.Values[AViewInfo.GridRecord.Index, 1] = Sender.DataController.Values[AViewInfo.GridRecord.Index+1, 1] then Exit;
  R := AViewInfo.ContentBounds;
  Sender.LookAndFeelPainter.DrawHeader(ACanvas, R, R, [], [], cxbsNormal,
    AViewInfo.Item.GetProperties.Alignment.Horz,  vaCenter, False, False,
    AViewInfo.Text, ACanvas.Font, ACanvas.Font.Color, ACanvas.Brush.Color);
  ACanvas.FillRect(Rect(R.Left,R.Bottom-2,R.Right,R.Bottom),clBlack);
  ADone := true;
end;




Картинка с другого сайта.
Взято из этого сообщения SQL.RU:
https://www.sql.ru/forum/actualutils.aspx?action=gotomsg&tid=985177&msg=13510748

Комментарии




Необходимо войти на сайт, чтобы оставлять комментарии