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

240820

Browse Source
This commit is contained in:
sgwp 2024-08-20 09:43:44 +08:00
parent b5fbedfd26
commit d91fa7dbc1
5 changed files with 183 additions and 243 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

152
public10/design/U_BaseDataLink.dfm
View File

@ -4,10 +4,11 @@ object BaseDataLink: TBaseDataLink
Height = 322 Height = 322
Width = 484 Width = 484
object dxSkinController1: TdxSkinController object dxSkinController1: TdxSkinController
Kind = lfStandard Kind = lfOffice11
NativeStyle = False NativeStyle = False
ScrollbarMode = sbmHybrid ScrollbarMode = sbmClassic
SkinName = 'WXI' SkinName = 'WXI'
RenderMode = rmGDIPlus
Left = 288 Left = 288
Top = 96 Top = 96
end end
@ -42,17 +43,18 @@ object BaseDataLink: TBaseDataLink
PixelsPerInch = 96 PixelsPerInch = 96
end end
object ThreeLookAndFeelCol: TcxLookAndFeelController object ThreeLookAndFeelCol: TcxLookAndFeelController
Kind = lfStandard Kind = lfOffice11
NativeStyle = False NativeStyle = False
ScrollbarMode = sbmHybrid ScrollbarMode = sbmClassic
SkinName = 'WXI' SkinName = 'WXI'
RenderMode = rmGDIPlus
Left = 253 Left = 253
Top = 12 Top = 12
end end
object cxDefaultEditStyleController1: TcxDefaultEditStyleController object cxDefaultEditStyleController1: TcxDefaultEditStyleController
Style.Font.Charset = ANSI_CHARSET Style.Font.Charset = ANSI_CHARSET
Style.Font.Color = clWindowText Style.Font.Color = clWindowText
Style.Font.Height = -16 Style.Font.Height = -12
Style.Font.Name = #24494#36719#38597#40657 Style.Font.Name = #24494#36719#38597#40657
Style.Font.Style = [] Style.Font.Style = []
Style.LookAndFeel.SkinName = 'WXI' Style.LookAndFeel.SkinName = 'WXI'
@ -5824,127 +5826,113 @@ object BaseDataLink: TBaseDataLink
Left = 183 Left = 183
Top = 107 Top = 107
PixelsPerInch = 96 PixelsPerInch = 96
object SHuangSe: TcxStyle object grid_head_blue: TcxStyle
AssignedValues = [svColor, svFont, svTextColor] AssignedValues = [svFont, svTextColor]
Color = 4707838 Font.Charset = ANSI_CHARSET
Font.Charset = GB2312_CHARSET Font.Color = 14248192
Font.Color = clWindowText
Font.Height = -16 Font.Height = -16
Font.Name = #24494#36719#38597#40657 Font.Name = #24494#36719#38597#40657
Font.Style = [] Font.Style = []
TextColor = clBtnText TextColor = 14248192
end end
object SkyBlue: TcxStyle object grid_head_red: TcxStyle
AssignedValues = [svColor, svFont, svTextColor] AssignedValues = [svFont, svTextColor]
Color = clSkyBlue Font.Charset = ANSI_CHARSET
Font.Charset = GB2312_CHARSET Font.Color = 3351496
Font.Color = clWindowText
Font.Height = -16 Font.Height = -16
Font.Name = #24494#36719#38597#40657 Font.Name = #24494#36719#38597#40657
Font.Style = [] Font.Style = []
TextColor = clBlack TextColor = 3351496
end end
object Default: TcxStyle object grid_head_green: TcxStyle
AssignedValues = [svFont] AssignedValues = [svFont, svTextColor]
Font.Charset = GB2312_CHARSET Font.Charset = ANSI_CHARSET
Font.Color = clWindowText Font.Color = 3704865
Font.Height = -16 Font.Height = -16
Font.Name = #24494#36719#38597#40657 Font.Name = #24494#36719#38597#40657
Font.Style = [] Font.Style = []
TextColor = 3704865
end end
object QHuangSe: TcxStyle object grid_head_yellow: TcxStyle
AssignedValues = [svColor, svFont] AssignedValues = [svFont, svTextColor]
Color = 8454143 Font.Charset = ANSI_CHARSET
Font.Charset = GB2312_CHARSET Font.Color = 43232
Font.Color = clWindowText
Font.Height = -16 Font.Height = -16
Font.Name = #24494#36719#38597#40657 Font.Name = #24494#36719#38597#40657
Font.Style = [] Font.Style = []
TextColor = 43232
end end
object Red: TcxStyle object grid_head_cyan: 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
AssignedValues = [svFont, svTextColor] AssignedValues = [svFont, svTextColor]
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlue Font.Color = 9864211
Font.Height = -16 Font.Height = -16
Font.Name = #24494#36719#38597#40657 Font.Name = #24494#36719#38597#40657
Font.Style = [] Font.Style = []
TextColor = clBlue TextColor = 9864211
end end
object TextSHuangSe: TcxStyle object grid_head_purple: TcxStyle
AssignedValues = [svFont, svTextColor] 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.Charset = ANSI_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -16
Font.Name = #24494#36719#38597#40657 Font.Name = #24494#36719#38597#40657
Font.Style = [] Font.Style = []
TextColor = clOlive
end end
object FonePurple: TcxStyle object grid_black_grey: TcxStyle
AssignedValues = [svFont, svTextColor] AssignedValues = [svColor, svFont]
Font.Charset = GB2312_CHARSET Color = 551147734
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]
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -16
Font.Name = #24494#36719#38597#40657 Font.Name = #24494#36719#38597#40657
Font.Style = [] Font.Style = []
TextColor = clRed
end end
object RowColor: TcxStyle object grid_black_green: 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
AssignedValues = [svColor, svFont] AssignedValues = [svColor, svFont]
Color = 16711731 Color = 551218644
Font.Charset = GB2312_CHARSET Font.Charset = ANSI_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -16
Font.Name = #24494#36719#38597#40657 Font.Name = #24494#36719#38597#40657
Font.Style = [] Font.Style = []
end end
object SHuangSeCu: TcxStyle object grid_black_yellow: TcxStyle
AssignedValues = [svColor, svFont, svTextColor] AssignedValues = [svColor, svFont]
Color = 4707838 Color = 550368255
Font.Charset = GB2312_CHARSET Font.Charset = ANSI_CHARSET
Font.Color = clBlack 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.Height = -16
Font.Name = #24494#36719#38597#40657 Font.Name = #24494#36719#38597#40657
Font.Style = [] Font.Style = []
TextColor = clRed
end end
end end
object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList

