Fórum cxgrid agrupamento #350228
07/12/2007
0
Olá!
Pessoal estou usando o cxgrid e gostaria de pegar a situação da grid se ela está agrupada com o Sinal (+) para que ao precionar o enter encima do registro agrupado ele expanda o mesmo, mostrando os demais.
Alguém tem alguma ideia de como fazer isso? :roll: :?:
Pessoal estou usando o cxgrid e gostaria de pegar a situação da grid se ela está agrupada com o Sinal (+) para que ao precionar o enter encima do registro agrupado ele expanda o mesmo, mostrando os demais.
Alguém tem alguma ideia de como fazer isso? :roll: :?:
Ajmsistemas
Curtir tópico
+ 0
Responder
Posts
18/03/2008
Eniorm
minha dúvida é semelhante,
tenho o cxgrid agrupado, sinal de ´+´ e precisaria que fosse exibido automaticamente os grupos expandidos (sem a necessidade de clicar no + pra expandir)
no entanto não achei a propriedade para fazer isso...
tenho o cxgrid agrupado, sinal de ´+´ e precisaria que fosse exibido automaticamente os grupos expandidos (sem a necessidade de clicar no + pra expandir)
no entanto não achei a propriedade para fazer isso...
Responder
Gostei + 0
19/03/2008
Tonidavi2004
Usa estes códigos abaixo. Um grande abraço !!!
procedure Tform1.viewProdutosKeyPress(
Sender: TObject; var Key: Char);
begin
if (Key = #13) then
begin
with viewProdutos do
begin
if (Focused) then
if ViewData.Records[DataController.FocusedRecordIndex].Expanded then
ViewData.Records[DataController.FocusedRecordIndex].Collapse(True)
else
ViewData.Records[DataController.FocusedRecordIndex].Expand(True);
end;
end;
end;
procedure Tform1.viewProdutosDataControllerDetailExpanding(
ADataController: TcxCustomDataController; ARecordIndex: Integer;
var AAllow: Boolean);
var
i: integer;
begin
for i := 0 to Pred(ADataController.RecordCount) do
begin
if (i <> ARecordIndex) then
viewProdutos.ViewData.Records[i].Collapse(True);
end;
end;
procedure Tform1.viewProdutosKeyPress(
Sender: TObject; var Key: Char);
begin
if (Key = #13) then
begin
with viewProdutos do
begin
if (Focused) then
if ViewData.Records[DataController.FocusedRecordIndex].Expanded then
ViewData.Records[DataController.FocusedRecordIndex].Collapse(True)
else
ViewData.Records[DataController.FocusedRecordIndex].Expand(True);
end;
end;
end;
procedure Tform1.viewProdutosDataControllerDetailExpanding(
ADataController: TcxCustomDataController; ARecordIndex: Integer;
var AAllow: Boolean);
var
i: integer;
begin
for i := 0 to Pred(ADataController.RecordCount) do
begin
if (i <> ARecordIndex) then
viewProdutos.ViewData.Records[i].Collapse(True);
end;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)