1. 程式人生 > >TcxGrid最左邊顯示序號

TcxGrid最左邊顯示序號

步驟

1.設定cxgrid的屬性, OptionsView.Indicator = True

2.OnCustomDrawIndicatorCell事件
var
  FValue: string;
  FBounds: TRect;
begin
  if (AViewInfo is TcxGridIndicatorRowItemViewInfo) then
    begin
      FValue :=IntToStr(TcxGridIndicatorRowItemViewInfo(AViewInfo).GridRecord.Index+1);
      FBounds := AViewInfo.Bounds;
      ACanvas.FillRect(FBounds);
      ACanvas.DrawComplexFrame(FBounds, clBtnHighlight, clBtnShadow, [bBottom, bLeft, bRight], 1);
      InflateRect(FBounds, -1, -1);
      ACanvas.Font.Color := clBlack;
      ACanvas.Brush.Style := bsClear;
      ACanvas.DrawText(FValue, FBounds, cxAlignCenter or cxAlignTop);
      ADone := True;
    end;
end;