StringGrid -> Angeklickte Zelle farblich

[HolgerCW]

Hallo zusammen,

wie kann ich in dem onDrawCell - Ereignis die angeklickte Zelle herrausfinden um diese dann farblich darzustellen ?

Gruss

Holger

[DeddyH]

Die müsste doch mit Cells[Col,Row] zu finden sein.

[taaktaak]

Delphi-Quellcode:

if gdSelected in State then ...

[DeddyH]

Klar, das ist natürlich einfacher :D

[HolgerCW]

Vielen dank schon einmal und wie könnte ich nun anstatt der angeklickten Zelle die oberste Zeile in der Spalte anders farbig darstellen ?

Delphi-Quellcode:

 if gdSelected in State then
 begin

  Canvas.Brush.Color := clGradientInactiveCaption;
  Canvas.FillRect(Rect);
  Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, Cells[ACol, ARow]);
 
 end;

Gruss

Holger

[SaFu]

Zitat:

Zitat von DeddyH

Die müsste doch mit Cells[Col,Row] zu finden sein.

einfach damit und dann die Zeile und Spalte angeben

[taaktaak]

Was ist mit oberster Zeile gemeint?
Die erste Datenzeile unterhalb der FixedRow, oder die FixedRow(s) selber?

[HolgerCW]

Die FixedRows selber ...

Weil gdselected in State und Row = 0 geht nicht, da ich ja eine Zelle z.B. Row = 3 und Col = 4 selektiere aber Row = 0 und Col = 4 farblich geändert werden soll.

Gruss

Holger

[DeddyH]

Ist vielleicht nicht das Eleganteste, aber so geht es z.B.:

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if (StringGrid1.Col = ACol) and (ARow = 0) then
    begin
      StringGrid1.Canvas.Brush.Color := clred;
      StringGrid1.Canvas.FillRect(Rect);
    end;
end;

Allerdings musste ich beim OnClick mit StringGrid.Invalidate ein Neuzeichnen auslösen.

[HolgerCW]

Das klappt. Vielen dank ...

Gruss

Holger