Fórum Cores no Grid #343357

   if DBGrid1.DataSource.DataSet.State in [dsEdit, dsInsert, dsBrowse] then //Cor da linha selecionada
      if Rect.Top = TStringGrid(DBGrid1).CellRect(0,TStringGrid(DBGrid1).Row).Top then begin
         DBGrid1.Canvas.FillRect(Rect);
         DBGrid1.Canvas.Brush.Color := TColor($F0CAA6);
         DBGrid1.DefaultDrawDataCell(Rect,Column.Field,State)
      end;
   if gdSelected in State then begin //Cor da célula selecionada
      DBGrid1.Canvas.Brush.Color := TColor($808000);
      DBGrid1.Canvas.FillRect(Rect);
      DBGrid1.DefaultDrawDataCell(Rect,Column.Field,State)
   end

unit Unit1;

interface

uses
  Forms, ExtCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure OnTimer(Sender: TObject);
  end;

var
  Form1: TForm1;
  Timer: TTimer;

implementation

uses
   Graphics, Windows, Controls, SysUtils;

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
   Timer := TTimer.Create(Self);
   Timer.Interval := 20;
   Timer.OnTimer := OnTimer;
   Timer.Enabled := True;
end;

procedure TForm1.OnTimer(Sender: TObject);
var
Tela: TCanvas;
Cor: TColor;
begin
Tela := TCanvas.Create;
try
Tela.Handle := GetWindowDC(GetDesktopWindow);
Cor := ColorToRGB(GetPixel(Tela.Handle,Mouse.CursorPos.X,Mouse.CursorPos.Y));
Caption := Format(´TColor: ¬s Red: ¬d Green: ¬d Blue: ¬d´,[ColorToString(Cor),GetRValue(Cor),GetGValue(Cor),GetBValue(Cor)])
finally
Tela.Free
end
end;

end.