⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 aqdockingconst.pas

📁 AutomatedDocking Library 控件源代码修改 适合Delphi 2009 和C++ Builder 20009 使用。 修正汉字不能正确显示问题
💻 PAS
字号:
{*******************************************************************}
{                                                                   }
{       AutomatedDocking Library (Cross-Platform Edition)           }
{                                                                   }
{       Copyright (c) 1999-2008 AutomatedQA Corp.                   }
{       ALL RIGHTS RESERVED                                         }
{                                                                   }
{   The entire contents of this file is protected by U.S. and       }
{   International Copyright Laws. Unauthorized reproduction,        }
{   reverse-engineering, and distribution of all or any portion of  }
{   the code contained in this file is strictly prohibited and may  }
{   result in severe civil and criminal penalties and will be       }
{   prosecuted to the maximum extent possible under the law.        }
{                                                                   }
{   RESTRICTIONS                                                    }
{                                                                   }
{   THIS SOURCE CODE AND ALL RESULTING INTERMEDIATE FILES           }
{   (DCU, OBJ, DLL, ETC.) ARE CONFIDENTIAL AND PROPRIETARY TRADE    }
{   SECRETS OF AUTOMATEDQA CORP. THE REGISTERED DEVELOPER IS        }
{   LICENSED TO DISTRIBUTE THE AUTOMATEDDOCKING LIBRARY AND ALL     }
{   ACCOMPANYING VCL AND CLX CONTROLS AS PART OF AN EXECUTABLE      }
{   PROGRAM ONLY.                                                   }
{                                                                   }
{   THE SOURCE CODE CONTAINED WITHIN THIS FILE AND ALL RELATED      }
{   FILES OR ANY PORTION OF ITS CONTENTS SHALL AT NO TIME BE        }
{   COPIED, TRANSFERRED, SOLD, DISTRIBUTED, OR OTHERWISE MADE       }
{   AVAILABLE TO OTHER INDIVIDUALS WITHOUT WRITTEN CONSENT          }
{   AND PERMISSION FROM AUTOMATEDQA CORP.                           }
{                                                                   }
{   CONSULT THE END USER LICENSE AGREEMENT FOR INFORMATION ON       }
{   ADDITIONAL RESTRICTIONS.                                        }
{                                                                   }
{*******************************************************************}

unit aqDockingConst;

{$I aqDockingVer.inc}

interface