51
public10/design/U_BaseDataLink.pas
View File

@ -8,22 +8,7 @@ uses
cxLookAndFeels, dxSkinsForm, cxContainer, cxEdit, cxLookAndFeels, dxSkinsForm, cxContainer, cxEdit,
System.ImageList, Vcl.ImgList, Vcl.Controls, cxImageList, cxGraphics, cxStyles, System.ImageList, Vcl.ImgList, Vcl.Controls, cxImageList, cxGraphics, cxStyles,
dxSkinBasic, dxSkinWXI, dxLayoutLookAndFeels, dxSkinBasic, dxSkinWXI, dxLayoutLookAndFeels,
cxLocalization, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, cxLocalization, dxSkinHighContrast;
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;
type type
TBaseDataLink = class(TDataModule) TBaseDataLink = class(TDataModule)
@ -33,35 +18,34 @@ type
cxDefaultEditStyleController1: TcxDefaultEditStyleController; cxDefaultEditStyleController1: TcxDefaultEditStyleController;
cxImageList_bar: TcxImageList; cxImageList_bar: TcxImageList;
ThreeColorBase: TcxStyleRepository; 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; dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
dxLayoutSkinLookAndFeel1: TdxLayoutSkinLookAndFeel; dxLayoutSkinLookAndFeel1: TdxLayoutSkinLookAndFeel;
cxLocalizer1: TcxLocalizer; 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); procedure DataModuleCreate(Sender: TObject);
private private
{ Private declarations } { Private declarations }
public public
{ Public declarations }
end; end;
var var
BaseDataLink: TBaseDataLink; BaseDataLink: TBaseDataLink;
implementation implementation
uses
U_globalVar;
{%CLASSGROUP 'Vcl.Controls.TControl'} {%CLASSGROUP 'Vcl.Controls.TControl'}
{$R *.dfm} {$R *.dfm}
@ -70,8 +54,10 @@ procedure TBaseDataLink.DataModuleCreate(Sender: TObject);
var var
str :String; str :String;
pathStr:String; pathStr:String;
I: Integer;
begin begin
RootLookAndFeel.NativeStyle := False; RootLookAndFeel.NativeStyle := False;
gFontSize:=0;
// pathStr:=ExtractFilePath(Application.ExeName) + '\AllSkins.skinres'; // pathStr:=ExtractFilePath(Application.ExeName) + '\AllSkins.skinres';
// if FileExists(pathStr) then // if FileExists(pathStr) then
// begin // begin
@ -88,4 +74,5 @@ begin
end; end;
end; end;
end. end.

