TStringGrid.FixedCols rechts darstellen ?

[madina]

Hallo,

wie könnte ich in einem TStringGrid die FixedCols nicht links sondern rechts darstellen ?

mfg

[Keldorn]

Hallo,

nein nicht mit dem Standardgrid.

Gruß Frank

[Hansa]

Wieso soll das mit dem Standardgrid nicht gehen ?

Delphi-Quellcode:

procedure sgRechts (Sender: TObject; Rect: TRect; ACol, ARow:Integer);
var st: String;
begin
  with Sender as TExtStringGrid do begin
    Canvas.FillRect(Rect);
    st := Cells[ACol,ARow];
    InflateRect(rect,-2,-2); 
    DrawText(Canvas.Handle, PChar(st), StrLen(PChar(st)),Rect,DT_RIGHT);
  end;
end;

Die Prozedur muss nur im OnDrawCell des Grids aufgerufen werden.

[DeddyH]

Es geht ja nicht um rechtsbündigen Text, sondern darum, die fixen Spalten nicht links, sondern rechts zu haben.

[Bernhard Geyer]

Wenn du nicht gerade die Personal-Edition von Delphi hast kannst du doch in den Quellcode der Stringgrid-Komponente schnüffeln um den Code der linksbündigen FixedCols darstellung in eine rechtsbündige darstellung zu ändern. Die logik sollte die gleiche sein.

[toms]

Hier mal ein Ansatz, um die Spalte ganz rechts als Fixed zu setzen.
(Gibt noch ein Fehler beim Zeichnen wenn eine Zelle der zweitletzten Spalte selektiert wird und dann
eine andere Zelle selektiert wird.)

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  TempRect: TRect;
begin
  with Sender as TStringGrid do
  begin
    if ACol = Pred(ColCount) then
    begin
      TempRect := Rect;
      Canvas.Brush.Color := FixedColor;
      Canvas.FillRect(TempRect);
      DrawEdge(Canvas.Handle, TempRect, BDR_RAISEDINNER, BF_RECT);
      Canvas.Brush.Color := clBlack;
      with TempRect do
      begin
        Bottom := Bottom + 1;
        Top := Top - 1;
        Left := Left - 1;
        Canvas.FrameRect(TempRect);
      end;
    end;
  end;
end;

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  CanSelect := ACol <> Pred((Sender as TStringGrid).ColCount);
end;

[DeddyH]

Zitat:

if ACol = Pred(ColCount) then

Das sollte man vielleicht ändern inif ACol >= (ColCount - FixedRows) then

[toms]

Zitat von DeddyH:

Zitat:

if ACol = Pred(ColCount) then

Das sollte man vielleicht ändern inif ACol >= (ColCount - FixedRows) then

Mein Code ist nicht universell (d.h er nimmt keine Rücksicht auf die sonstigen Einstellungen in Options etc)

[Keldorn]

wie wollt ihr das Scrollen lösen?
Das Zeichnen allein ist ja am Ende noch die kleinste Hürde. Aber sobald das Grid größer ist, funktionierst ja nicht mehr.

[toms]

Zitat von Keldorn:

wie wollt ihr das Scrollen lösen?
Das Zeichnen allein ist ja am Ende noch die kleinste Hürde. Aber sobald das Grid größer ist, funktionierst ja nicht mehr.

Warum sollte es nicht mehr funktionieren? Was funktioniert nicht mehr?