resourcestring
  // aqDockingBase 
  SEDockingControlInvalidChildIndex = 'Invalid index %d (%d items total)';
  SEDockingControlInvalidParent = 'TaqCustomDockingControl accepts only TaqCustomDockingSite and TCustomDockingContainer as a parent control';
  SEDockingControlInvalidParentItem = 'Attempt to use parent control in a child-related operation';
  SEDockingControlInvalidState = 'Invalid docking control state';
  SEDockingControlInvalidChild = 'Cannot insert "%s" as a child component';
  SEDockingControlUndeleteNotAllowed = 'Cannot undo deletion of docking control';
  SEDockingControlFloatingDelete = 'Docking Controls cannot be deleted in floating mode. Use the Docking Setup dialog to delete controls in this case.';

  SEDockingContainerAlignment = 'Invalid alignment "%s" specified for container "%s"';

  SEDockingSiteDockingNotAllowed = 'Docking is not allowed';

  SEDockingManagerInvalidStream = 'Invalid docking layout stream header';
  SEDockingManagerStreamVersion = 'Invalid docking layout stream version';
  SEDockingManagerStyleManagerNotAssigned = 'Style manager must be assigned';
  SEDockingManagerStyleNotExists = 'Style "%s" does not exist';
  SEDockingManagerInvalidControl = 'Invalid docking control';
  SEDockingManagerSameKeys = 'AutoDragKey and AutoDockKey properties must differ';
  SEDockingManagerInvalidKey = 'At least one mouse button modifier must be specified';

  SEDockingControlsInvalidOwner = 'Docking manager as owner required';
  SEDockingControlsNilContainer = 'Docking class container is nil';

  SEFloatingSiteInvalidOwner = 'TaqCustomFloatingForm as owner required';
{$IFDEF VCL}
  SEDockingManagerLoadRegistry = 'Error loading docking layout from the Regitry';
  SEDockingManagerSaveRegistry = 'Error saving docking layout to the Regitry';
{$ENDIF}

  // aqDocking
  SRenameCaption = 'Caption:';
  SDockingMenuItem = '&Docking';
  SAlignMenuItem = '&Align';
  SAlignMenuItemHint = 'Set alignment';
  SAutoHideMenuItem = 'Au&to Hide';
  SAutoHideMenuItemHint = 'Set auto hide';
  SRenameMenuItem = '&Rename...';
  SRenameMenuItemHint = 'Rename';

  SDockSiteDesigner = 'Docking Site Designer';

  SDockingControlStateHidden = 'Hidden';
  SDockingControlStateDocked = 'Docked';
  SDockingControlStateUndocked = 'Undocked';

  SDockingControlAlignmentClient = 'Client';
  SDockingControlAlignmentHClient = '&Client';
  SDockingControlAlignmentLeft = 'Left';
  SDockingControlAlignmentHLeft = '&Left';
  SDockingControlAlignmentRight = 'Right';
  SDockingControlAlignmentHRight = '&Right';
  SDockingControlAlignmentTop = 'Top';
  SDockingControlAlignmentHTop = '&Top';
  SDockingControlAlignmentBottom = 'Bottom';
  SDockingControlAlignmentHBottom = '&Bottom';

  SDockingButtonHide = 'Hide';
  SDockingButtonHHide = 'Hi&de';
  SDockingButtonUndock = 'Undock';
  SDockingButtonHUndock = '&Undock';
  SDockingButtonAutoHide = 'Auto Hide';
  SDockingButtonHAutoHide = '&Auto Hide';
  SDockingButtonNoAutoHide = 'Auto Hide';
  SDockingButtonHNoAutoHide = '&Auto Hide';
  SDockingButtonMaximize = 'Maximize';
  SDockingButtonHMaximize = 'Ma&ximize';
  SDockingButtonRestore = 'Restore';
  SDockingButtonHRestore = '&Restore';
  SDockingButtonCustom = 'Custom';
  SDockingButtonHCustom = '&Custom';
  SDockingButtonHelp = 'Help';
  SDockingButtonHHelp = '&Help';
  SDockingButtonMenu = 'Menu';
  SDockingButtonHMenu = '&Menu';

  SEDockingManagerBadOwner = 'TaqDockingManager requires TCustomForm as owner';
  SEDockingManagerMoreThanOne = 'Only single instance of TaqDockingManager on one form is allowed';
  SEDockingSiteBadOwner = 'TaqDockingSite can be placed on a form only';
  SEDockingSiteMoreThanOne = 'Only single instance of TaqDockingSite on one form is allowed';
  SEDockingSiteNoMultiple = 'TaqDockingSite: Cannot associate multiple DockSites with one DockingManager';
  SEDockingSiteNilOwner = 'Docking site''s owner cannot have a nil value';
  SEDockerEmptyRegion = 'Too small region to dock to (%s)';
  SENullDockingSiteDockToInvisibleControl = 'Docking to invisible control is not allowed';
  SEInsideContainerInvalidTabIndex = 'Invalid tab index %d for %d total tab count';

  SDockingSiteDesignerCaption = 'Click the tab to edit controls on a panel...';
  STabsMenuItem = 'T&abs';
  STabsMenuItemHint = 'Tab list';
  SAlignTopMenuItem = '&Top';
  SAlignTopMenuitemHint = 'Top orientation';
  SAlignBottomMenuItem = '&Bottom';
  SAlignBottomMenuItemHint = 'Bottom orientation';

  SDockingHint = 'Target: %s'#13#10'Position: %s';

  SDockingRegionLeft = 'Left';
  SDockingRegionRight = 'Right';
  SDockingRegionTop = 'Top';
  SDockingRegionBottom = 'Bottom';
  SDockingRegionInside = 'Inside';
  SDockingRegionNone = 'None';

  // Design Time
  SDockingControlVisibleChanging = 'Use the Docking Setup dialog to change the Visible property of docking controls.';
  // aqDockingUI
  SEInvalidMetricValue = 'Property value should be in the bounds %d..%d';

  // aqDockCustForm
  SENoDockSite = 'aqDockigSite should be associated with aqDockingManager to perform this operation';

  // aqDockingUtils
  SEDuplicatedClass = 'Class name %s duplicated';
  SEListNoItems = 'TIntegerList has no more items';
  SEWinControlRequired = 'TWinControl required';
  SEWidgetControlRequired = 'TWidgetControl required';
{$IFDEF DEMO}
  SDemoMessage = 'You are currently using a demo version of the AutomatedQA Docking Library. This version works only from within the IDE. '+
    'To order the fully functional version, please visit our web site www.automatedqa.com, or contact us at support@automatedqa.com.';
  SDemoCaption = 'AutomatedDocking Library';
{$ENDIF}

