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?
Pergunta
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.
E eu preciso dessa barra.
Como fazer para ela aparecer e o grid continuar zebrado?
falou
Link para o comentário
Compartilhar em outros sites
18 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.