cxgrid agrupamento

Delphi

07/12/2007

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: :?:


Ajmsistemas

Ajmsistemas

Curtidas 0

Respostas

Eniorm

Eniorm

07/12/2007

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


GOSTEI 0
Tonidavi2004

Tonidavi2004

07/12/2007

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;


GOSTEI 0
POSTAR