eine Zelle in einem Drawgrid färben

[bjoern]

Moin erstmal,

Hab folgendes Problem. Ich will in einem Drawgrid eine belibige Zelle Selektieren und diese soll dann ihre Farbe ändern. das ist mein ansatz:

Delphi-Quellcode:

procedure TF_haupt.DG_Sim_FeldSelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
  var r:Trect;
begin
  r:=DG_Sim_Feld.CellRect(acol,arow);
  DG_Sim_Feld.Canvas.Brush.Color:=clyellow;
  DG_Sim_Feld.Canvas.FillRect(DG_Sim_Feld.CellRect(acol,arow));
  DG_Sim_Feld.Update;
end;

vieleicht habt ihr eine idee;

[edit=Daniel B]Delphi-Tags gesetzt; Btw. willkommen im Forum bjoern! MfG Daniel B.[/edit]

[Sharky]

Hai bjoern,

willkomen im Forum.

Schaue dir doch mal das Ereigniss OnDrawCell an.

Wenn du mit der Variable State den Status der Zelle prüfst sollte es ganz einfach gehen.

[eddy]

Hallo Björn,

vielleicht hilft das weiter:

Code:

const
  SelectedColor = clYellow;

procedure TFBrowser.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if (gdSelected in state) then begin
    TDrawGrid(Sender).Canvas.Brush.Color := SelectedColor;
    TDrawGrid(Sender).Canvas.FillRect(Rect);
    TDrawGrid(Sender).Canvas.TextRect(Rect, Rect.Left+2, Rect.Top+2, 'Test');
  end;
end;

Ansonsten versuch' es mal unter <Suchen> mit "Grid färben". Jedemenge Beispiele sind vorhanden.

mfg
eddy

[bjoern]

gut das funktoniert schon mal vielen dank aber wie merke ich mir das diese Zelle eingefärbt ist ohne einen Wert oder Text in das Feld zu schreiben(sichtbar)

[eddy]

Hallo Björn,

vermutlich muß man dann die 3. Zeile:

Code:

TDrawGrid(Sender).Canvas.TextRect(Rect, Rect.Left+2, Rect.Top+2, 'Test');

weglassen.

mfg
eddy

[bjoern]

hab beides geschaft :spin: stehe nun vor neuen problemen die ich aber wohl so lösen muß :coder: trotzdem erstmal danke