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

表格列显示设置

Browse Source
This commit is contained in:
sgwp 2025-02-13 14:57:05 +08:00
parent 1d50968d6d
commit 23fc907a7c
1 changed files with 18 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
Delphi10/开发档案/Dp10RepoV1/public10/design/U_cxGridCustomSet.pas
View File

@ -287,22 +287,23 @@ begin mWidth := 12;
Next; Next;
continue; continue;
end; end;
ADBColumn := tv1.GetColumnByFieldName // if lowercase(trim(fieldByName('fieldName').AsString))='batchno' then
(trim(ADOQueryTmp.fieldByName('fieldName').AsString)); // begin
// end;
ADBColumn := tv1.GetColumnByFieldName (trim(ADOQueryTmp.fieldByName('fieldName').AsString));
if ADBColumn <> nil then begin if ADBColumn <> nil then begin
if (ADBColumn.Styles.Header<>nil) and (ADBColumn.Styles.Header.Font.Size<>gFontSize) then if (ADBColumn.Styles.Header<>nil) and (ADBColumn.Styles.Header.Font.Size<>gFontSize) then
ADBColumn.Styles.Header.Font.Size:= gFontSize ; ADBColumn.Styles.Header.Font.Size:= gFontSize ;
// 作废不显示 // 作废不显示
if not fieldByName('valid').AsBoolean then if not fieldByName('valid').AsBoolean then
begin begin
ADBColumn.Visible := false; ADBColumn.Visible := false;
ADBColumn.Hidden := True; ADBColumn.Hidden := True;
Next; Next;
continue; continue;
end; end;
ADBColumn.Name := trim(tv1.Name) + ADBColumn.Name := trim(tv1.Name) + trim(ADOQueryTmp.fieldByName('fieldName').AsString);
trim(ADOQueryTmp.fieldByName('fieldName').AsString);
if fieldByName('fixColumn').AsBoolean then if fieldByName('fixColumn').AsBoolean then
begin begin
@ -317,9 +318,12 @@ begin mWidth := 12;
if ADBColumn.Tag = 9 then if ADBColumn.Tag = 9 then
ADBColumn.Styles.Header := HeaderStyle; ADBColumn.Styles.Header := HeaderStyle;
ADBColumn.Hidden := fieldByName('ColumnHide').AsBoolean; ADBColumn.Hidden := fieldByName('ColumnHide').AsBoolean;
if ADBColumn.Hidden then begin ADBColumn.Visible := false; if ADBColumn.Hidden and (not fieldByName('Visible').AsBoolean) then
end begin
else begin ADBColumn.Visible := fieldByName('Visible').AsBoolean; ADBColumn.Visible := false;
end else
begin
ADBColumn.Visible := fieldByName('Visible').AsBoolean;
end; end;
/// 创建汇总列 /// 创建汇总列
/// ///
@ -342,8 +346,10 @@ begin mWidth := 12;
begin begin
// ADBColumn.Summary.FooterKind:=skNone ; // ADBColumn.Summary.FooterKind:=skNone ;
end; end;
/////////////
ADBColumn.Caption := trim(fieldByName('caption').AsString); ADBColumn.Caption := trim(fieldByName('caption').AsString);
// ADBColumn.Options.Editing := not fieldByName('ReadOnly').AsBoolean;
// ADBColumn.Options.Focusing := not fieldByName('ReadOnly').AsBoolean;
Next; Next;
continue; continue;
end; end;
@ -360,6 +366,7 @@ begin mWidth := 12;
ADOQueryTmp.Next; ADOQueryTmp.Next;
continue; continue;
end; end;
////////////////////////////д´½¨////////////////////////////////
// 新的列 // 新的列
ADBColumn := tv1.CreateColumn; ADBColumn := tv1.CreateColumn;
ADBColumn.DataBinding.FieldName := ADBColumn.DataBinding.FieldName :=
@ -379,6 +386,7 @@ begin mWidth := 12;
begin begin
ADBColumn.Tag := 9; ADBColumn.Tag := 9;
end; end;
ADBColumn.Visible := fieldByName('visible').AsBoolean; ADBColumn.Visible := fieldByName('visible').AsBoolean;
// ADBColumn.Hidden := fieldByName('ColumnHide').AsBoolean; // ADBColumn.Hidden := fieldByName('ColumnHide').AsBoolean;
ADBColumn.HeaderAlignmentHorz := taCenter; ADBColumn.HeaderAlignmentHorz := taCenter;
@ -580,6 +588,7 @@ begin
fieldByName('oldCaption').value := mCxGridView.Columns[i].Caption; fieldByName('oldCaption').value := mCxGridView.Columns[i].Caption;
fieldByName('ColumnLock').value := 0; fieldByName('ColumnLock').value := 0;
fieldByName('ColumnHide').value := mCxGridView.Columns[i].Hidden; fieldByName('ColumnHide').value := mCxGridView.Columns[i].Hidden;
fieldByName('readonly').value := not mCxGridView.Columns[i].Options.Editing;
fieldByName('ColumnOrder').value := mCxGridView.Columns[i].SortOrder; fieldByName('ColumnOrder').value := mCxGridView.Columns[i].SortOrder;
fieldByName('Visible').value := mCxGridView.Columns[i].Visible; fieldByName('Visible').value := mCxGridView.Columns[i].Visible;