const
  // Product-specific constants.
  SProductName           = 'AutomatedDocking Library';
  SProductVersion        = '1.9';
  SAutomatedQAUrl        = 'http://www.automatedqa.com';
  SAutomatedQA           = 'AutomatedQA Corp.';

  dcidControl             = 0;
  dcidVerticalContainer   = 1;
  dcidHorizontalContainer = 2;
  dcidInsideContainer     = 3;

  dsidMainSite     = 0;
  dsidFloatingSite = 1;

  // Section and value names used in streaming operations.

  SPlacementInfoContainerId = 'PlacementInfo.ContainerId';
  SPlacementInfoOrder = 'PlacementInfo.Order';
  SPlacementInfoParentKey = 'PlacementInfo.ParentKey';
  SPlacementInfoTabOrientation = 'PlacementInfo.TabOrientation';
  SPlacementInfoAlignment = 'PlacementInfo.Alignment';
  SPlacementInfoHideSize = 'PlacementInfo.HideSize';

  SFormPlacementInfoMask = 'FormPlacementInfo.Mask';
  SFormPlacementInfoBounds = 'FormPlacementInfo.Bounds';
  SFormPlacementInfoWindowState = 'FormPlacementInfo.WindowState';
  SFormPlacementInfoConstraintsMaxHeight = 'FormPlacementInfo.Constraints.MaxHeight';
  SFormPlacementInfoConstraintsMaxWidth = 'FormPlacementInfo.Constraints.MaxWidth';
  SFormPlacementInfoConstraintsMinHeight = 'FormPlacementInfo.Constraints.MinHeight';
  SFormPlacementInfoConstraintsMinWidth = 'FormPlacementInfo.Constraints.MinWidth';
  SFormPlacementInfoActiveControl = 'FormPlacementInfo.ActiveControl';

  SInsideContainerCurrentTab = 'CurrentTab';
  SInsideContainerOrientation = 'Orientation';

  SDockingControlScreenRect  = 'ScreenRect';
  SDockingControlNormalSize  = 'NormalSize';
  SDockingControlPanelState  = 'PanelState';
  SDockingControlCaption     = 'Caption';
  SDockingControlAlignment   = 'Alignment';
  SDockingControlShowCaption = 'ShowCaption';
  SDockingControlAHOrientation = 'AHOrientation';
  SDockingControlAHContainer = 'AHContainer';
  SDockingControlAHSite      = 'AHSite';

  SDockingControlTypeId = 'TypeId';
  SDockingControlKey = 'Key';
  SDockingControlChildrenCount = 'ChildrenCount';

  SDockingSiteHasMainItem = 'HasMainItem';

  SDockingManagerDockingSiteTypeId = 'TypeId';
  SDockingManagerDockingSiteKey = 'Key';

  SDockingManagerHeader = 'Header';
  SDockingManagerVersion = 'Version';

  SFloatingSiteFormBounds = 'FormBounds';
  SFloatingSiteFormState = 'FormState';

  SPlacementInfoPosition = 'PlacementInfo.Position';
  SPlacementInfoSize = 'PlacementInfo.Size';
  SPlacementInfoState = 'PlacementInfo.State';
  SPlacementInfoFloatPosition = 'PlacementInfo.FloatPosition';
  SPlacementInfoFloatSize = 'PlacementInfo.FloatSize';
  SPlacementInfoFloatState = 'SPlacementInfoFloatState';

  SDockingHideZoneTabCount = 'Tabs';
  SDockingHideZoneTabState = 'State';
  SDockingHideZoneLeft = 'Left';
  SDockingHideZoneTop = 'Top';
  SDockingHideZoneRight = 'Right';
  SDockingHideZoneBottom = 'Bottom';

  SXMLTagDocking = 'Docking';
  SXMLTagControl = 'Control';
  SXMLTagControls = 'Controls';
  SXMLTagLayout = 'Layout';
  SXMLTagSite = 'Site';
  SXMLTagSites = 'Sites';
  SXMLAttrVersion = 'Version';

  SDefaultStyleName = 'Default';
  SStandardStyleName = 'Standard';
  SEnhancedStyleName = 'Enhanced';
  SMSVS2005StyleName = 'VS2005';
  SFlatStyleName = 'Flat';
{$IFDEF VCL}
  SThemedStyleName = 'Themed';
  SOfficeXPStyleName = 'OfficeXP';
{$ELSE}
// todo  SQtStyleName = 'QtStyle';
{$ENDIF}

implementation

end.

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -