Cara, este código resolve
type
TCGrid = class(TDBGrid);
type
TColunaGrid = Record
LSuperior : String;
LInferior : String;
Posicao : Cardinal;
end;
procedure ConfiguraGrid(Coluna: Array of TColunaGrid; Sender: TObject;
Column: TColumn; DataCol: Integer; Rect: TRect);
var
R: TRect;
begin
With TCGrid(TDBGrid(Sender)) do begin
RowHeights[0] := 32;
Canvas.Brush.Style := bsClear;
Canvas.Font.Color := ClTeal;
Canvas.Font.Style := [FsBold];
Column.Title.Caption := '';
R := Rect;
R.Left := R.Left + 2;
R.Right := R.Right - 2;
R.Top := 2;
DrawText(Canvas.Handle, PChar(Coluna[Column.ID].LSuperior),
Length(Coluna[Column.ID].LSuperior), R, Coluna[Column.ID].Posicao);
R.Top := 16;
DrawText(Canvas.Handle, PChar(Coluna[Column.ID].LInferior),
Length(Coluna[Column.ID].LInferior), R, Coluna[Column.ID].Posicao);
Canvas.Font.Color := ClWindowText;
Canvas.Font.Style := [];
end;
end;
procedure TForm.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var ColGrid1: Array of TColunaGrid;
begin
SetLength(ColGrid1,6);
ColGrid1[0].LSuperior := 'linha1';
ColGrid1[0].LInferior := 'linha2';
ColGrid1[0].Posicao := DT_CENTER;
ColGrid1[1].LSuperior := 'pode ser qualquer coisa';
ColGrid1[1].LInferior := 'aqui tb pode ';
ColGrid1[1].Posicao := DT_CENTER;
ConfiguraGrid(ColGrid1, Sender, Column, DataCol, Rect);
end;
-----Mensagem original-----
De: Eduardo Buffara Junior [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 23 de dezembro de 2004 12:58
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Linhas num Grid
Olá pessoal td bem???
Estou com o seguinte problema....tenho um grid...este grid esta ligado
numa tabela cujo o campo texto alem de ser um pouquinho grande....tem
quebra de linhas.....
Tenho duas opções....
* Não sei como posso fazer para que o dbgrid quebre as linhas ou
seja...moste varias linhas de um unico registro...tipo excel qd vc
aumenta o espaço da celula....
* Pegar somente a primeira linha da string...mais tb não sei como fazer
isso.....
Preciso de uma solução urgente....
Ate agora obrigado
T+
________________________________
Eduardo Buffara Junior - Programador Delphi
[EMAIL PROTECTED]
(41) 9149.5756 - Paranaguá - PR
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
HYPERLINK
"http://br.groups.yahoo.com/group/delphi-br/messages"http://br.groups.ya
hoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
_____
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
HYPERLINK
"http://br.groups.yahoo.com/group/delphi-br/"http://br.groups.yahoo.com/
group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
HYPERLINK
"mailto:[EMAIL PROTECTED]"del
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos HYPERLINK
"http://br.yahoo.com/info/utos.html"Termos do Serviço do Yahoo!.
---
Incoming mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.819 / Virus Database: 557 - Release Date: 20/12/2004
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.819 / Virus Database: 557 - Release Date: 20/12/2004
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
