Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sharky,
14. Jan 2005
Hai,
ergänze meinen Code mal so:
begin
.
.
if (gdSelected in State) or (SelectedRows.CurrentRowSelected) then // Zeile hat den Fokus oder ist markiert
begin
Canvas.Brush.Color := clblue; //Farbe für die Zelle mit dem Focus
end
.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sharky,
11. Jan 2005
Hai,
geht ganz einfach ;-)
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
with (Sender as TDBGrid) do
begin
if (gdSelected in State) then