No link que vc passou a na primeira mensagem tinha toda a dica (que eu fui 
observar pra agregar ao arquivo de dicas que pego daqui.) e não precisava vc 
repetir e ainda por cima tirar justamente a parte mais importante da dica. 
Bastava recomendar lesse o que estava no link ou então ressaltasse o trecho 
importante.

Isso independe da correria que todos temos. E seria muito mais rápido!

De qualquer maneira a dúvida deve ter sido sanada e o objetivo provavelmente 
foi cumprido.

Sds,
Ricardo

Luciano Angelini <[EMAIL PROTECTED]> escreveu:                               
Bom dia Ricardo ....
 
 O interessante é se vc consegui desenvolver a dica/exemplo ... se não 
 mandei antes ou mandei depois é coisa que acontece, pois acredito que 
 todos aqui na lista/forum... estamos na correria... qualquer coisa me 
 desculpe ter me atrapalhado na explicação ou não ter conseguindo te 
 explicar direito !!!!
 
 Luciano Angelini
 Prefeitura de Lupionópolis-Pr
 
 Ricardo César Cardoso escreveu:
 >
 > O problema não foi entender ou não, mas o fato que vc simplesmente não 
 > colocou isso na mensagem em que enviou a transcrição do que estava no 
 > seu link, portanto, ficou uma coisa sem pé nem cabeça e vc precisou de 
 > mandar duas mensagens pra explicar algo que poderia ter explicado em 
 > uma só
 >
 > Entendeu?
 >
 > Sds,
 > Ricardo.
 >
 > Luciano Angelini <[EMAIL PROTECTED] 
 > <mailto:luciano.angelini%40uol.com.br>> escreveu: Ricardo ....
 >
 > Column.Title.Caption := S1 + #13#10 + S2.
 >
 > esta aki ....
 >
 > case Column.Index of
 > 0: begin
 > Column.Title.Caption := ''; <<<<<<<<<<<<<<<<<<<<<<<<<
 > S1 := 'Nome do';
 > S2 := 'País';
 > end;
 >
 > 1: begin
 > Column.Title.Caption := ''; <<<<<<<<<<<<<<<<<<<<<<<<<<<
 > S1 := 'Nome da';
 > S2 := 'Capital';
 > end;
 >
 > A mágia de colocar duas linha no titulo que faz é o Canvas:
 > //Escrevendo o Título
 > Canvas.TextOut(Rect.Left+2, 2 , S1) ;
 > Canvas.TextOut(Rect.Left+2, 16, S2) ;
 >
 > Entendeu ????
 >
 > Luciano Angelini
 > Prefeitura de Lupionópolis-Pr
 > Ricardo César Cardoso escreveu:
 > >
 > > E quando vc atribui S1 e S2 para os títulos da Coluna!?!?!?!?!?!?!?
 > >
 > > Acho que faltou alguma instrução como Column.Title.Caption := S1 +
 > > #13#10 + S2.
 > >
 > > Sds,
 > > Ricardo.
 > >
 > > Luciano Angelini <[EMAIL PROTECTED] 
 > <mailto:luciano.angelini%40uol.com.br>
 > > <mailto:luciano.angelini%40uol.com.br>> escreveu: Caro Adones ....
 > >
 > > O exemplo funciona sim .....
 > >
 > > Vc sabe trabalhar com arquivos XML com o ClientDataSet ???
 > >
 > > Caso não
 > > No form vc coloca um DBDrid / ClientDataSet / DataSource
 > >
 > > Vc conecta o ClientDataSet com o arquivos XML´s que se encontra na 
 > pasta:
 > > \arquivos de programas\arquivos comuns\Borland Shared ... e escolha uma
 > > arquivo : Ex: Country.xml
 > > Ativa a conexão do ClientDataSet ...
 > > Faça as conexões: DataSouce com o ClientDataSet , DBGrid com o Data
 > > Source ...
 > > Acrecente as colunas no DBGrid ....
 > > e coloque o exemplo onDrawColumnCell do DBGrid ....
 > > e executa ...
 > >
 > > Note que as colunas Name e Capital foram alteradas para Row1 e Row2 ....
 > > agora é só alterar:
 > >
 > > case Column.Index of
 > > 0: begin
 > > Column.Title.Caption := '';
 > > S1 := 'Nome do';
 > > S2 := 'País';
 > > end;
 > >
 > > 1: begin
 > > Column.Title.Caption := '';
 > > S1 := 'Nome da';
 > > S2 := 'Capital';
 > > end;
 > > end;
 > >
 > > Espero que desta vez tenha te ajudado, caso tenha alguma dúvida me chame
 > > no MSN: [EMAIL PROTECTED] <mailto:lucianoangelini%40msn.com> 
 > <mailto:lucianoangelini%40msn.com>
 > >
 > > Luciano Angelini
 > > Prefeitura de Lupionópolis-Pr
 > >
 > > Adenes I. Freire Junior escreveu:
 > > >
 > > > Luciano, essa rotina não deu certo.
 > > >
 > > > Queria que o título da coluna do dbgrid ficasse assim:
 > > >
 > > > Valor Empnhado
 > > > No Mês Anterior
 > > >
 > > > ou seja, com 2 linhas.
 > > >
 > > > Já tentei DBGrid1.Colunnms[0].Title.Caption := 'Valor Empnhado' + #13
 > > > + 'No
 > > > Mês Anterior';
 > > >
 > > > Mais não dar certo.
 > > >
 > > > -------Mensagem original-------
 > > >
 > > > De: Luciano Angelini
 > > > Data: 12/05/07 15:18:16
 > > > Para: [email protected] 
 > <mailto:delphi-br%40yahoogrupos.com.br>
 > > <mailto:delphi-br%40yahoogrupos.com.br>
 > > > <mailto:delphi-br%40yahoogrupos.com.br>
 > > > Assunto: Re: [delphi-br] DBGrid
 > > >
 > > > Boa Tarde Adenes ....
 > > >
 > > > Como sempre alguem (me desculpe não lembro o nome agora)....
 > > >
 > > > Quem procura acha !!!!!
 > > >
 > > > http://www.devmedia.com.br/articles/viewcomp.asp?comp=924 
 > <http://www.devmedia.com.br/articles/viewcomp.asp?comp=924>
 > > <http://www.devmedia.com.br/articles/viewcomp.asp?comp=924 
 > <http://www.devmedia.com.br/articles/viewcomp.asp?comp=924>>
 > > > <http://www.devmedia.com.br/articles/viewcomp.asp?comp=924 
 > <http://www.devmedia.com.br/articles/viewcomp.asp?comp=924>
 > > <http://www.devmedia.com.br/articles/viewcomp.asp?comp=924 
 > <http://www.devmedia.com.br/articles/viewcomp.asp?comp=924>>>
 > > >
 > > > Espero ter ajudado !!!!
 > > >
 > > > Luciano Angelini
 > > > Prefeitura de Lupionópolis-Pr
 > > >
 > > > Adenes I. Freire Junior escreveu:
 > > > >
 > > > > Como faço para colocar 2 linhas no caption da coluna de um dbgrid?
 > > > >
 > > > > Adenes
 > > > >
 > > > > [As partes desta mensagem que não continham texto foram removidas]
 > > > >
 > > > >
 > > >
 > > >
 > > >
 > > >
 > > > [As partes desta mensagem que não continham texto foram removidas]
 > > >
 > > >
 > >
 > >
 > > _
 > >
 > > ---------------------------------
 > > Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
 > > armazenamento!
 > >
 > > [As partes desta mensagem que não continham texto foram removidas]
 > >
 > >
 >
 >
 > _
 >
 > ---------------------------------
 > Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
 > armazenamento!
 >
 > [As partes desta mensagem que não continham texto foram removidas]
 >
 >  
 
     
             _



       
---------------------------------
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 

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

Responder a