146
public10/design/U_FormLayOutDesign.pas
View File

@ -6,91 +6,58 @@ uses
Dialogs, Menus, DB, ADODB, cxLabel, BtnEdit, RTComboBox, cxTextEdit, cxMRUEdit, Dialogs, Menus, DB, ADODB, cxLabel, BtnEdit, RTComboBox, cxTextEdit, cxMRUEdit,
cxDBData, cxGridLevel, cxButtonEdit, cxCurrencyEdit, cxGridTableView, cxGrid, cxDBData, cxGridLevel, cxButtonEdit, cxCurrencyEdit, cxGridTableView, cxGrid,
cxGridCustomTableView, cxGraphics, cxCalendar, cxCheckBox, cxGridDBTableView, cxGridCustomTableView, cxGraphics, cxCalendar, cxCheckBox, cxGridDBTableView,
cxGridDBBandedTableView, cxStyles, cxPc, cxGroupBox, dxLayoutContainer, cxGridDBBandedTableView, cxStyles, cxPc, cxGroupBox, dxLayoutContainer, U_dataLink,
cxCustomData, cxClasses, cxTimeEdit, cxEdit, cxLookAndFeels, dxLayoutControl, cxCustomData, cxClasses, cxTimeEdit, cxEdit, cxLookAndFeels, dxLayoutControl,
cxLookAndFeelPainters, cxGridCustomView, Buttons, cxDropDownEdit,dxSkinsCore, dxSkinWXI,dxSkinsDefaultPainters; cxLookAndFeelPainters, cxGridCustomView, Buttons, cxDropDownEdit,dxSkinsCore, dxSkinWXI,dxSkinsDefaultPainters;
//function saveLayOut(dxLayoutControl1:TdxLayoutControl; ADOCmd: TADOQuery;mdesignCode:string):Boolean; //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; //function mustInCheck(dxLayoutControl1:TdxLayoutControl ;textFlag:string='*'):Boolean;
procedure SetFormOperRight(app:Tapplication;mParent: TwinControl; mRightCaptions: PWideChar)stdcall;external 'rtCommon.dll' Name 'SetFormOperRight_A'; 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 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 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 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'; 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 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 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 implementation
uses
U_globalVar;
//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;
// //
//function readLayOut(dxLayoutControl1:TdxLayoutControl; ADOTmp: TADOQuery;mdesignCode:string):Boolean; function readLayOut(dxLayoutControl1:TdxLayoutControl; ADOTmp: TADOQuery;mdesignCode:string):Boolean;
//var var
// LayoutStream: TMemoryStream; LayoutStream: TMemoryStream;
//begin begin
// LayoutStream := TMemoryStream.Create; LayoutStream := TMemoryStream.Create;
// try try
// dxLayoutControl1.BeginUpdate ; dxLayoutControl1.BeginUpdate ;
// with ADOTmp do with ADOTmp do
// begin begin
// close; close;
// sql.Clear; sql.Clear;
// sql.Add('select A.* '); sql.Add('select A.* ');
// sql.Add('from SD_Design_FormLayout A'); sql.Add('from SD_Design_FormLayout A');
// sql.Add('where A.designCode=' + quotedStr(mdesignCode)); sql.Add('where A.designCode=' + quotedStr(mdesignCode));
// open; open;
//
// if RecordCount>0 then if RecordCount>0 then
// begin begin
// TBlobField(FieldByName('fileContent')).SaveToStream(LayoutStream) ; TBlobField(FieldByName('fileContent')).SaveToStream(LayoutStream) ;
// LayoutStream.Seek(0,soFromBeginning); LayoutStream.Seek(0,soFromBeginning);
// dxLayoutControl1.LoadFromStream(LayoutStream); dxLayoutControl1.LoadFromStream(LayoutStream);
// end; end;
// Close; Close;
// end; end;
// finally finally
// dxLayoutControl1.EndUpdate(); dxLayoutControl1.EndUpdate();
// LayoutStream.Free; // ÊÍ·ÅÄÚ´æÁ÷ LayoutStream.Free; // ÊÍ·ÅÄÚ´æÁ÷
// end; end;
//end; end;
//±ØÐëÊäÈë¿ØÖÆ //±ØÐëÊäÈë¿ØÖÆ
// function mustInCheck(dxLayoutControl1:TdxLayoutControl ;textFlag:string='*'):Boolean; // function mustInCheck(dxLayoutControl1:TdxLayoutControl ;textFlag:string='*'):Boolean;
@ -156,4 +123,45 @@ implementation
// end; // end;
// result:=true; // result:=true;
// end; // 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. end.

