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>> 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>
>
> 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>
> > <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>>
> >
> > 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]
>
>
