![]() |
eine Zelle in einem Drawgrid färben
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:
vieleicht habt ihr eine idee;
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; [edit=Daniel B]Delphi-Tags gesetzt; Btw. willkommen im Forum bjoern! MfG Daniel B.[/edit] |
Re: eine Zelle in einem Drawgrid färben
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. |
Hallo Björn,
vielleicht hilft das weiter:
Code:
Ansonsten versuch' es mal unter <Suchen> mit "Grid färben". Jedemenge Beispiele sind vorhanden.
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; mfg eddy |
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)
|
Hallo Björn,
vermutlich muß man dann die 3. Zeile:
Code:
weglassen.
TDrawGrid(Sender).Canvas.TextRect(Rect, Rect.Left+2, Rect.Top+2, 'Test');
mfg eddy |
hab beides geschaft :spin: stehe nun vor neuen problemen die ich aber wohl so lösen muß :coder: trotzdem erstmal danke
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:49 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz