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 <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.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]
