Acro Multi-Language Class-Method for Devexpress VCL

最新推荐文章于 2020-09-11 17:25:16 发布
最新推荐文章于 2020-09-11 17:25:16 发布
阅读量4.2k 收藏
点赞数
分类专栏： delphi多语言套件 文章标签： integer string initialization class exception application
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/acrodelphi/article/details/1299531
版权

（ 不能附文件，请包涵，自己贴下成pas文件，加入专案使用或放到单独的包）

{==============================================================================}
{  Techamtion Application Service/Techamtion Transaction Server                }
{                                                                              }
{  Copyright (C), 2003-2008, Acroprise Inc.                            }
{  ALL RIGHTS RESERVED                                                         }
{                                                                              }
{  Author   : cc,Mustapha.Wang                                                 }
{  Package  : dxClassMethod70.dpk                                              }
{  Version  : 1.00                                                             }
{  Creation : 2004/05/06                                                       }
{  Revision :                                                                  }
{  Task     :                                                                  }
{    1.注册dx/cx元件的多语言替换函数;                                          }
{==============================================================================}
unit acroLibMLdxClassMethod;

interface

uses
  Classes, Graphics, Dialogs, Variants, AcroMultiClassMethod, dxTL, dxTLClms, cxTL;

  procedure TCustomdxTreeListControl_ReplaceNodes(ATable:IDataLocate; AComponent:TCustomdxTreeListControl; ACodePage,ASeqNo:String; AFont:TFont);
  procedure TcxCustomTreeListControl_ReplaceNodes(ATable:IDataLocate; AComponent:TcxCustomTreeListControl; ACodePage,ASeqNo:String; AFont:TFont);

implementation
uses
  dxBar, dxDockControl, dxStatusBar,
  dxNavBarCollns,
  dxOrgChr,
  dxPSCore,
  cxGrid, cxGridCustomTableView, cxGridBandedTableView,
  cxLabel, cxDropDownEdit, cxDBLookupComboBox,
  cxCheckBox, cxGroupBox, cxRadioGroup, cxPC,
  cxEdit, cxEditRepositoryItems, cxInplaceContainer,
  cxDBEditRepository, cxImageComboBox, cxCheckGroup,
  cxButtonEdit;

type
  TcxCustomCheckBox_Temp=class(TcxCustomCheckBox);
  TcxCustomGroupBox_Temp=class(TcxCustomGroupBox);
  TcxCustomRadioGroup_Temp=class(TcxCustomRadioGroup);
  TcxCustomTreeListControl_Temp=class(TcxCustomTreeListControl);
  TcxButtonGroupItem_Temp=class(TcxButtonGroupItem);

procedure Proc_TdxBarManager(ATable:IDataLocate; AComponent:TObject; ACodePage,ASeqNo:String; AFont:TFont);
var
  i: Integer;
begin
//TdxBarManager(AComponent).Font.Assign(AFont);                                 // Sometimes it raise Exception if Font.Size is different from the value set in design time
  for i:=0 to TdxBarManager(AComponent).Categories.Count-1 do
    TdxBarManager(AComponent).Categories[i] :=
      GetDisplayValue(ATable, TdxBarManager(AComponent).Categories[i], ACodePage, ASeqNo);
  for i:=0 to TdxBarManager(AComponent).Bars.Count-1 do
    TdxBarManager(AComponent).Bars[i].Caption :=
      GetDisplayValue(ATable, TdxBarManager(AComponent).Bars[i].Caption, ACodePage, ASeqNo);
end;

procedure Proc_TdxBarItem(ATable:IDataLocate; AComponent:TObject; ACodePage,ASeqNo:String; AFont:TFont);
begin
  TdxBarItem(AComponent).Hint :=                                                // Must replace Hint before Caption
    GetDisplayValue(ATable, TdxBarItem(AComponent).Hint, ACodePage, ASeqNo);    // Refer to ML20030125.txt
  TdxBarItem(AComponent).Caption :=
    GetDisplayValue(ATable, TdxBarItem(AComponent).Caption, ACodePage, ASeqNo);
end;

procedure Proc_TdxBarCustomCombo(ATable:IDataLocate; AComponent:TObject; ACodePage,ASeqNo:String; AFont:TFont);
var
  i, nItemIndex: Integer;
begin
  Proc_TdxBarItem(ATable, AComponent, ACodePage, ASeqNo, AFont);
  TdxBarCustomCombo(AComponent).Items.BeginUpdate;
  try
    nItemIndex := TdxBarCustomCombo(AComponent).ItemIndex;
    for i:=0 to TdxBarCustomCombo(AComponent).Items.Count-1 do
      TdxBarCustomCombo(AComponent).Items[i] :=
        GetDisplayValue(ATable, TdxBarCustomCombo(AComponent).Items[i], ACodePage, ASeqNo);
    TdxBarCustomCombo(AComponent).ItemIndex := nItemIndex;
  finally
    TdxBarCustomCombo(AComponent).Items.EndUpdate;
  end;
