Fórum Quebra de linha no dbgrid #406519
13/08/2011
0
Olá pessoa,
Estou precisando que no dbgrid aparceça uma coluna com quebra de linha para que apareça assim:
Rua Desembargador
Moreira 55 ap.202
Abaixo segue uma dica que achei para quebrar a linha do DBGRID, mas so quebrou a linha do TITULO do DBGRID, não quebrou as linhas do dbgrid onde aparecem os dados da tabela. Será que tem como adaptar para quebrar tambem a linha do dbgrid?
Segue a dica:
Código:
type
TMyDBGrid = class(TjvDBGrid)
published
property DefaultRowHeight;
end;
Depois no evento OnCreate do form {para aumentar o tamanho da linha do dbgrid}
Código:
begin
TMyDBGrid(jvDBGrid1).DefaultRowHeight := 50;
end;
E ai no evento ondrawColumnCell o codigo
Código:
Var
R : TRect;
begin
R := Rect;
Dec(R.Bottom,0);
If Column.Field = dm.zqAuditoriaTipoMovimento Then
Begin
jvDBGrid1.Canvas.FillRect(Rect);
DrawText(jvDBGrid1.Canvas.Handle,PChar(dm.zqAuditoriaTipoMovimento.AsString),Length(dm.zqAuditoriaTipoMovimento.AsString),R,DT_WORDBREAK);
End;
Obs: Troque o jvDBGrid pelo componente grid que vc usa ai.
Grato
Luiz Carlos
Abaixo segue uma dica que achei para quebrar a linha do DBGRID, mas so quebrou a linha do TITULO do DBGRID, não quebrou as linhas do dbgrid onde aparecem os dados da tabela. Será que tem como adaptar para quebrar tambem a linha do dbgrid?
Segue a dica:
Código:
type
TMyDBGrid = class(TjvDBGrid)
published
property DefaultRowHeight;
end;
Depois no evento OnCreate do form {para aumentar o tamanho da linha do dbgrid}
Código:
begin
TMyDBGrid(jvDBGrid1).DefaultRowHeight := 50;
end;
E ai no evento ondrawColumnCell o codigo
Código:
Var
R : TRect;
begin
R := Rect;
Dec(R.Bottom,0);
If Column.Field = dm.zqAuditoriaTipoMovimento Then
Begin
jvDBGrid1.Canvas.FillRect(Rect);
DrawText(jvDBGrid1.Canvas.Handle,PChar(dm.zqAuditoriaTipoMovimento.AsString),Length(dm.zqAuditoriaTipoMovimento.AsString),R,DT_WORDBREAK);
End;
Obs: Troque o jvDBGrid pelo componente grid que vc usa ai.
Grato
Luiz Carlos
Luiz Carlos
Curtir tópico
+ 0
Responder
Posts
16/08/2011
Wilson Junior
De uma olhada neste link e procure por MEMO http://forum.devmedia.com.br/viewtopic.php?p=78678
Espero ter colaborado.
Espero ter colaborado.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)