Olá pessoal, Ok, você pode me enviar a atualização (solução do pró)? Daí atualizo a cópia que está na 4shared, o comonente é excelente! Se pudesse jogar uma pedra neste "aquário", rsrsrsrsrs.
Um braço a todos! Silvio Clécio ----- Mensagem original ---- De: Willian Jhonnes Lara dos Santos <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 2 de Outubro de 2008 17:24:14 Assunto: Res: Res: Res: [delphi-br] ScrollBar "some" de DBGrid Opa, Silvio... Nops, não funcionou... Fiz uma alteração no fonte da aplicação, pois percebi q o problema só ocorre qndo a barra horizontal não está visível. O método é POG puro, mas deu certo. Eu estendo a última coluna, forçando a barra hozontal a aparecer e a faço sumir em seguida. Pronto! Minha barra vertical não some mais. Dei uma sumida do Y!Messenger pq me mudaram d mesa e agora eu tô num "aquário", onde todos podem ver oq eu toh fazendo... Ah, e não posso remover/comentar as linhas com os métodos DisableControls e EnableControls, pois, sem elas, o DBGrid vai correr todos os registros durante o preenchimento do CDS. Já imaginou isso com 1.000.000 de registros? []'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: Quinta-feira, 2 de Outubro de 2008 16:31:24 Assunto: Res: Res: [delphi-br] ScrollBar "some" de DBGrid Olá pessoal, E aí Willian, funcionou? (Cara, cadê vc no Yahoo! Messenger?) Um braço a todos! Silvio Cléco ____________ _________ _________ __ ----- Mensagem original ---- De: Silvio Clécio <silvioprog@ yahoo. com.br> Para: [EMAIL PROTECTED] os.com.br Enviadas: Quarta-feira, 1 de Outubro de 2008 15:33:59 Assunto: Res: [delphi-br] ScrollBar "some" de DBGrid 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.btnCreateC lick(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 <willianjhonnes@ yahoo.com. br> Para: [EMAIL PROTECTED] os.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 <silvioprog@ yahoo. 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]
