treeconst.pas

第三方控件：PaintGrid.pas 网格型仪表控件源文件 Mymeter.pas 圆型仪表控件源文件 Project1是这两个控件的使用范例。 该

{**********************************************}
{   TTree Component Library.                   }
{   String constants.                          }
{   Copyright (c) 1998-2005 by David Berneda   }
{**********************************************}
{$I TeeDefs.inc}
unit TreeConst;

interface

var
  TreeMsg_Browse,
  TreeMsg_Clear,
  TeeMsg_TreeCopyright,
  TeeMsg_TreePrintPreview,
  TeeMsg_TreeExportChart,
  TeeMsg_TreeAbout,
  TeeMsg_TreeLoad,
  TeeMsg_TreeFiles,
  TeeMsg_TreeEdit,
  TeeMsg_TreeSureDelete,
  TreeMsg_Connection,
  TreeMsg_CannotSetShape,
  TreeMsg_Editing,

  TreeMsg_Child,
  TreeMsg_Root,
  TreeMsg_ExportTree,
  TreeMsg_SureToNew,
  TreeMsg_SearchNode,
  TreeMsg_NodeText,
  TreeMsg_ClickTwoShapes,
  TreeMsg_About,
  TreeMsg_EditingMode,

  { DBTree }
  TreeMsg_DBCodeNeeded,
  TreeMsg_DBTextNeeded,
  TreeMsg_SureToCancel,
  TreeMsg_MasterNeed,
  TreeMsg_DetailNeed,
  TreeMsg_GroupField,
  TreeMsg_ParentField,
  TreeMsg_MasterFields,
  TreeMsg_TextFields,
  TreeMsg_MasterDataset,
  TreeMsg_DataSet,

  TreeMsg_DBFieldNotFound,
  TeeMsg_TreeDBRefresh,
  TeeMsg_TreeDBWizard,
  TreeMsg_OneTextField,
  TreeMsg_OneDetailField,
  TreeMsg_OneParentField,
  TreeMsg_Finish,
  TreeMsg_Next,
  TreeMsg_TreeEditor,

  { Shape tabs }
  TeeTree_tabFlow,
  TeeTree_tabOther,
  TeeTree_tabElectric,
  TeeTree_tabUML,
  TeeTree_tabTransit,

  TreeMsg_EditorTips,

  TreeMsg_Caps,
  TreeMsg_Num,
  TreeMsg_SCR,

  TreeMsg_ImportTextFile,
  TreeMsg_Point,
  TreeMsg_TreeNil

   : String;

Const
  TeeMsg_TeeTreePalette  = 'TeeTree';
  TeeTree_MajorVersion   = '2';
  TeeTree_MinorVersion   = '.0';
  TreeMsg_TeeTree        = 'TeeTree v'+TeeTree_MajorVersion+TeeTree_MinorVersion;
  TreeMsg_CompNamePrefix = 'TreeShape';
  TreeMsg_TeeExtension   = 'ttr';
  TreeMsg_SteemaWWW      = 'http://www.steema.com';
  TeeTreeKey             = '\Software\Steema Software\TeeTree Office';
  TreeMsg_Tree1          = 'Tree1';
  TeeMsg_Modified        = 'Modified';

Procedure TreeSetEnglishConstants;
Procedure TreeSetEnglish;

Procedure TreeSetLanguage(English:Boolean);
Procedure TreeLanguageHook;

Procedure TreeSetBrazil;
Procedure TreeSetCatalan;
Procedure TreeSetChinese;
Procedure TreeSetChineseSimp;
Procedure TreeSetDanish;
Procedure TreeSetDutch;
Procedure TreeSetFrench;
Procedure TreeSetGalician;
Procedure TreeSetGerman;
Procedure TreeSetHungarian;
Procedure TreeSetItalian;
Procedure TreeSetJapanese;
Procedure TreeSetNorwegian;
Procedure TreeSetPolish;
Procedure TreeSetPortuguese;
Procedure TreeSetRussian;
Procedure TreeSetSlovene;
Procedure TreeSetSpanish;
Procedure TreeSetSwedish;
Procedure TreeSetTurkish;

implementation

Uses TeeCatalan, TeeSpanish, TeeGerman, TeeFrench, TeeBrazil, TeeDanish,
     TeeDutch, TeeSwedish, TeeChinese, TeeChineseSimp, TeePortuguese,
     TeeHungarian, TeeRussian, TeeItalian, TeeNorwegian, TeeJapanese,
     TeePolish, TeeSlovene, TeeTurkish, TeeGalician,
     TeeConst, TeeOfficeConstants, TeeTranslate;

Procedure TreeSetLanguage(English:Boolean);
begin
  Case TeeLanguageRegistry of
    1: TreeSetBrazil;
    2: TreeSetCatalan;
    3: TreeSetChineseSimp;
    4: TreeSetChinese;
    5: TreeSetDanish;
    6: TreeSetDutch;
    7: TreeSetFrench;
    8: TreeSetGerman;
    9: TreeSetItalian;
   10: TreeSetPortuguese;
   11: TreeSetRussian;
   12: TreeSetSpanish;
   13: TreeSetSwedish;
   14: TreeSetNorwegian;
   15: TreeSetJapanese;
   16: TreeSetPolish;
   17: TreeSetSlovene;
   18: TreeSetTurkish;
   19: TreeSetHungarian;
   20: TreeSetGalician;
  else
    if English then TreeSetEnglish;
  end;
end;

Procedure TreeLanguageHook;
begin
  if TeeAskLanguage then TreeSetLanguage(True);
end;

Procedure TreeSetEnglishConstants;
begin
  TreeMsg_Browse         := '&Browse Back Image...';
  TreeMsg_Clear          := 'C&lear Back Image';

  TeeMsg_TreeCopyright    := '