DB - Grid 2 parte

[webrodex 0]

Olá galera e o seguinte estou com um probleminha estou usando o dbgrid queria fazer o seguinte quando eu seleciono uma certa linha eu nao quero que fica marcado com a cor azul selecionado eu quero deixar a cor branca = sem cor eu estou postando a foto explicando abaixo oque eu queria !

 

 

 

 

 

Estou usando o seguinte comando queria deixar o fundo branco ( transparente ) quando fica

selecionado algum arquivo do dbgrid mas nao tou conseguindo tou usando o seguinte comando

 

 

 

procedure Tlista_salas.DBGridDrawColumnCell(Sender: TObject;

const Rect: TRect; DataCol: Integer; Column: TColumn;

State: TGridDrawState);

 

var

Bitmap: TBitmap;

begin

if Column.Index = 0 then

begin

if SQL.FieldByName('Sala Vip').AsString = 'ADM' then

begin

Bitmap := Image1.Picture.Bitmap;

 

Dbgrid.Canvas.Font.Color:= clred;

Dbgrid.DefaultDrawDataCell(Rect, dbgrid.columns[datacol].field, State);

 

end

else

Bitmap := Image2.Picture.Bitmap;

with TDBGrid(Sender) do

begin

Canvas.FillRect(Rect);

Canvas.Draw(Rect.left, Rect.Top , Bitmap);

Canvas.TextOut(Rect.Left + Bitmap.Width + 2 ,Rect.Top + 2, Column.Field.AsString);

 

begin

if SQL.FieldByName('Sala Vip').AsString = 'S' then

begin

Bitmap := Image1.Picture.Bitmap;

Dbgrid.Canvas.Font.Color:= clblue;

Dbgrid.DefaultDrawDataCell(Rect, dbgrid.columns[datacol].field, State);

 

Canvas.FillRect(Rect);

Canvas.Draw(Rect.left, Rect.Top , Bitmap);

Canvas.TextOut(Rect.Left + Bitmap.Width + 2 ,Rect.Top + 2, Column.Field.AsString);

end

else

end;

end;

end;

end;

 

 

Espero que podem me ajudar essa e minha duvida valews !!

[marcio.theis 3]

você chegou a olhar o seu post anterior e a resposta ?

http://forum.imasters.com.br/index.php?showtopic=201083

[webrodex 0]

Sim cheguei ver sim mas nao deu certo não

[marcio.theis 3]

Estranho, coloquei o fonte aqui e funcionou...No caso foi usado o evento OnDrawDataCell...