Rechtsbündig " delphi stringgrid-Spalte halten sich aber Themen-drawingstyle

Bin ich mit delphi 2010 für ein Projekt mit einem stringgrid. Ich möchte einige Spalten des Rasters zu Recht gerechtfertigt ist. Ich verstehe, wie ich dies tun kann mit defaultdrawing auf false gesetzt.

Ich möchte allerdings, um die Laufzeit Thema Beschattung für das Netz, wenn möglich. Gibt es eine Möglichkeit, die Rechte rechtfertigen, die eine Spalte mit defaultdrawing aktiviert, oder zumindest den code duplizieren im onDrawCell-Ereignis zu imitieren, die Laufzeit Thema Beschattung?

InformationsquelleAutor Joe | 2012-04-06

können Sie mit einem interposer-Klasse und überschreiben Sie die DrawCell-Methode, überprüfen Sie dieses Beispiel

type
  TStringGrid = class(Grids.TStringGrid)
   protected
    procedure DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState); override;
  end;    

  TForm79 = class(TForm)
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
  private
  end;

var
  Form79: TForm79;

implementation

{$R *.dfm}

{ TStringGrid }

procedure TStringGrid.DrawCell(ACol, ARow: Integer; ARect: TRect; AState: TGridDrawState);
var
  s : string;
  LDelta : integer;
begin
  if (ACol=1) and (ARow>0) then
  begin
    s     := Cells[ACol, ARow];
    LDelta := ColWidths[ACol] - Canvas.TextWidth(s);
    Canvas.TextRect(ARect, ARect.Left+LDelta, ARect.Top+2, s);
  end
  else
  Canvas.TextRect(ARect, ARect.Left+2, ARect.Top+2, Cells[ACol, ARow]);
end;

procedure TForm79.FormCreate(Sender: TObject);
begin
  StringGrid1.Cells[0,0]:='title 1';
  StringGrid1.Cells[1,0]:='title 2';
  StringGrid1.Cells[2,0]:='title 3';

  StringGrid1.Cells[0,1]:='normal text';
  StringGrid1.Cells[1,1]:='right text';
  StringGrid1.Cells[2,1]:='normal text';
end;