end;

procedure Proc_TdxCustomDockControl(ATable:IDataLocate; AComponent:TObject; ACodePage,ASeqNo:String; AFont:TFont);
begin
  TdxCustomDockControl(AComponent).Caption := GetDisplayValue(ATable, TdxCustomDockControl(AComponent).Caption, ACodePage, ASeqNo);
end;

procedure Proc_TdxStatusBar(ATable:IDataLocate; AComponent:TObject; ACodePage,ASeqNo:String; AFont:TFont);
var
  i: Integer;
begin
  for i:=0 to TdxStatusBar(AComponent).Panels.Count-1 do
    TdxStatusBar(AComponent).Panels[i].Text := GetDisplayValue(ATable, TdxStatusBar(AComponent).Panels[i].Text, ACodePage, ASeqNo);
end;

procedure Proc_TdxNavBarGroup(ATable:IDataLocate; AComponent:TObject; ACodePage,ASeqNo:String; AFont:TFont);
begin
  TdxNavBarGroup(AComponent).Caption:=
    GetDisplayValue(ATable, TdxNavBarGroup(AComponent).Caption, ACodePage, ASeqNo);
  TdxNavBarGroup(AComponent).Hint:=
    GetDisplayValue(ATable, TdxNavBarGroup(AComponent).Hint, ACodePage, ASeqNo);
end;

procedure Proc_TdxNavBarItem(ATable:IDataLocate; AComponent:TObject; ACodePage,ASeqNo:String; AFont:TFont);
begin
  TdxNavBarItem(AComponent).Caption:=
    GetDisplayValue(ATable,TdxNavBarItem(AComponent).Caption, ACodePage, ASeqNo);
  TdxNavBarItem(AComponent).Hint:=
    GetDisplayValue(ATable,TdxNavBarItem(AComponent).Hint, ACodePage, ASeqNo);
end;

procedure Proc_TdxCustomOrgChart(ATable:IDataLocate; AComponent:TObject; ACodePage,ASeqNo:String; AFont:TFont);
  procedure ReplaceNode(ANode:TdxOcNode);
  var
    i: Integer;
  begin
    ANode.Text := GetDisplayValue(ATable, ANode.Text, ACodePage, ASeqNo);
    for i:=0 to ANode.Count-1 do ReplaceNode(ANode.Items[i]);
  end;
var
  i: Integer;
begin
  TdxCustomOrgChart(AComponent).BeginUpdate;
  try
    for i:=0 to TdxCustomOrgChart(AComponent).RootNode.Count-1 do
      ReplaceNode(TdxCustomOrgChart(AComponent).Items[i]);
  finally
    TdxCustomOrgChart(AComponent).EndUpdate;
  end;
end;

procedure TCustomdxTreeListControl_ReplaceNodes(ATable:IDataLocate; AComponent:TCustomdxTreeListControl; ACodePage,ASeqNo:String; AFont:TFont);
  procedure ReplaceNode(ANode:TdxTreeListNode);
  var
    i: Integer;
  begin
    for i:=0 to TCustomdxTreeListControl(AComponent).ColumnCount-1 do
      if VarIsStr(ANode.Values[i]) then
        ANode.Values[i] := GetDisplayValue(ATable, ANode.Values[i], ACodePage, ASeqNo);
    for i:=0 to ANode.Count-1 do ReplaceNode(ANode.Items[i]);
  end;
var
  i: Integer;
begin
  TCustomdxTreeListControl(AComponent).BeginUpdate;
  try
    for i:=0 to TCustomdxTreeListControl(AComponent).Count-1 do
      ReplaceNode(TCustomdxTreeListControl(AComponent).Items[i]);
  finally
    TCustomdxTreeListControl(AComponent).EndUpdate;
  end;
end;

procedure Proc_TCustomdxTreeListControl(ATable:IDataLocate; AComponent:TObject; ACodePage,ASeqNo:String; AFont:TFont);
var
  i,j: Integer;
  AColumn: TdxTreeListPickColumn;
