rtgit/RTFormwork
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

表格强制显示过滤按钮

Browse Source
This commit is contained in:
sgwp 2024-10-23 13:46:15 +08:00
parent b8e43f895f
commit def92b203f
1 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
public10/design/U_WindowFormdesign.pas
View File

@ -194,7 +194,6 @@ begin
setGridButton.Parent := TToolBar(mForm.Components[i]); setGridButton.Parent := TToolBar(mForm.Components[i]);
setGridButton.ImageIndex := 16; //） setGridButton.ImageIndex := 16; //）
setGridButton.Caption:='表格列设置'; setGridButton.Caption:='表格列设置';
// setGridButton.Name:='TgridLiSet';
setGridButton.Style := tbsButton; setGridButton.Style := tbsButton;
setGridButton.AutoSize:=true; setGridButton.AutoSize:=true;
@ -377,8 +376,10 @@ begin
// 窗口背景色 // 窗口背景色
try try
for i := 0 to mForm.ControlCount - 1 do for i := 0 to mForm.ComponentCount - 1 do
begin begin
if not ( mForm.Components[i] is TcxGrid) and not( mForm.Components[i] is TToolBar) and not( mForm.Components[i] is TdxCustomLayoutControl) then Continue;
if mForm.Components[i] is TcxGrid then if mForm.Components[i] is TcxGrid then
begin begin
if mForm.Components[i].Tag>=999 then Continue; if mForm.Components[i].Tag>=999 then Continue;
@ -386,6 +387,7 @@ begin
//自动响应过滤 //自动响应过滤
TcxGridDBTableView(TcxGrid(mForm.Components[i]).Views[0]).dataController.filter.AutoDataSetFilter := true; TcxGridDBTableView(TcxGrid(mForm.Components[i]).Views[0]).dataController.filter.AutoDataSetFilter := true;
TcxGridDBTableView(TcxGrid(mForm.Components[i]).Views[0]).optionsCustomize.columnfiltering := true;
TcxGridDBTableView(TcxGrid(mForm.Components[i]).Views[0]).OnSelectionChanged := cxGridViewSelectionChanged; TcxGridDBTableView(TcxGrid(mForm.Components[i]).Views[0]).OnSelectionChanged := cxGridViewSelectionChanged;
TcxGridDBTableView(TcxGrid(mForm.Components[i]).Views[0]).OnCustomDrawIndicatorCell := cxGridViewCustomDrawIndicatorCell; TcxGridDBTableView(TcxGrid(mForm.Components[i]).Views[0]).OnCustomDrawIndicatorCell := cxGridViewCustomDrawIndicatorCell;
TcxGridDBTableView(TcxGrid(mForm.Components[i]).Views[0]).optionsCustomize.columnfiltering := true; TcxGridDBTableView(TcxGrid(mForm.Components[i]).Views[0]).optionsCustomize.columnfiltering := true;
@ -433,7 +435,17 @@ begin
SetFormOperRight(application,TToolBar(mForm.Components[i]), PWideChar(mRightCaptions)); SetFormOperRight(application,TToolBar(mForm.Components[i]), PWideChar(mRightCaptions));
continue; continue;
end; end;
if mForm.Components[i] is TdxCustomLayoutControl then
begin
if mForm.Components[i].Tag<999 then
TdxLayoutControl(mForm.Components[i]).ParentFont:=true;
if mForm.Components[i].Tag<>1000 then
begin
TdxLayoutControl(mForm.Components[i]).OnDblClick := dxLayoutControl1DblClick ;
readLayOut(TdxLayoutControl(mForm.Components[i]),ADOTmp,PWideChar( fDllFileName+'|'+mForm.name+'|'+TdxLayoutControl(mForm.Components[i]).Name+'.ini'));
end;
continue;
end;
end; end;
except except
showMessage('窗口初始化异常!'); showMessage('窗口初始化异常!');