240820
This commit is contained in:
parent
b5fbedfd26
commit
d91fa7dbc1
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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.
|
||||
|
|
|
|||
|
|
@ -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.
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -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 ;
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user