begin
  TCustomdxTreeListControl(AComponent).BeginUpdate;
  try
    for i:=0 to TCustomdxTreeListControl(AComponent).Bands.Count-1 do
    begin
      TCustomdxTreeListControl(AComponent).Bands[i].Caption :=
        GetDisplayValue(ATable, TCustomdxTreeListControl(AComponent).Bands[i].Caption, ACodePage, ASeqNo);
    end;
    for i:=0 to TCustomdxTreeListControl(AComponent).ColumnCount-1 do
    begin
      TCustomdxTreeListControl(AComponent).Columns[i].Caption :=
        GetDisplayValue(ATable, TCustomdxTreeListControl(AComponent).Columns[i].Caption, ACodePage, ASeqNo);
      if TCustomdxTreeListControl(AComponent).Columns[i] is TdxTreeListPickColumn then
      begin
        AColumn := TdxTreeListPickColumn(TCustomdxTreeListControl(AComponent).Columns[i]);
        for j:=0 to AColumn.Items.Count-1 do
          AColumn.Items[j] := GetDisplayValue(ATable, AColumn.Items[j], ACodePage, ASeqNo);
      end;
    end;
  finally
    TCustomdxTreeListControl(AComponent).EndUpdate;
  end;
end;

procedure Proc_TBasedxReportLink(ATable:IDataLocate; AComponent:TObject; ACodePage,ASeqNo:String; AFont:TFont);
  procedure TranslateStrings(AStrs:TStrings);
  var
    i: Integer;
  begin
    AStrs.BeginUpdate;
    try
      for i:=0 to AStrs.Count-1 do
        AStrs[i] := GetDisplayValue(ATable, AStrs[i], ACodePage, ASeqNo);
    finally
      AStrs.EndUpdate;
    end;
  end;
begin
  TBasedxReportLink(AComponent).ReportTitle.Text :=
    GetDisplayValue(ATable, TBasedxReportLink(AComponent).ReportTitle.Text, ACodePage, ASeqNo);
//这些东西必须也翻译,否则不能使用,如[Page # of Pages #]
  TranslateStrings(TBasedxReportLink(AComponent).PrinterPage.PageFooter.LeftTitle);
  TranslateStrings(TBasedxReportLink(AComponent).PrinterPage.PageFooter.CenterTitle);
  TranslateStrings(TBasedxReportLink(AComponent).PrinterPage.PageFooter.RightTitle);
  TranslateStrings(TBasedxReportLink(AComponent).PrinterPage.PageHeader.LeftTitle);
  TranslateStrings(TBasedxReportLink(AComponent).PrinterPage.PageHeader.CenterTitle);
  TranslateStrings(TBasedxReportLink(AComponent).PrinterPage.PageHeader.RightTitle);
end;

procedure Proc_TcxCustomGrid(ATable:IDataLocate; AComponent:TObject; ACodePage,ASeqNo:String; AFont:TFont);
var
  i,j: Integer;
  AV : TcxCustomGridTableView;
  BV : TcxGridBandedTableView;
begin
  TcxCustomGrid(AComponent).BeginUpdate;
  try
    for i:=0 to TcxCustomGrid(AComponent).Levels.Count-1 do
      TcxCustomGrid(AComponent).Levels[i].Caption :=
        GetDisplayValue(ATable, TcxCustomGrid(AComponent).Levels[i].Caption, ACodePage, ASeqNo);
    for i:=0 to TcxCustomGrid(AComponent).ViewCount-1 do
    begin
      if TcxCustomGrid(AComponent).Views[i] is TcxCustomGridTableView then
      begin
        AV := TcxCustomGridTableView(TcxCustomGrid(AComponent).Views[i]);
        for j:=0 to AV.ItemCount-1 do
          AV.Items[j].Caption := GetDisplayValue(ATable,AV.Items[j].Caption, ACodePage, ASeqNo);
      end;
      if TcxCustomGrid(AComponent).Views[i] is TcxGridBandedTableView then
      begin
        BV := TcxGridBandedTableView(TcxCustomGrid(AComponent).Views[i]);
        for j:=0 to BV.Bands.Count-1 do
          BV.Bands.Items[j].Caption := GetDisplayValue(ATable,BV.Bands.Items[j].Caption, ACodePage, ASeqNo);
      end;
    end;
  finally
    TcxCustomGrid(AComponent).EndUpdate;
  end;
end;

procedure Proc_TcxCustomLabel(ATable:IDataLocate; AComponent:TObject; ACodePage,ASeqNo:String; AFont:TFont);
begin
  TcxCustomLabel(AComponent).Caption := GetDisplayValue(ATable, TcxCustomLabel(AComponent).Caption, ACodePage, ASeqNo);
end;

procedure Proc_TcxCustomComboBox(ATable:IDataLocate; AComponent:TObject; ACodePage,ASeqNo:String; AFont:TFont);
var
  i, nItemIndex: Integer;
