DBGrid - Clube Delphi Edição 60
12/08/2008
0
Na Edição 60 da revista clube delphi tem uma dica muito boa para criar uma grade master/detail com dbgrid, porém esta fonte não esta 100¬.
1 - Quando executa o projeto a grid detail já vem aberta.
2 - Ao clicar na coluna onde aparece o sinal de + ele deveria mudar para o sinal de - e aparecer a grid, esta por sua vez aparece só que o sinal continua com o +.
Se alguém puder me ajudar a deixar este código 100¬ eu agradeço.
O link para o projeto que veio na revista se encontra logo abaixo. Ou se preferir pode baixar o site mesmo pela edição 60.
[url]http://rapidshare.com/files/136771232/DBGridMasterDetail.rar.html[/url]
1 - Quando executa o projeto a grid detail já vem aberta.
2 - Ao clicar na coluna onde aparece o sinal de + ele deveria mudar para o sinal de - e aparecer a grid, esta por sua vez aparece só que o sinal continua com o +.
Se alguém puder me ajudar a deixar este código 100¬ eu agradeço.
O link para o projeto que veio na revista se encontra logo abaixo. Ou se preferir pode baixar o site mesmo pela edição 60.
[url]http://rapidshare.com/files/136771232/DBGridMasterDetail.rar.html[/url]
Leufmt
Curtir tópico
+ 0
Responder
Posts
12/08/2008
Craudio
Assim eu acho que funciona.
procedure TForm1.DBGrid1DrawColumnCell(
Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if Column.Index = 0 then
begin
DBGrid1.Canvas.FillRect(Rect);
ImageList1.Draw(DBGrid1.Canvas,Rect.Left,Rect.Top + 1,0);
if gdFocused in State then
begin
ImageList1.Draw(DBGrid1.Canvas,Rect.Left,Rect.Top + 1,1);
DBGrid2.SetBounds(
Rect.Left + 22,Rect.Top + 2,
DBGrid2.Width,DBGrid2.Height);
end;
end;
end;
procedure TForm1.DBGrid1DrawColumnCell(
Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if Column.Index = 0 then
begin
DBGrid1.Canvas.FillRect(Rect);
ImageList1.Draw(DBGrid1.Canvas,Rect.Left,Rect.Top + 1,0);
if gdFocused in State then
begin
ImageList1.Draw(DBGrid1.Canvas,Rect.Left,Rect.Top + 1,1);
DBGrid2.SetBounds(
Rect.Left + 22,Rect.Top + 2,
DBGrid2.Width,DBGrid2.Height);
end;
end;
end;
Responder
12/08/2008
Leufmt
Muito obrigado claudio.
Agora outro problema:
Clico uma vez o sinal muda para - e aparece a grid (até ai tudo certo), porem se eu clicar novamente deverá mudar para + e desaparecer a grid.
E agora?
Agora outro problema:
Clico uma vez o sinal muda para - e aparece a grid (até ai tudo certo), porem se eu clicar novamente deverá mudar para + e desaparecer a grid.
E agora?
Responder
26/05/2016
Lauro Dalpra
Bom Dia!
Estou buscando uma solução para Grid master-Detail e encontrei teus post, vc consegui desenvolver uma solução ou oq vc esta usando ?
O link a baixa q vc tinha postado esta corrompido.
http://rapidshare.com/files/136771232/DBGridMasterDetail.rar.html
Gostaria de saber se pode compartilhar a solução q esta usando.
Obrigado pela atenção!
Estou buscando uma solução para Grid master-Detail e encontrei teus post, vc consegui desenvolver uma solução ou oq vc esta usando ?
O link a baixa q vc tinha postado esta corrompido.
http://rapidshare.com/files/136771232/DBGridMasterDetail.rar.html
Gostaria de saber se pode compartilhar a solução q esta usando.
Obrigado pela atenção!
Responder
Clique aqui para fazer login e interagir na Comunidade :)
