From d91fa7dbc10e3c8794cc629808011ca0723731a6 Mon Sep 17 00:00:00 2001 From: sgwp <63001967@qq.com> Date: Tue, 20 Aug 2024 09:43:44 +0800 Subject: [PATCH] 240820 --- public10/design/U_BaseDataLink.dfm | 152 ++++++++++++------------- public10/design/U_BaseDataLink.pas | 51 ++++----- public10/design/U_FormLayOutDesign.pas | 146 +++++++++++++----------- public10/design/U_WindowFormdesign.pas | 74 +++--------- public10/design/U_globalVar.pas | 3 +- 5 files changed, 183 insertions(+), 243 deletions(-) diff --git a/public10/design/U_BaseDataLink.dfm b/public10/design/U_BaseDataLink.dfm index a5136ee..0949be8 100644 --- a/public10/design/U_BaseDataLink.dfm +++ b/public10/design/U_BaseDataLink.dfm @@ -4,10 +4,11 @@ object BaseDataLink: TBaseDataLink Height = 322 Width = 484 object dxSkinController1: TdxSkinController - Kind = lfStandard + Kind = lfOffice11 NativeStyle = False - ScrollbarMode = sbmHybrid + ScrollbarMode = sbmClassic SkinName = 'WXI' + RenderMode = rmGDIPlus Left = 288 Top = 96 end @@ -42,17 +43,18 @@ object BaseDataLink: TBaseDataLink PixelsPerInch = 96 end object ThreeLookAndFeelCol: TcxLookAndFeelController - Kind = lfStandard + Kind = lfOffice11 NativeStyle = False - ScrollbarMode = sbmHybrid + ScrollbarMode = sbmClassic SkinName = 'WXI' + RenderMode = rmGDIPlus Left = 253 Top = 12 end object cxDefaultEditStyleController1: TcxDefaultEditStyleController Style.Font.Charset = ANSI_CHARSET Style.Font.Color = clWindowText - Style.Font.Height = -16 + Style.Font.Height = -12 Style.Font.Name = #24494#36719#38597#40657 Style.Font.Style = [] Style.LookAndFeel.SkinName = 'WXI' @@ -5824,127 +5826,113 @@ object BaseDataLink: TBaseDataLink Left = 183 Top = 107 PixelsPerInch = 96 - object SHuangSe: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = 4707838 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText + object grid_head_blue: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = ANSI_CHARSET + Font.Color = 14248192 Font.Height = -16 Font.Name = #24494#36719#38597#40657 Font.Style = [] - TextColor = clBtnText + TextColor = 14248192 end - object SkyBlue: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = clSkyBlue - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText + object grid_head_red: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = ANSI_CHARSET + Font.Color = 3351496 Font.Height = -16 Font.Name = #24494#36719#38597#40657 Font.Style = [] - TextColor = clBlack + TextColor = 3351496 end - object Default: TcxStyle - AssignedValues = [svFont] - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText + object grid_head_green: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = ANSI_CHARSET + Font.Color = 3704865 Font.Height = -16 Font.Name = #24494#36719#38597#40657 Font.Style = [] + TextColor = 3704865 end - object QHuangSe: TcxStyle - AssignedValues = [svColor, svFont] - Color = 8454143 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText + object grid_head_yellow: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = ANSI_CHARSET + Font.Color = 43232 Font.Height = -16 Font.Name = #24494#36719#38597#40657 Font.Style = [] + TextColor = 43232 end - object Red: TcxStyle - AssignedValues = [svColor, svFont] - Color = clRed - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -16 - Font.Name = #24494#36719#38597#40657 - Font.Style = [] - end - object FontBlue: TcxStyle + object grid_head_cyan: TcxStyle AssignedValues = [svFont, svTextColor] Font.Charset = GB2312_CHARSET - Font.Color = clBlue + Font.Color = 9864211 Font.Height = -16 Font.Name = #24494#36719#38597#40657 Font.Style = [] - TextColor = clBlue + TextColor = 9864211 end - object TextSHuangSe: TcxStyle + object grid_head_purple: TcxStyle AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = 16744576 + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + TextColor = 16744576 + end + object grid_black_blue: TcxStyle + AssignedValues = [svColor, svFont] + Color = 553641420 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + end + object grid_black_pink: TcxStyle + AssignedValues = [svColor, svFont] + Color = 551213048 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = #24494#36719#38597#40657 Font.Style = [] - TextColor = clOlive end - object FonePurple: TcxStyle - AssignedValues = [svFont, svTextColor] - Font.Charset = GB2312_CHARSET - Font.Color = clWindow - Font.Height = -16 - Font.Name = #24494#36719#38597#40657 - Font.Style = [] - TextColor = clPurple - end - object FoneClMaroon: TcxStyle - AssignedValues = [svFont, svTextColor] - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -16 - Font.Name = #24494#36719#38597#40657 - Font.Style = [] - TextColor = clMaroon - end - object FoneRed: TcxStyle - AssignedValues = [svFont, svTextColor] + object grid_black_grey: TcxStyle + AssignedValues = [svColor, svFont] + Color = 551147734 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = #24494#36719#38597#40657 Font.Style = [] - TextColor = clRed end - object RowColor: TcxStyle - AssignedValues = [svColor] - Color = 16311512 - end - object handBlack: TcxStyle - AssignedValues = [svFont] - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -16 - Font.Name = #24494#36719#38597#40657 - Font.Style = [] - end - object cxBlue: TcxStyle + object grid_black_green: TcxStyle AssignedValues = [svColor, svFont] - Color = 16711731 - Font.Charset = GB2312_CHARSET + Color = 551218644 + Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = #24494#36719#38597#40657 Font.Style = [] end - object SHuangSeCu: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = 4707838 - Font.Charset = GB2312_CHARSET - Font.Color = clBlack + object grid_black_yellow: TcxStyle + AssignedValues = [svColor, svFont] + Color = 550368255 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + end + object grid_black_cyan: TcxStyle + AssignedValues = [svColor, svFont] + Color = 552725713 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText Font.Height = -16 Font.Name = #24494#36719#38597#40657 Font.Style = [] - TextColor = clRed end end object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList diff --git a/public10/design/U_BaseDataLink.pas b/public10/design/U_BaseDataLink.pas index 47346e5..eca9269 100644 --- a/public10/design/U_BaseDataLink.pas +++ b/public10/design/U_BaseDataLink.pas @@ -8,22 +8,7 @@ uses cxLookAndFeels, dxSkinsForm, cxContainer, cxEdit, System.ImageList, Vcl.ImgList, Vcl.Controls, cxImageList, cxGraphics, cxStyles, dxSkinBasic, dxSkinWXI, dxLayoutLookAndFeels, - cxLocalization, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, - dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, - dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, - dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, - dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins, - dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, - dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black, - dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, - dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinOffice2016Colorful, - dxSkinOffice2016Dark, dxSkinOffice2019Black, dxSkinOffice2019Colorful, - dxSkinOffice2019DarkGray, dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, - dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, - dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, - dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue, - dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010, - dxSkinWhiteprint, dxSkinXmas2008Blue; + cxLocalization, dxSkinHighContrast; type TBaseDataLink = class(TDataModule) @@ -33,35 +18,34 @@ type cxDefaultEditStyleController1: TcxDefaultEditStyleController; cxImageList_bar: TcxImageList; ThreeColorBase: TcxStyleRepository; - SHuangSe: TcxStyle; - SkyBlue: TcxStyle; - Default: TcxStyle; - QHuangSe: TcxStyle; - Red: TcxStyle; - FontBlue: TcxStyle; - TextSHuangSe: TcxStyle; - FonePurple: TcxStyle; - FoneClMaroon: TcxStyle; - FoneRed: TcxStyle; - RowColor: TcxStyle; - handBlack: TcxStyle; - cxBlue: TcxStyle; - SHuangSeCu: TcxStyle; dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList; dxLayoutSkinLookAndFeel1: TdxLayoutSkinLookAndFeel; cxLocalizer1: TcxLocalizer; + grid_head_blue: TcxStyle; + grid_head_red: TcxStyle; + grid_head_green: TcxStyle; + grid_head_yellow: TcxStyle; + grid_head_cyan: TcxStyle; + grid_head_purple: TcxStyle; + grid_black_blue: TcxStyle; + grid_black_pink: TcxStyle; + grid_black_grey: TcxStyle; + grid_black_green: TcxStyle; + grid_black_yellow: TcxStyle; + grid_black_cyan: TcxStyle; procedure DataModuleCreate(Sender: TObject); private { Private declarations } public - { Public declarations } + end; var BaseDataLink: TBaseDataLink; implementation - +uses + U_globalVar; {%CLASSGROUP 'Vcl.Controls.TControl'} {$R *.dfm} @@ -70,8 +54,10 @@ procedure TBaseDataLink.DataModuleCreate(Sender: TObject); var str :String; pathStr:String; + I: Integer; begin RootLookAndFeel.NativeStyle := False; + gFontSize:=0; // pathStr:=ExtractFilePath(Application.ExeName) + '\AllSkins.skinres'; // if FileExists(pathStr) then // begin @@ -88,4 +74,5 @@ begin end; end; + end. diff --git a/public10/design/U_FormLayOutDesign.pas b/public10/design/U_FormLayOutDesign.pas index d3cab61..3f456ae 100644 --- a/public10/design/U_FormLayOutDesign.pas +++ b/public10/design/U_FormLayOutDesign.pas @@ -6,91 +6,58 @@ uses Dialogs, Menus, DB, ADODB, cxLabel, BtnEdit, RTComboBox, cxTextEdit, cxMRUEdit, cxDBData, cxGridLevel, cxButtonEdit, cxCurrencyEdit, cxGridTableView, cxGrid, cxGridCustomTableView, cxGraphics, cxCalendar, cxCheckBox, cxGridDBTableView, - cxGridDBBandedTableView, cxStyles, cxPc, cxGroupBox, dxLayoutContainer, + cxGridDBBandedTableView, cxStyles, cxPc, cxGroupBox, dxLayoutContainer, U_dataLink, cxCustomData, cxClasses, cxTimeEdit, cxEdit, cxLookAndFeels, dxLayoutControl, cxLookAndFeelPainters, cxGridCustomView, Buttons, cxDropDownEdit,dxSkinsCore, dxSkinWXI,dxSkinsDefaultPainters; //function saveLayOut(dxLayoutControl1:TdxLayoutControl; ADOCmd: TADOQuery;mdesignCode:string):Boolean; -//function readLayOut(dxLayoutControl1:TdxLayoutControl; ADOTmp: TADOQuery;mdesignCode:string):Boolean; +function readLayOut(dxLayoutControl1:TdxLayoutControl; ADOTmp: TADOQuery;mdesignCode:string):Boolean; //function mustInCheck(dxLayoutControl1:TdxLayoutControl ;textFlag:string='*'):Boolean; procedure SetFormOperRight(app:Tapplication;mParent: TwinControl; mRightCaptions: PWideChar)stdcall;external 'rtCommon.dll' Name 'SetFormOperRight_A'; function getSystemFontSize(ADOTmp: TADOQuery;mStyleCode:PWideChar): Integer;stdcall;external 'rtCommon.dll' Name 'getSystemFontSize_A'; function mustInCheck(app:Tapplication;dxLayoutControl1:TdxLayoutControl;textFlag:PWideChar):boolean;stdcall;external 'rtCommon.dll' Name 'mustInCheck_A'; function isHasDesignRight(ADOTmp: TADOQuery;userId:PWideChar): boolean;stdcall;external 'rtCommon.dll' Name 'isHasDesignRight_A'; -function readLayOut(app:Tapplication;dxLayoutControl1:TdxLayoutControl; ADOTmp: TADOQuery;mdesignCode:PWideChar):integer;stdcall;external 'rtCommon.dll' Name 'readLayOut_A'; +//function readLayOut(app:Tapplication;dxLayoutControl1:TdxLayoutControl; ADOTmp: TADOQuery;mdesignCode:PWideChar):integer;stdcall;external 'rtCommon.dll' Name 'readLayOut_A'; function saveLayOut(app:Tapplication;dxLayoutControl1:TdxLayoutControl; ADOCmd: TADOQuery;mdesignCode:PWideChar):integer;stdcall;external 'rtCommon.dll' Name 'saveLayOut_A'; procedure layoutDesign(dxLayoutControl1:TdxLayoutControl;ADOTmp: TADOQuery;userId:PWideChar )stdcall;external 'rtCommon.dll' Name 'layoutDesign_A'; procedure SetShowModalHide(mHandle:Thandle;form:Tform)stdcall;external 'rtCommon.dll'; +procedure InitStyleData( StyleRepository:TcxStyleRepository;mFontSize:integer); +function GetsysParam(AdoTmp:Tadoquery;StyleRepository:TcxStyleRepository;muserId: pchar; fparam1: pchar): Boolean; implementation - - -//function saveLayOut(dxLayoutControl1:TdxLayoutControl; ADOCmd: TADOQuery;mdesignCode:string):Boolean; -//var -// LayoutStream: TMemoryStream; -//begin -// LayoutStream := TMemoryStream.Create; -// try -// dxLayoutControl1.SaveToStream(LayoutStream); -// with ADOCmd do -// begin -// close; -// sql.Clear; -// sql.Add('select A.* '); -// sql.Add('from SD_Design_FormLayout A'); -// sql.Add('where A.designCode=' + quotedStr(mdesignCode)); -// open; -// -// if RecordCount>0 then -// begin -// edit; -// end -// else -// begin -// append; -// FieldByName('designCode').value:=mdesignCode; -// FieldByName('fileGroup').value:='1'; -// FieldByName('height').value:=0; -// -// end; -// TBlobField(FieldByName('fileContent')).LoadFromStream(LayoutStream); -// Post; -// end; -// finally -// LayoutStream.Free; // 释放内存流 -// end; -//end; +uses + U_globalVar; // -//function readLayOut(dxLayoutControl1:TdxLayoutControl; ADOTmp: TADOQuery;mdesignCode:string):Boolean; -//var -// LayoutStream: TMemoryStream; -//begin -// LayoutStream := TMemoryStream.Create; -// try -// dxLayoutControl1.BeginUpdate ; -// with ADOTmp do -// begin -// close; -// sql.Clear; -// sql.Add('select A.* '); -// sql.Add('from SD_Design_FormLayout A'); -// sql.Add('where A.designCode=' + quotedStr(mdesignCode)); -// open; -// -// if RecordCount>0 then -// begin -// TBlobField(FieldByName('fileContent')).SaveToStream(LayoutStream) ; -// LayoutStream.Seek(0,soFromBeginning); -// dxLayoutControl1.LoadFromStream(LayoutStream); -// end; -// Close; -// end; -// finally -// dxLayoutControl1.EndUpdate(); -// LayoutStream.Free; // 释放内存流 -// end; -//end; +function readLayOut(dxLayoutControl1:TdxLayoutControl; ADOTmp: TADOQuery;mdesignCode:string):Boolean; +var + LayoutStream: TMemoryStream; +begin + LayoutStream := TMemoryStream.Create; + try + dxLayoutControl1.BeginUpdate ; + with ADOTmp do + begin + close; + sql.Clear; + sql.Add('select A.* '); + sql.Add('from SD_Design_FormLayout A'); + sql.Add('where A.designCode=' + quotedStr(mdesignCode)); + open; + + if RecordCount>0 then + begin + TBlobField(FieldByName('fileContent')).SaveToStream(LayoutStream) ; + LayoutStream.Seek(0,soFromBeginning); + dxLayoutControl1.LoadFromStream(LayoutStream); + end; + Close; + end; + finally + dxLayoutControl1.EndUpdate(); + LayoutStream.Free; // 释放内存流 + end; +end; //必须输入控制 // function mustInCheck(dxLayoutControl1:TdxLayoutControl ;textFlag:string='*'):Boolean; @@ -156,4 +123,45 @@ implementation // end; // result:=true; // end; + + //////////////////////////////////// + procedure InitStyleData( StyleRepository:TcxStyleRepository;mFontSize:integer); + var + i:integer; + begin + if mFontSize<9 then mFontSize:=9; + + for i := 0 to StyleRepository.Count-1 do + begin + TcxStyle( StyleRepository.Items[i] ).Font.Size:=mFontSize; + end; + end; + + /// + function GetsysParam(AdoTmp:Tadoquery;StyleRepository:TcxStyleRepository;muserId: pchar; fparam1: pchar): Boolean; + var + i:integer; +begin + result := true; + ////////////////////////////// +// shortDateFormat := 'yyyy-MM-dd'; + //服务器日期 + with AdoTmp do + begin + close; + sql.Clear; + sql.Add('select getDate()as dt'); + open; + DServerDate := fieldByName('dt').AsDatetime; + end; + gFontSize:= getSystemFontSize(AdoTmp,PWideChar('01')); + + for i := 0 to StyleRepository.Count-1 do + begin + if gFontSize>=9 then + TcxStyle( StyleRepository.Items[i] ).Font.Size:=gFontSize; + end; + result := true; +end; + end. diff --git a/public10/design/U_WindowFormdesign.pas b/public10/design/U_WindowFormdesign.pas index e07fbd3..4102581 100644 --- a/public10/design/U_WindowFormdesign.pas +++ b/public10/design/U_WindowFormdesign.pas @@ -85,16 +85,22 @@ begin if trim(mStyleCode) = '' then mStyleCode := '01'; - fFontSize:= getSystemFontSize(ADOTmp,PWideChar(mStyleCode)); - if fFontSize < 9 then - fFontSize := 12; + if gFontSize>=9 then + begin + fFontSize:= gFontSize ; + end + else + begin + fFontSize:= getSystemFontSize(ADOTmp,PWideChar(mStyleCode)); + if fFontSize < 9 then + fFontSize := 12; + gFontSize:=fFontSize; + end; mForm.Font.Size := fFontSize; // 窗口背景色 - // if mIsCustomBackColor then - // mForm.Color := clFormBack; - + try for i := 0 to mForm.ComponentCount - 1 do begin if not(mForm.Components[i] is Twincontrol) then @@ -201,7 +207,7 @@ begin if mForm.Components[i].Tag<>1000 then begin TdxLayoutControl(mForm.Components[i]).OnDblClick := dxLayoutControl1DblClick ; - readLayOut(application,TdxLayoutControl(mForm.Components[i]),ADOTmp,PWideChar( fDllFileName+'|'+mForm.name+'|'+TdxLayoutControl(mForm.Components[i]).Name+'.ini')); + readLayOut(TdxLayoutControl(mForm.Components[i]),ADOTmp,PWideChar( fDllFileName+'|'+mForm.name+'|'+TdxLayoutControl(mForm.Components[i]).Name+'.ini')); end; continue; end; @@ -279,57 +285,6 @@ begin TcxGrid(mForm.Components[i]).LookAndFeel.ScrollbarMode := sbmClassic; -// cxStyle_GridOddRow := TcxStyle.Create(mForm.Components[i]); -// cxStyle_GridEvenRow := TcxStyle.Create(mForm.Components[i]); -// cxStyle_active := TcxStyle.Create(mForm.Components[i]); -// cxStyle_selection := TcxStyle.Create(mForm.Components[i]); -// cxStyle_gridGroupBox := TcxStyle.Create(mForm.Components[i]); -// cxStyle_gridFoot := TcxStyle.Create(mForm.Components[i]); -// -// cxStyle_active.Font.name := '微软雅黑'; -// -// cxStyle_gridGroupBox.Color := $20F3FBFB; -// cxStyle_selection.Color := $0047D5FE; -// cxStyle_gridFoot.Color := clPanelBack; -// cxStyle_gridFoot.Font.Color := clBlack; -// -// cxStyle_selection.Font.Color := clBlack; -// cxStyle_selection.Font.Style := []; -// cxStyle_selection.Font.name := '微软雅黑'; -// -// -// cxStyle_active.Font.Size := fFontsize; -// cxStyle_gridFoot.Font.Size := ffontsize; -// cxStyle_selection.Font.Size := ffontsize; - -// if TcxGridDBTableView(TcxGrid(mForm.Components[i]).Views[0]).styles.Header <> nil then -// TcxStyle(TcxGridDBTableView(TcxGrid(mForm.Components[i]).Views[0]).styles.Header).Font.Size := ffontsize; -// -// if TcxGridDBTableView(TcxGrid(mForm.Components[i]).Views[0]).styles.contentOdd = nil then -// TcxGridDBTableView(TcxGrid(mForm.Components[i]).Views[0]).styles.contentOdd := cxStyle_GridOddRow; -// if TcxGridDBTableView(TcxGrid(mForm.Components[i]).Views[0]).styles.contentEven = nil then -// TcxGridDBTableView(TcxGrid(mForm.Components[i]).Views[0]).styles.contentEven := cxStyle_GridEvenRow; -// if TcxGridDBTableView(TcxGrid(mForm.Components[i]).Views[0]).styles.inactive = nil then -// TcxGridDBTableView(TcxGrid(mForm.Components[i]).Views[0]).styles.inactive := cxStyle_active -// else -// TcxStyle(TcxGridDBTableView(TcxGrid(mForm.Components[i]).Views[0]).styles.inactive).Font.Size := ffontsize; -// -// if TcxGridDBTableView(TcxGrid(mForm.Components[i]).Views[0]).styles.selection = nil then -// begin -// TcxGridDBTableView(TcxGrid(mForm.Components[i]).Views[0]).styles.selection := cxStyle_selection; -// TcxGridDBTableView(TcxGrid(mForm.Components[i]).Views[0]).styles.selection.AssignedValues := []; -// end -// else -// TcxStyle(TcxGridDBTableView(TcxGrid(mForm.Components[i]).Views[0]).styles.selection).Font.Size := ffontsize; -// - - - // TcxGridDBTableView(TcxGrid(mForm.Components[i]).Views[0]).optionsView.groupByBox := false; - // if mIsDrawGridHeader and (TcxGrid(mForm.Components[i]).Tag <> 1) then - // begin - // TcxGridDBTableView(TcxGrid(mForm.Components[i]).Views[0]).optionsCustomize.columnfiltering := true; - - // end; //自动响应过滤 TcxGridDBTableView(TcxGrid(mForm.Components[i]).Views[0]).dataController.filter.AutoDataSetFilter := true; @@ -352,6 +307,9 @@ begin end; end; + except + showMessage('窗口初始化异常!'); + end; end; diff --git a/public10/design/U_globalVar.pas b/public10/design/U_globalVar.pas index e78e6aa..e9e178d 100644 --- a/public10/design/U_globalVar.pas +++ b/public10/design/U_globalVar.pas @@ -3,8 +3,6 @@ interface uses Messages; - - var gUserName:string; gUserId:string; @@ -12,6 +10,7 @@ var gDllFileCaption :string; gConString:string ; gIsCanDesign:Boolean; + gFontSize:integer; const WM_CloseForm = WM_USER + 100 ;