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]
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: delphi-br@yahoogrupos.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>
>
> 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]
>
>