begin
  nItemIndex := TcxCustomComboBox(AComponent).ItemIndex;
  for i:=0 to TcxCustomComboBox(AComponent).Properties.Items.Count-1 do
    TcxCustomComboBox(AComponent).Properties.Items[i] := GetDisplayValue(ATable, TcxComboBox(AComponent).Properties.Items[i], ACodePage, ASeqNo);
  TcxCustomComboBox(AComponent).ItemIndex := nItemIndex;
end;

procedure Proc_TcxCustomLookupComboBox(ATable:IDataLocate; AComponent:TObject; ACodePage,ASeqNo:String; AFont:TFont);
var
  i: Integer;
begin
  for i:=0 to TcxCustomLookupComboBox(AComponent).Properties.ListColumns.Count-1 do
    TcxCustomLookupComboBox(AComponent).Properties.ListColumns[i].Caption :=
      GetDisplayValue(ATable, TcxCustomLookupComboBox(AComponent).Properties.ListColumns[i].Caption, ACodePage, ASeqNo);
end;

procedure Proc_TcxCustomCheckBox(ATable:IDataLocate; AComponent:TObject; ACodePage,ASeqNo:String; AFont:TFont);
begin
  TcxCustomCheckBox_Temp(AComponent).Caption := GetDisplayValue(ATable, TcxCustomCheckBox_Temp(AComponent).Caption, ACodePage, ASeqNo);
end;

procedure Proc_TcxCustomGroupBox(ATable:IDataLocate; AComponent:TObject; ACodePage,ASeqNo:String; AFont:TFont);
begin
  TcxCustomGroupBox_Temp(AComponent).Caption := GetDisplayValue(ATable,TcxCustomGroupBox_Temp(AComponent).Caption, ACodePage, ASeqNo);
end;

procedure Proc_TcxCustomRadioGroup(ATable:IDataLocate; AComponent:TObject; ACodePage,ASeqNo:String; AFont:TFont);
var
  i: Integer;
begin
  TcxCustomRadioGroup_Temp(AComponent).Caption :=
    GetDisplayValue(ATable, TcxCustomRadioGroup_Temp(AComponent).Caption, ACodePage, ASeqNo);
  for i:=0 to TcxCustomRadioGroup_Temp(AComponent).Properties.Items.Count-1 do
    TcxCustomRadioGroup_Temp(AComponent).Properties.Items[i].Caption :=
      GetDisplayValue(ATable, TcxCustomRadioGroup_Temp(AComponent).Properties.Items[i].Caption, ACodePage, ASeqNo);
end;

procedure Proc_TcxPageControl(ATable:IDataLocate; AComponent:TObject; ACodePage,ASeqNo:String; AFont:TFont);
var
  i:integer;
begin
  for i:=0 to TcxPageControl(AComponent).PageCount-1 do
    TcxPageControl(AComponent).Pages[i].Caption :=
      GetDisplayValue(ATable, TcxPageControl(AComponent).Pages[i].Caption, ACodePage, ASeqNo);
end;

//RepositoryItem的始祖
procedure Proc_TcxEditRepositoryItem(ATable:IDataLocate; AComponent:TObject; ACodePage,ASeqNo:String; AFont:TFont);
var
  vClassMethod: TClassMethod;
  vProperties : TcxCustomEditProperties;
begin
  vProperties := TcxEditRepositoryItem(AComponent).Properties;
  if vProperties=nil then exit;
  vClassMethod := AcroMultiClassMethod.AcroClassMethodStorage.GetNearstClassMethod(vProperties.ClassType);
  if vClassMethod<>nil then
    vClassMethod.MLMethod(ATable, vProperties, ACodePage, ASeqNo, AFont);
end;

//cxGrid的Column的始祖
procedure Proc_TcxCustomGridTableItem(ATable:IDataLocate; AComponent:TObject; ACodePage,ASeqNo:String; AFont:TFont);
var
  vClassMethod: TClassMethod;
  vProperties : TcxCustomEditProperties;
begin
  vProperties := TcxCustomGridTableItem(AComponent).Properties;
  if vProperties=nil then exit;
  vClassMethod := AcroMultiClassMethod.AcroClassMethodStorage.GetNearstClassMethod(vProperties.ClassType);
  if vClassMethod<>nil then
    vClassMethod.MLMethod(ATable, vProperties, ACodePage, ASeqNo, AFont);
end;

//cxTreeList的Column的始祖
procedure Proc_TcxCustomInplaceEditContainer(ATable:IDataLocate; AComponent:TObject; ACodePage,ASeqNo:String; AFont:TFont);
var
  vClassMethod: TClassMethod;
  vProperties : TcxCustomEditProperties;
