Olá pessoal,
 
Willian, fiz outras modificações:
 
*** No componente ***
constructor TDBAware.Create(AOwner: Tcomponent);
begin
  inherited Create(AOwner);
  ScrollBars := ssNone;
  FColumnSort := True;
  FOriginalOptions := Options;
  FTrueColor := TrColor;
end;
 
*** No exemplo ***
procedure TfrmMain.btnCreateClick(Sender: TObject);
var
  I: Byte;
begin
  with dstMain do
    begin
      if Active then
        begin
          EmptyDataSet;
          Close;
        end;
      CreateDataSet;
      Open;
//      DisableControls;
      for I := 0 to edtRecords.Value - 1 do
        begin
          Append;
          dstMainBoolean.Value := Odd(I);
          dstMainText.Value := 'Line ' + IntToStr(I + 1);
          Post;
        end;
      First;
//      EnableControls;
    end;
end;
 
Acho que agora resolve.
 
Um abraço a todos!
Silvio Clécio
 
----- Mensagem original ----
De: Willian Jhonnes Lara dos Santos <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 1 de Outubro de 2008 14:36:22
Assunto: Res: Res: [delphi-br] ScrollBar "some" de DBGrid


Silvio... Valeu cara, mas a sua alteração não resolveu o problema. Eis oq 
acontece: a barra "some" por ficar oculta além do limite visível do componente, 
mas ela ainda está lá, pois pode-se observar - olhando com muita atenção - que 
ela se move. Ou seja, atribuir um estado para a propriedade ScrollBars não 
funciona.

Alguém aí tem mais alguma idéia???

[]'s

------------ --------- --------- --------- --------- ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolve dor Object/Free Pascal
willianjhonnes@ yahoo.com. br
------------ --------- --------- --------- --------- ---
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
------------ --------- --------- --------- --------- ---

----- Mensagem original ----
De: Silvio Clécio <[EMAIL PROTECTED] com.br>
Para: [EMAIL PROTECTED] os.com.br
Enviadas: Quarta-feira, 1 de Outubro de 2008 11:59:44
Assunto: Res: [delphi-br] ScrollBar "some" de DBGrid

Olá pessoal,

Willian, resolvi seu problema e adicionei no componente a propriedade TrueColor 
(Default $00FFEFDF). O pacote está disponível para download no link 
http://www.4shared. com/file/ 65228674/ 7bb050bd/ DB-Aware. html
Se você permitir, removo a senha e disponibilizo para nossos colegas no link 
http://www.4shared. com/dir/5679510/ 48848609/ Uploads.html

Um abraço a todos!
Silvio Clécio

----- Mensagem original ----
De: Willian Jhonnes L. dos Santos <willianjhonnes@ yahoo.com. br>
Para: [EMAIL PROTECTED] os.com.br
Enviadas: Quarta-feira, 1 de Outubro de 2008 9:56:58
Assunto: [delphi-br] ScrollBar "some" de DBGrid

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. rbtConferenciaCl ick(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/Desenvolve dor Object/Free Pascal
willianjhonnes@ yahoo.com. br
------------ --------- --------- --------- --------- ---
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
------------ --------- --------- --------- --------- ---
. 


      Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Responder a