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