begin
  vProperties := TcxCustomInplaceEditContainer(AComponent).Properties;
  if vProperties=nil then exit;
  vClassMethod := AcroMultiClassMethod.AcroClassMethodStorage.GetNearstClassMethod(vProperties.ClassType);
  if vClassMethod<>nil then
    vClassMethod.MLMethod(ATable, vProperties, ACodePage, ASeqNo, AFont);
end;

procedure Proc_TcxCustomEditProperties(ATable:IDataLocate; AComponent:TObject; ACodePage,ASeqNo:String; AFont:TFont);
var
  i: Integer;
begin
  TcxCustomEditProperties(AComponent).Buttons.BeginUpdate;
  try
    for i:=0 to TcxCustomEditProperties(AComponent).Buttons.Count-1 do
      TcxCustomEditProperties(AComponent).Buttons[i].Caption :=
        GetDisplayValue(ATable, TcxCustomEditProperties(AComponent).Buttons[i].Caption, ACodePage, ASeqNo);
  finally
    TcxCustomEditProperties(AComponent).Buttons.EndUpdate;
  end;
end;

procedure Proc_TcxLookupComboBoxProperties(ATable:IDataLocate; AComponent:TObject; ACodePage,ASeqNo:String; AFont:TFont);
var
  i: Integer;
begin
  TcxLookupComboBoxProperties(AComponent).ListColumns.BeginUpdate;
  try
    for i:=0 to TcxLookupComboBoxProperties(AComponent).ListColumns.Count-1 do
      TcxLookupComboBoxProperties(AComponent).ListColumns[i].Caption :=
        GetDisplayValue(ATable, TcxLookupComboBoxProperties(AComponent).ListColumns[i].Caption, ACodePage, ASeqNo);
  finally
    TcxLookupComboBoxProperties(AComponent).ListColumns.EndUpdate;
  end;
end;

procedure Proc_TcxImageComboBoxProperties(ATable:IDataLocate; AComponent:TObject; ACodePage,ASeqNo:String; AFont:TFont);
var
  i: Integer;
begin
  TcxImageComboBoxProperties(AComponent).Items.BeginUpdate;
  try
    for i:=0 to TcxImageComboBoxProperties(AComponent).Items.Count-1 do
      TcxImageComboBoxProperties(AComponent).Items[i].Description :=
        GetDisplayValue(ATable, TcxImageComboBoxProperties(AComponent).Items[i].Description, ACodePage, ASeqNo);
  finally
    TcxImageComboBoxProperties(AComponent).Items.EndUpdate;
  end;
end;

//RadioGroupProperties与CheckGroupProperties的祖先
procedure Proc_TcxCustomButtonGroupProperties(ATable:IDataLocate; AComponent:TObject; ACodePage,ASeqNo:String; AFont:TFont);
var
  i: Integer;
begin
  TcxCustomButtonGroupProperties(AComponent).Items.BeginUpdate;
  try
    for i:=0 to TcxCustomButtonGroupProperties(AComponent).Items.Count-1 do
    begin
      TcxButtonGroupItem_Temp(TcxCustomButtonGroupProperties(AComponent).Items[i]).Caption :=
        GetDisplayValue(ATable, TcxButtonGroupItem_Temp(TcxCustomButtonGroupProperties(AComponent).Items[i]).Caption, ACodePage, ASeqNo);
    end;
  finally
    TcxCustomButtonGroupProperties(AComponent).Items.EndUpdate;
  end;
end;

procedure TcxCustomTreeListControl_ReplaceNodes(ATable:IDataLocate; AComponent:TcxCustomTreeListControl; ACodePage,ASeqNo:String; AFont:TFont);
  procedure ReplaceNode(ANode:TcxTreeListNode);
  var
    i: Integer;
  begin
    for i:=0 to TcxCustomTreeListControl_Temp(AComponent).ColumnCount-1 do
      if VarIsStr(ANode.Values[i]) then
        ANode.Values[i] := GetDisplayValue(ATable, ANode.Values[i], ACodePage, ASeqNo);
    for i:=0 to ANode.Count-1 do ReplaceNode(ANode.Items[i]);
  end;
var
  i: Integer;
begin
  TcxCustomTreeListControl_Temp(AComponent).BeginUpdate;
  try
    for i:=0 to TcxCustomTreeListControl_Temp(AComponent).Count-1 do
      ReplaceNode(TcxCustomTreeListControl_Temp(AComponent).Items[i]);
  finally
    TcxCustomTreeListControl_Temp(AComponent).EndUpdate;
  end;
end;

procedure Proc_TcxCustomTreeListControl(ATable:IDataLocate; AComponent:TObject; ACodePage,ASeqNo:String; AFont:TFont);
var
  i: Integer;
