[delphi-br] ScrollBar "some" de DBGrid

[Willian Jhonnes L. dos Santos]

Bom dia!

Criei um componente descendente do TDBGrid que cria checkboxes para 
campos booleanos. Até aí, tudo bem. O componente funciona que é uma 
beleza. Porém, tenho um problema: quando mudo alguma propriedade de 
QUALQUER componente do form em tempo de execução, a ScrollBar do 
componente "some", ficando oculta além da borda visível do componente.

Eis o código fonte onde o problema ocorre [1]. Notem que o componente 
que apresenta o problema é o cdgbItensNota, não o que está no código. 
Há, também, um link [2] para download do componente.

Quem tiver qualquer idéia ou sugestão, agradeço.

[]'s

[1] - procedure TFBPSI012PSI0003.rbtConferenciaClick(Sender: TObject);
begin
 with cdbgNotas.Columns[1] do
 begin
   Title.Caption := 'Conferência';
   FieldName := 'DATARECEB';
 end;
 Application.ProcessMessages;
 proLimpaPesquisas;
 if (edtData.DateValue >= StrToDate('01/01/2008')) and 
(edtData.DateValue <= Date) then
   proCarregaDados(Sender);
end;

procedure TFBPSI012PSI0003.rbtEmissaoClick(Sender: TObject);
begin
 with cdbgNotas.Columns[1] do
 begin
   Title.Caption := 'Emissão';
   FieldName := 'DATANF';
 end;
 proLimpaPesquisas;
 if (edtData.DateValue >= StrToDate('01/01/2008')) and 
(edtData.DateValue <= Date) then
   proCarregaDados(Sender);
end;

[2] - http://www.4shared.com/file/65216330/b9059ea8/DB-Aware.html

-- 
---------------------------------------------------
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---------------------------------------------------
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---------------------------------------------------
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---------------------------------------------------