Grid Colorido

[Vivendo&Aprendendo]

Galera to usando essa rotina para fazer com que o meu grid fique cada linha de uma cor e ta funcionando certinho, o meu problema é que ele ta tirando a barra de rolagem.

procedure TFrmAlunos.DBGridInfDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  If odd(ADOInformacoes.RecNo) then
  begin
    DBGridInf.Canvas.Font.Color:= clBlack;
    DBGridInf.Canvas.Brush.Color:= clInfoBk;
  end
  else
  begin
    DBGridInf.Canvas.Font.Color:= clBlack;
    DBGridInf.Canvas.Brush.Color:= clSkyBlue;
  end;
  DBGridInf.Canvas.FillRect(Rect);
  DBGridInf.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString);
end;

E eu preciso dessa barra.

Como fazer para ela aparecer e o grid continuar zebrado?

falou

[s3c]

Tente mandar o Windows mostrar:

  ShowScrollBar(DBGridInf.Handle, SB_Both, true);

[Progr'amador]

Galera to usando essa rotina para fazer com que o meu grid fique cada linha de uma cor e ta funcionando certinho, o meu problema é que ele ta tirando a barra de rolagem.

Olá V&A,

num é esse código que ta tirando a barra não.

:unsure:

Abs. Progr'amador.

[Vivendo&Aprendendo]

Ok s3c apareceu, mas sabe me dizer o porque que ela sumiu depois de eu usar aquela rotina?

[s3c]

Ok s3c apareceu, mas sabe me dizer o porque que ela sumiu depois de eu usar aquela rotina?

Deve ser porque as Scrollbars são controladas pelo Windows e ele só redesenha quando um evento de paint é gerado; como você está pintando pelo Canvas, o Windows não sabe que elas foram mexidas.

[Vivendo&Aprendendo]

E como faço para aparecer somente quando os campos forem maiores do que o limite do grid? por que ta aparecendo sempre

falou

[s3c]

você pode utilizar a função: GetScrollBarInfo para ver quais barras estão visíveis antes de dar ShowScrollBar

[Vivendo&Aprendendo]

E como eu faço isso?

[s3c]

var SBI:tagSCROLLBARINFO;
begin
  SBI.cbSize := SizeOf(SBI);
  GetScrollBarInfo(DBGrid1.Handle, Integer(ObjId_HScroll), SBI);
  if (SBI.rgstate[0] and $8000) = 0 then
    // Barra horizontal visível
  GetScrollBarInfo(DBGrid1.Handle, Integer(ObjId_VScroll), SBI);
  if (SBI.rgstate[0] and $8000) = 0 then
    // Barra vertical visível
end;

[Micheus]

Já me intrometendo,

uma vez que você altera as propriedades do canvas momentos antes do redesenho do grid, se você substituir o código:

 DBGridInf.Canvas.FillRect(Rect);
DBGridInf.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString);

por:

DBGridInf.DefaultDrawColumnCell(Rect, DataCol, Column, State);

não resolve o seu problema, já que o redesenho é executado com suas configurações de cores?

[Vivendo&Aprendendo]

Não deu certo também.

Se deixar assim aparece as duas sempre mesmo que não tiver registro no grid.

  DBGridInf.Canvas.FillRect(Rect);
  DBGridInf.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString);
  ShowScrollBar(DBGridInf.Handle, SB_Both, true);

Se eu tirar essas linhas e colocar essa não aparece nenhuma das duas barras mesmo tendo registro no grid:

DBGridInf.DefaultDrawColumnCell(Rect, DataCol, Column, State);

falou

[s3c]

Não deu certo também.

Se deixar assim aparece as duas sempre mesmo que não tiver registro no grid.

  DBGridInf.Canvas.FillRect(Rect);
  DBGridInf.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString);
  ShowScrollBar(DBGridInf.Handle, SB_Both, true);

Mas aí não está o código do GetScrollBarInfo.

[Vivendo&Aprendendo]

s3c desculpa a minha ignorancia mas tentei de várias formas aqui e num funcionou como ficaria isso com o código que você me passou?

[s3c]

Tente assim:

