91 lines
4.5 KiB
ObjectPascal
91 lines
4.5 KiB
ObjectPascal
|
|
{********************************************************************}
|
|
{ }
|
|
{ Developer Express Visual Component Library }
|
|
{ ExpressPageControl }
|
|
{ }
|
|
{ Copyright (c) 1998-2009 Developer Express Inc. }
|
|
{ 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 DEVELOPER EXPRESS INC. THE REGISTERED DEVELOPER IS }
|
|
{ LICENSED TO DISTRIBUTE THE EXPRESSPAGECONTROL AND ALL }
|
|
{ ACCOMPANYING VCL 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 EXPRESS WRITTEN CONSENT }
|
|
{ AND PERMISSION FROM DEVELOPER EXPRESS INC. }
|
|
{ }
|
|
{ CONSULT THE END USER LICENSE AGREEMENT FOR INFORMATION ON }
|
|
{ ADDITIONAL RESTRICTIONS. }
|
|
{ }
|
|
{********************************************************************}
|
|
|
|
unit cxPCConsts;
|
|
|
|
{$I cxVer.inc}
|
|
|
|
interface
|
|
|
|
resourcestring
|
|
scxPCImageListIndexError = 'Index (%d) must be between 0 and %d';
|
|
scxPCNoBaseImages = 'BaseImages is not assigned';
|
|
scxPCNoRegisteredStyles = 'There are no styles registered';
|
|
scxPCPageIndexError = '%d is an invalid PageIndex value. PageIndex must be ' +
|
|
'between 0 and %d';
|
|
scxPCPainterClassError = 'PCPainterClass is nil';
|
|
scxPCStandardStyleError = '%s is an unsupported standard style';
|
|
scxPCStyleNameError = '%s is an unregistered style name';
|
|
scxPCTabCountEqualsZero = 'Tabs.Count = 0';
|
|
scxPCTabIndexError = 'Tab''s index (%d) out of bounds';
|
|
scxPCTabVisibleIndexOutsOfBounds = 'TabVisibleIndex (%d) must be between 0 and %d';
|
|
scxPCVisibleTabListEmpty = 'There are no visible tabs';
|
|
scxPCAllowRotateError = '%s style does not support rotation of tabs';
|
|
|
|
implementation
|
|
|
|
uses
|
|
dxCore;
|
|
|
|
procedure AddExpressPageControlResourceStringNames(AProduct: TdxProductResourceStrings);
|
|
|
|
procedure InternalAdd(const AResourceStringName: string; AAdress: Pointer);
|
|
begin
|
|
AProduct.Add(AResourceStringName, AAdress);
|
|
end;
|
|
|
|
begin
|
|
InternalAdd('scxPCImageListIndexError', @scxPCImageListIndexError);
|
|
InternalAdd('scxPCNoBaseImages', @scxPCNoBaseImages);
|
|
InternalAdd('scxPCNoRegisteredStyles', @scxPCNoRegisteredStyles);
|
|
InternalAdd('scxPCPageIndexError', @scxPCPageIndexError);
|
|
InternalAdd('scxPCPainterClassError', @scxPCPainterClassError);
|
|
InternalAdd('scxPCStandardStyleError', @scxPCStandardStyleError);
|
|
InternalAdd('scxPCStyleNameError', @scxPCStyleNameError);
|
|
InternalAdd('scxPCTabCountEqualsZero', @scxPCTabCountEqualsZero);
|
|
InternalAdd('scxPCTabIndexError', @scxPCTabIndexError);
|
|
InternalAdd('scxPCTabVisibleIndexOutsOfBounds', @scxPCTabVisibleIndexOutsOfBounds);
|
|
InternalAdd('scxPCVisibleTabListEmpty', @scxPCVisibleTabListEmpty);
|
|
InternalAdd('scxPCAllowRotateError', @scxPCAllowRotateError);
|
|
end;
|
|
|
|
initialization
|
|
dxResourceStringsRepository.RegisterProduct('ExpressPageControl', @AddExpressPageControlResourceStringNames);
|
|
|
|
finalization
|
|
dxResourceStringsRepository.UnRegisterProduct('ExpressPageControl');
|
|
|
|
end.
|