자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Delphi tcxgrid Custom Filter 사용시 체크
2019.12.12 17:37
본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 다른 분들도 참고할 수 있도록 결과 댓글 필수(또는 감사 댓글)
(결과 댓글을 달지 않는 경우 다음 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)
-----------------------------------------------------------------------------------------------
델파이 xe2 버전이고
tcxgrid 에서 상단 컬럼명에 보면 (ALL) (Custom) 이런식으로 자체 필터링 기능이 있어요
일단 맨 첫 컬럼을 CHOICE 선택 체크박스로 설정했고
해당 컬럼 헤더를 클릭하면 전체 선택 / 해제를 하는 코딩이 되어있습니다.
여기서 하려는건
상단 컬럼명에 있는 자체 기능으로 필터링 시키고
전체 선택을 하면 화면에 필터링 되어 있는 자료만
체크 변경을 하려고 하는데 이게 안되네요
필터링 해서 화면에 안나와도 다 체크가 되어 버립니다
필터링된 자료 체크 방법이 있을까요?
with TClientDataSet(TcxGridDBColumn(Sender).DataBinding.DataController.DataSource.DataSet) do
begin
DisableControls;
try
First;
while not Eof do
begin
if 여기부분에 tcxGrid 자체 필터링기능엤는 필터링 사용시 안보이는 자료 체크 then
begin
Next;
Continue;
end;
Edit;
if TcxGridDBColumn(Sender).Tag = 1 then
FieldByName(AFieldNm).AsString := 'Y'
else
FieldByName(AFieldNm).AsString := 'N';
Next;
end;
finally
EnableControls;
end;
end;
Delphi tcxgrid Custom Filter 사용시 체크
2019.12.12 17:37
본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 다른 분들도 참고할 수 있도록 결과 댓글 필수(또는 감사 댓글)
(결과 댓글을 달지 않는 경우 다음 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)
-----------------------------------------------------------------------------------------------
델파이 xe2 버전이고
tcxgrid 에서 상단 컬럼명에 보면 (ALL) (Custom) 이런식으로 자체 필터링 기능이 있어요
일단 맨 첫 컬럼을 CHOICE 선택 체크박스로 설정했고
해당 컬럼 헤더를 클릭하면 전체 선택 / 해제를 하는 코딩이 되어있습니다.
여기서 하려는건
상단 컬럼명에 있는 자체 기능으로 필터링 시키고
전체 선택을 하면 화면에 필터링 되어 있는 자료만
체크 변경을 하려고 하는데 이게 안되네요
필터링 해서 화면에 안나와도 다 체크가 되어 버립니다
필터링된 자료 체크 방법이 있을까요?
with TClientDataSet(TcxGridDBColumn(Sender).DataBinding.DataController.DataSource.DataSet) do
begin
DisableControls;
try
First;
while not Eof do
begin
if 여기부분에 tcxGrid 자체 필터링기능엤는 필터링 사용시 안보이는 자료 체크 then
begin
Next;
Continue;
end;
Edit;
if TcxGridDBColumn(Sender).Tag = 1 then
FieldByName(AFieldNm).AsString := 'Y'
else
FieldByName(AFieldNm).AsString := 'N';
Next;
end;
finally
EnableControls;
end;
end;
특정 써드파티 컴포넌트의 사용법은 제가 답변을 달기 어렵습니다.(제가 해당 컴포넌트를 사용하지 않습니다.)
관련된 내용을 아시는 다른 분들의 답변을 기대해봐야 할 것 같습니다.
또는 DevExpress에서 관련 이슈를 찾아보시거나 질문해보시면 좋을 것 같습니다.
https://www.devexpress.com/Support/Center/
——————
답글이 도움이 되셨는지 다른 분들도 참고할 수 있도록 결과 댓글 부탁드립니다.
(결과 댓글이 없는 경우 다른 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)