begin
  TcxCustomTreeListControl_Temp(AComponent).BeginUpdate;
  try
    for i:=0 to TcxCustomTreeListControl_Temp(AComponent).Bands.Count-1 do
    begin
      TcxCustomTreeListControl_Temp(AComponent).Bands[i].Caption.Text :=
        GetDisplayValue(ATable, TcxCustomTreeListControl_Temp(AComponent).Bands[i].Caption.Text, ACodePage, ASeqNo);
    end;
    for i:=0 to TcxCustomTreeListControl_Temp(AComponent).ColumnCount-1 do
    begin
      TcxCustomTreeListControl_Temp(AComponent).Columns[i].Caption.Text :=
        GetDisplayValue(ATable, TcxCustomTreeListControl_Temp(AComponent).Columns[i].Caption.Text, ACodePage, ASeqNo);
    end;
  finally
    TcxCustomTreeListControl_Temp(AComponent).EndUpdate;
  end;
end;

initialization
//BarManager相关
  AcroClassMethodStorage.RegisterClassMethod(TdxBarManager       , Proc_TdxBarManager);
  AcroClassMethodStorage.RegisterClassMethod(TdxBarItem          , Proc_TdxBarItem);
  AcroClassMethodStorage.RegisterClassMethod(TdxBarCustomCombo   , Proc_TdxBarCustomCombo);
  AcroClassMethodStorage.RegisterClassMethod(TdxCustomDockControl, Proc_TdxCustomDockControl);
  AcroClassMethodStorage.RegisterClassMethod(TdxStatusBar        , Proc_TdxStatusBar);
//NavBar相关
  AcroClassMethodStorage.RegisterClassMethod(TdxNavBarGroup, Proc_TdxNavBarGroup);
  AcroClassMethodStorage.RegisterClassMethod(TdxNavBarItem , Proc_TdxNavBarItem);
//OrgChart
  AcroClassMethodStorage.RegisterClassMethod(TdxCustomOrgChart, Proc_TdxCustomOrgChart);
//
  AcroClassMethodStorage.RegisterClassMethod(TCustomdxTreeListControl, Proc_TCustomdxTreeListControl);
//报表
  AcroClassMethodStorage.RegisterClassMethod(TBasedxReportLink, Proc_TBasedxReportLink);

  AcroClassMethodStorage.RegisterClassMethod(TcxCustomGrid          , Proc_TcxCustomGrid);
  AcroClassMethodStorage.RegisterClassMethod(TcxCustomLabel         , Proc_TcxCustomLabel);
  AcroClassMethodStorage.RegisterClassMethod(TcxCustomComboBox      , Proc_TcxCustomComboBox);
  AcroClassMethodStorage.RegisterClassMethod(TcxCustomLookupComboBox, Proc_TcxCustomLookupComboBox);
  AcroClassMethodStorage.RegisterClassMethod(TcxCustomCheckBox      , Proc_TcxCustomCheckBox);
  AcroClassMethodStorage.RegisterClassMethod(TcxCustomGroupBox      , Proc_TcxCustomGroupBox);
  AcroClassMethodStorage.RegisterClassMethod(TcxCustomRadioGroup    , Proc_TcxCustomRadioGroup);
  AcroClassMethodStorage.RegisterClassMethod(TcxPageControl         , Proc_TcxPageControl);
//注册使用到EditRepository的元件
  AcroClassMethodStorage.RegisterClassMethod(TcxEditRepositoryItem         , Proc_TcxEditRepositoryItem);
  AcroClassMethodStorage.RegisterClassMethod(TcxCustomGridTableItem        , Proc_TcxCustomGridTableItem);
  AcroClassMethodStorage.RegisterClassMethod(TcxCustomInplaceEditContainer , Proc_TcxCustomInplaceEditContainer);
//注册各种EditRepository
  AcroClassMethodStorage.RegisterClassMethod(TcxCustomEditProperties       , Proc_TcxCustomEditProperties);
  AcroClassMethodStorage.RegisterClassMethod(TcxLookupComboBoxProperties   , Proc_TcxLookupComboBoxProperties);
  AcroClassMethodStorage.RegisterClassMethod(TcxImageComboBoxProperties    , Proc_TcxImageComboBoxProperties);
  AcroClassMethodStorage.RegisterClassMethod(TcxCustomButtonGroupProperties, Proc_TcxCustomButtonGroupProperties);

  AcroClassMethodStorage.RegisterClassMethod(TcxCustomTreeListControl, Proc_TcxCustomTreeListControl);
