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]