74
public10/design/U_WindowFormdesign.pas
View File

@ -85,16 +85,22 @@ begin
if trim(mStyleCode) = '' then if trim(mStyleCode) = '' then
mStyleCode := '01'; mStyleCode := '01';
fFontSize:= getSystemFontSize(ADOTmp,PWideChar(mStyleCode)); if gFontSize>=9 then
if fFontSize < 9 then begin
fFontSize := 12; fFontSize:= gFontSize ;
end
else
begin
fFontSize:= getSystemFontSize(ADOTmp,PWideChar(mStyleCode));
if fFontSize < 9 then
fFontSize := 12;
gFontSize:=fFontSize;
end;
mForm.Font.Size := fFontSize; mForm.Font.Size := fFontSize;
// 窗口背景色 // 窗口背景色
// if mIsCustomBackColor then
// mForm.Color := clFormBack;
try
for i := 0 to mForm.ComponentCount - 1 do for i := 0 to mForm.ComponentCount - 1 do
begin begin
if not(mForm.Components[i] is Twincontrol) then if not(mForm.Components[i] is Twincontrol) then
@ -201,7 +207,7 @@ begin
if mForm.Components[i].Tag<>1000 then if mForm.Components[i].Tag<>1000 then
begin begin
TdxLayoutControl(mForm.Components[i]).OnDblClick := dxLayoutControl1DblClick ; 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; end;
continue; continue;
end; end;
@ -279,57 +285,6 @@ begin
TcxGrid(mForm.Components[i]).LookAndFeel.ScrollbarMode := sbmClassic; 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; TcxGridDBTableView(TcxGrid(mForm.Components[i]).Views[0]).dataController.filter.AutoDataSetFilter := true;
@ -352,6 +307,9 @@ begin
end; end;
end; end;
except
showMessage('´°¿Ú³õʼ»¯Òì³£!');
end;
end; end;

3
public10/design/U_globalVar.pas
View File

@ -3,8 +3,6 @@ interface
uses uses
Messages; Messages;
var var
gUserName:string; gUserName:string;
gUserId:string; gUserId:string;
@ -12,6 +10,7 @@ var
gDllFileCaption :string; gDllFileCaption :string;
gConString:string ; gConString:string ;
gIsCanDesign:Boolean; gIsCanDesign:Boolean;
gFontSize:integer;
const const
WM_CloseForm = WM_USER + 100 ; WM_CloseForm = WM_USER + 100 ;