finalization
  AcroClassMethodStorage.UnRegisterClassMethod(TdxBarManager);
  AcroClassMethodStorage.UnRegisterClassMethod(TdxBarItem);
  AcroClassMethodStorage.UnRegisterClassMethod(TdxBarCustomCombo);
  AcroClassMethodStorage.UnRegisterClassMethod(TdxCustomDockControl);
  AcroClassMethodStorage.UnRegisterClassMethod(TdxStatusBar);

  AcroClassMethodStorage.UnRegisterClassMethod(TdxNavBarGroup);
  AcroClassMethodStorage.UnRegisterClassMethod(TdxNavBarItem);

  AcroClassMethodStorage.UnRegisterClassMethod(TdxCustomOrgChart);
  AcroClassMethodStorage.UnRegisterClassMethod(TCustomdxTreeListControl);
  AcroClassMethodStorage.UnRegisterClassMethod(TBasedxReportLink);

  AcroClassMethodStorage.UnRegisterClassMethod(TcxCustomGrid);
  AcroClassMethodStorage.UnRegisterClassMethod(TcxCustomLabel);
  AcroClassMethodStorage.UnRegisterClassMethod(TcxCustomComboBox);
  AcroClassMethodStorage.UnRegisterClassMethod(TcxCustomLookupComboBox);
  AcroClassMethodStorage.UnRegisterClassMethod(TcxCustomCheckBox);
  AcroClassMethodStorage.UnRegisterClassMethod(TcxCustomGroupBox);
  AcroClassMethodStorage.UnRegisterClassMethod(TcxCustomRadioGroup);
  AcroClassMethodStorage.UnRegisterClassMethod(TcxPageControl);
  AcroClassMethodStorage.UnRegisterClassMethod(TcxEditRepositoryItem);
  AcroClassMethodStorage.UnRegisterClassMethod(TcxCustomGridTableItem);
  AcroClassMethodStorage.UnRegisterClassMethod(TcxCustomInplaceEditContainer);
  AcroClassMethodStorage.UnRegisterClassMethod(TcxCustomEditProperties);
  AcroClassMethodStorage.UnRegisterClassMethod(TcxLookupComboBoxProperties);
  AcroClassMethodStorage.UnRegisterClassMethod(TcxImageComboBoxProperties);
  AcroClassMethodStorage.UnRegisterClassMethod(TcxCustomButtonGroupProperties);

  AcroClassMethodStorage.UnRegisterClassMethod(TcxCustomTreeListControl);
end.