var SBI:tagSCROLLBARINFO;
begin
  . . . // Operações do Canvas
  SBI.cbSize := SizeOf(SBI);
  GetScrollBarInfo(DBGrid1.Handle, Integer(ObjId_HScroll), SBI);
  if (SBI.rgstate[0] and $8000) = 0 then
    ShowScrollBar(DBGridInf.Handle, SB_Horz, true);
  GetScrollBarInfo(DBGrid1.Handle, Integer(ObjId_VScroll), SBI);
  if (SBI.rgstate[0] and $8000) = 0 then
    ShowScrollBar(DBGridInf.Handle, SB_Vert, true);
end;

[Vivendo&Aprendendo]

cara to usando o seguinte código no evento OnDrawColumnCell do grid:

var SBI:tagSCROLLBARINFO;
begin
  If odd(ADOInformacoes.RecNo) then
  begin
    DBGridInf.Canvas.Font.Color:= clBlack;
    DBGridInf.Canvas.Brush.Color:= clInfoBk;
  end
  else
  begin
    DBGridInf.Canvas.Font.Color:= clBlack;
    DBGridInf.Canvas.Brush.Color:= clSkyBlue;
  end;
  DBGridInf.Canvas.FillRect(Rect);
  DBGridInf.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString);
  ShowScrollBar(DBGridInf.Handle, SB_Both, true);
   // Operações do Canvas
  SBI.cbSize := SizeOf(SBI);
  GetScrollBarInfo(DBGridInf.Handle, Integer(ObjId_HScroll), SBI);
  if (SBI.rgstate[0] and $8000) = 0 then
    ShowScrollBar(DBGridInf.Handle, SB_Horz, true);//quando coloco false aqui fica doidão
  GetScrollBarInfo(DBGridInf.Handle, Integer(ObjId_VScroll), SBI);
  if (SBI.rgstate[0] and $8000) = 0 then
    ShowScrollBar(DBGridInf.Handle, SB_Vert, true);

E não funciona fica as duas barras da mesma forma tendo registro ou não e quando coloco false no primeiro if cria um loop muito doido.

falou

[s3c]

você está com 3 intruções ShowScrollBar; retire a primeira e deixe somente as duas do if.

[Vivendo&Aprendendo]

cara quando eu tiro a primeira não aparece nenhuma das barras.

meu código está assim agora:

  If odd(ADOInformacoes.RecNo) then
  begin
    DBGridInf.Canvas.Font.Color:= clBlack;
    DBGridInf.Canvas.Brush.Color:= clInfoBk;
  end
  else
  begin
    DBGridInf.Canvas.Font.Color:= clBlack;
    DBGridInf.Canvas.Brush.Color:= clSkyBlue;
  end;
  DBGridInf.Canvas.FillRect(Rect);
  DBGridInf.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString);
   // Operações do Canvas
  SBI.cbSize := SizeOf(SBI);
  GetScrollBarInfo(DBGridInf.Handle, Integer(ObjId_HScroll), SBI);
  if (SBI.rgstate[0] and $8000) = 0 then
    ShowScrollBar(DBGridInf.Handle, SB_Horz, true);
  GetScrollBarInfo(DBGridInf.Handle, Integer(ObjId_VScroll), SBI);
  if (SBI.rgstate[0] and $8000) = 0 then
    ShowScrollBar(DBGridInf.Handle, SB_Vert, true);

[s3c]

Tente utilizar um flag; antes do Canvas veja quais barras estão visíveis pelo GetScrollBarInfo e depois aplique ShowScrollBar conforme os flags.

[Vivendo&Aprendendo]

aí galera está resolvido o meu problema...

Consegui da seguinte forma:

procedure TFrm_Principal.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  IF NOT odd(IBTable1.RecNo) THEN
    IF NOT (GdSelected IN State) THEN      
    Begin
       Dbgrid1.Canvas.Brush.Color := $00AABB;
       Dbgrid1.Canvas.FillRect(rect);
       Dbgrid1.DefaultDrawDataCell(Rect,column.Field,State);
      end;
end;

Funciona direitinho. Coloca o grid de forma zebrada e adiciona as barras somente quando necessário.

falou