火星牛
关注
专栏目录
Acro-Multi Language Suit for Delphi win32/64Delphi多语言套件
01-29
https://www.evget.com/product/1409 一组很方便实现多语言的组件。数据字典提供原语与多国文字的映射，多语言套件在程式运行时从文档，数据库，或 DFM 载入数据字典到 Hash 表，以提供最快的搜寻速度；最后根据要替换多语言的组件的类别，找到它的替换函数，替换掉该组件的各部分的文字。支持任意第三方组件，支持Unicode。 https://nodejs.blog.csdn.net/article/details/248218 https://nodejs.blog.csdn.net/article/details/107025402 包含：元件全部源码，支持delphi7到Delphi10.2；字典编辑工具。
Acro Multi-Language Suite for Win32发布4.0.7.2147版本
華華的博客
09-07 1988
下载：http://u.xunzai.com/fileview_135235.html  论坛：http://www.ya37.com 2009/9/5,                4.0.7.2147 -------------------------------------------------------------------------------------------
Acro Multi-Language Class-Method for FastReport
華華的博客
09-28 1409
unit multiClassMethod_FastReport; interface uses   Classes,Graphics,AcroMultiClassMethod; implementation uses   fr_Class; procedure Proc_TfrMemoView(ATable:IDataLocate;AComponent:TObject;   AC
Acro Multi-Language Suite for Win32发布6.0.4版本
華華的博客
06-29 534
delphi应该是好多人不用了，这套多语言元件还有部分旧客户在使用，为付费用户偶尔更新一下。有问题qq：24495612 2020/5/16, 6.0.4 1、修改acroMultiResource.pas，在64bit下用uniGUI开发isapi时，可能出现的av错误。 2、修改acroMultiLib.pas，增加函数：MultiHook(AProc:TGetDDAndLCIDProc)，即提供动态的DD和LCID，在uniGUI开发的后台， 需要根据前端browser设定的语言...
Acro Multi-Language多语言元件增加Unicode支持
華華的博客
11-10 1721
曾经有人问我，如果Delphi的VCL支持Unicode，你的多语言元件不是就没有用了吗？看起来是真的没有领会元件的精气神。Unicode不Unicode是涉及乱码的问题，而多语言元件是涉及自然语言的使用问题，就是大陆人要看简体，台湾人要看繁体，俄国人要看俄文，小日本要看日文，不可能给俄国人看中文，给小日本看俄文。 而一旦delphi（也许delphi2008）的VCL支持了Unicode，那更
Acro Multi-Language Suite for Delphi Win32 4.0.11.2511(1)
10-31
1、在IDataLocate接口增加DoBeforeReplaceComponent和DoAfterReplaceComponent函数，这样Class的ReplaceMethod就可以在替换 集合元件时触发事件，让用户有机会决定是否替换其中的子元件，如TdxBarManager 2、在...
DevExpressVCL-v19.1.2.rar
10-09
DevExpressVCL_v19.1.2源码，包含安装工具，不包含Demo,如果有需要可以到官网下载 Demo地址：https://www.devexpress.com/support/demos/#vcl
DxAutoInstaller-2.1.5For Devexpress VCL（DevExpressVCL15.2.2）
02-02
DevExpress VCL，全称为DevExpress Universal Subscription for VCL，是一款强大的Windows应用程序开发组件库，广泛应用于Delphi和C++Builder等开发环境中。它提供了丰富的UI控件、数据处理、报告生成等功能，极大地...
DevExpress VCL v21.1.7 For Delphi 11 Alexandria
01-28
安装DevExpress VCL Product for Delphi11 Alexandria-21.1.7.exe 文件后，开发者可以在Delphi 11的IDE中直接访问和使用这些组件。IDE中的Palette Manager将自动更新，展示DevExpress的控件，便于拖放至表单。此外，...
DevExpress VCL 20.2.4 for RAD Studio 10.4
05-08
不想麻烦或者想用源码自己编译请移步：https://download.csdn.net/download/pp_haitun/13114619，下载DevExpress VCL 19.1.2 源码和DxAutoInstaller2.3.1编译。 This version has no any dcu files so Built .exe ...
tcx-edit:用于编辑 TCX 文件的 Python 脚本
07-05
tcx 编辑 用于编辑 TCX 文件的 Python 脚本。 它是使用 TomTom 的 Multisport GPS Watch 生成的 tcx 文件编写的。 所以你的里程可能会有所不同。 用法 python tcx-edit.py [-h] tcx_file action arg1 [arg2 ... argN] 生成的文件将在同一路径中保存为<tcx>-edit.tcx 。 行动 split_at 在参数位置拆分 tcx 文件。 它的格式应该是HH:MM:SS （从文件的开头）。 例子： python tcx-edit.py tcx_file split_at 00:15:10 01:15:00 它将计算每个分段的一般圈数信息，例如总时间、距离、最大速度和平均/最大心率。 合并 合并圈数。 参数应采用n1-n2格式，其中n1是开始圈， n2是结束圈。 例子：
TdxOrgChart节点设置
05-08
TdxOrgChart节点设置
很想将Acro Multi-Language DD Component开源
華華的博客
12-05 1694
Multi-Language DD Component本来3年前作得很好了，那时候delphi还比较疯吧，可是一直没有拿出去赚点小钱，公司倒是买了人家不少的元件。现在 delphi已经下滑，好时光不多了，多语言的元件现在还是没有看到什么好的。好想把它拿出来开源。 如果开源，可以大家一起解决如下问题： 1、如何不重新Create Form来切换语言，因为从原语（英文）换到别的语言后，就不知道原语
动态设置cxgrid列的Properties
weixin_30647065的博客
07-23 327
myProperties1 := tcxcomboboxproperties.Create(nil); myProperties1.DropDownListStyle := lsEditFixedList; myProperties1.Items.Add(''并且''); myProperties1.Items.Add(''或者''); mycx...
dxRibon状态栏下，状态指示panel控制(TdxStatusBarStateIndicatorPanelStyle )
zxm8513CSDN博客
09-11 432
State Indicator Panel - How to change indicators colors and spacing at runtime Description: I am using a dxStatusBar and I have the PanelStyle of my panels set to "State Indicator Panel". How can I programmatically access the indicators' colors and spacin
cxGrid动态创建列+为某列内嵌下拉框
wszysystem的专栏
03-02 3236
一、动态创建列 方法1： var i: Integer; Column: TcxGridDBColumn; cxView: TcxGridDBTableView; begin cxView := Self.Levels[0].GridView as TcxGridDBTableView; if cxView.DataController.DataSource &lt...
devexpress vcl for delphi
最新发布
10-11
DevExpress VCL for Delphi 是一个功能强大的可视化组件库，专门为 Delphi 开发者设计。它提供了丰富的 UI 控件和工具，可以帮助开发者快速构建现代化的 Windows 桌面应用程序。 DevExpress VCL for Delphi 包括了...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

火星牛

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值