You've already forked lazarus-ccr
jvcllaz: Add folder "design" forgotten in previous commit
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5393 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
711
components/jvcllaz/design/JvDsgnConsts.pas
Normal file
711
components/jvcllaz/design/JvDsgnConsts.pas
Normal file
@ -0,0 +1,711 @@
|
|||||||
|
{-----------------------------------------------------------------------------
|
||||||
|
The contents of this file are subject to the Mozilla Public License
|
||||||
|
Version 1.1 (the "License"); you may not use this file except in compliance
|
||||||
|
with the License. You may obtain a copy of the License at
|
||||||
|
http://www.mozilla.org/MPL/MPL-1.1.html
|
||||||
|
|
||||||
|
Software distributed under the License is distributed on an "AS IS" basis,
|
||||||
|
WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See the License for
|
||||||
|
the specific language governing rights and limitations under the License.
|
||||||
|
|
||||||
|
The Original Code is: JvDsgnConsts.pas, released on 2003-6-27.
|
||||||
|
|
||||||
|
The Initial Developers of the Original Code is Marcel Bestebroer
|
||||||
|
Portions created by Marcel Bestebroer are Copyright (C) 2002 - 2003 Project JEDI
|
||||||
|
All Rights Reserved.
|
||||||
|
|
||||||
|
Contributor(s): -
|
||||||
|
|
||||||
|
You may retrieve the latest version of this file at the Project JEDI's JVCL home page,
|
||||||
|
located at http://jvcl.delphi-jedi.org
|
||||||
|
|
||||||
|
Known Issues:
|
||||||
|
-----------------------------------------------------------------------------}
|
||||||
|
// $Id$
|
||||||
|
|
||||||
|
unit JvDsgnConsts;
|
||||||
|
|
||||||
|
//{.$I jvcl.inc}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
{uses
|
||||||
|
JvConsts;}
|
||||||
|
|
||||||
|
//=== strings used by several editors ========================================
|
||||||
|
resourcestring
|
||||||
|
RsPreviewEllipsis = 'Preview...';
|
||||||
|
RsDesignerEllipsis = 'Designer...';
|
||||||
|
RsItemsEditorEllipsis = 'Items Editor...';
|
||||||
|
RsNone = '(none)';
|
||||||
|
RsHelp = 'Help';
|
||||||
|
RsConfirm = 'Confirm?';
|
||||||
|
{$IFDEF MSWINDOWS}
|
||||||
|
RsAllFilesFilter = 'All Files (*.*)|*.*';
|
||||||
|
{$ENDIF MSWINDOWS}
|
||||||
|
{$IFDEF UNIX}
|
||||||
|
RsAllFilesFilter = 'All Files (*)|*';
|
||||||
|
{$ENDIF UNIX}
|
||||||
|
RsNextPage = 'Next Page';
|
||||||
|
RsPreviousPage = 'Previous Page';
|
||||||
|
RsJVCLActionsCategory = 'JVCL';
|
||||||
|
RsJVCLEditActionsCategory = 'JVCL Edit';
|
||||||
|
RsJVCLControlActionsCategory = 'JVCL Control';
|
||||||
|
RsJVCLDBActionsCategory = 'JVCL DB';
|
||||||
|
RsPropertyEditors = '\Property Editors';
|
||||||
|
RsJvEditorString = 'Click to edit...';
|
||||||
|
RsSystemColors = 'System colors';
|
||||||
|
RsStandardColors = 'Standard colors';
|
||||||
|
|
||||||
|
RsEInvalidPropertyValue = 'Invalid property value';
|
||||||
|
|
||||||
|
//=== JVCL IDE palettes ======================================================
|
||||||
|
resourcestring
|
||||||
|
RsPaletteSystem = 'Jv System';
|
||||||
|
RsPaletteDialog = 'Jv Dialogs';
|
||||||
|
RsPaletteButton = 'Jv Buttons';
|
||||||
|
RsPaletteEdit = 'Jv Edits';
|
||||||
|
RsPaletteCustom = 'Jv Custom';
|
||||||
|
RsPaletteBarPanel = 'Jv Bars, Panels';
|
||||||
|
RsPaletteLabel = 'Jv Labels';
|
||||||
|
RsPaletteListComboTree = 'Jv Lists, Combos, Trees';
|
||||||
|
RsPaletteScrollerTracker = 'Jv Scrollers';
|
||||||
|
RsPaletteSliderSplitter = 'Jv Trackers, Sliders, Splitters';
|
||||||
|
RsPaletteImageAnimator = 'Jv Images, Animators';
|
||||||
|
RsPaletteVisual = 'Jv Visual';
|
||||||
|
RsPaletteNonVisual = 'Jv Non-Visual';
|
||||||
|
RsPaletteThreading = 'Jv Threading';
|
||||||
|
RsPalettePersistence = 'Jv Persistence';
|
||||||
|
RsPaletteAppForm = 'Jv Application, Forms';
|
||||||
|
RsPaletteInterNetWork = 'Jv Internet, Network';
|
||||||
|
RsPaletteEncryptCompress = 'Jv Encrypt, Compress';
|
||||||
|
RsPaletteDBVisual = 'Jv Data Controls';
|
||||||
|
RsPaletteDBNonVisual = 'Jv Data Access';
|
||||||
|
RsPaletteHMIComponents = 'Jv HMI';
|
||||||
|
RsPaletteBDE = 'Jv BDE';
|
||||||
|
RsPalettePrintPreview = 'Jv Print Preview';
|
||||||
|
RsPaletteInterpreter = 'Jv Interpreter';
|
||||||
|
RsPaletteGlobusComponents1 = 'JVCL Globus 1';
|
||||||
|
RsPaletteGlobusComponents2 = 'JVCL Globus 2';
|
||||||
|
RsPaletteValidators = 'Jv Validators';
|
||||||
|
RsPaletteEDI = 'Jv EDI';
|
||||||
|
RsPaletteJans = 'Jv Jans';
|
||||||
|
RsPaletteJansSim = 'Jv Jans SIM';
|
||||||
|
RsPaletteJansCsv = 'Jv Jans CSV';
|
||||||
|
RsPalettePlugin = 'Jv Plugin';
|
||||||
|
RsPaletteNavPane = 'Jv NavPane';
|
||||||
|
RsPaletteRuntimeDesign = 'Jv Runtime Design';
|
||||||
|
RsPaletteMTThreads = 'Jv Threading';
|
||||||
|
RsPaletteTimeFramework = 'Jv TimeFrameWork';
|
||||||
|
RsPaletteWizard = 'Jv Wizard';
|
||||||
|
RsPaletteXPControls = 'Jv XP Controls';
|
||||||
|
RsPaletteDocking = 'Jv Docking';
|
||||||
|
RsPaletteDotNet = 'Jv DotNet';
|
||||||
|
RsPaletteDotNetDB = 'Jv DotNet DB';
|
||||||
|
|
||||||
|
//=== JvAnimatedEditor.pas ===================================================
|
||||||
|
resourcestring
|
||||||
|
RsEditPicture = 'Edit picture...';
|
||||||
|
RsLoadAniCursor = 'Load from ANI...';
|
||||||
|
|
||||||
|
//=== JvAVICaptureEditors.pas ================================================
|
||||||
|
resourcestring
|
||||||
|
RsGetValueFmt = '%d - %s';
|
||||||
|
RsDisconnected = 'Disconnected';
|
||||||
|
RsEdIsNotWithinTheValidRangeOfdd = '%d is not within the valid range of %d..%d';
|
||||||
|
|
||||||
|
//=== JvBandObjectDLLWizard.pas ==============================================
|
||||||
|
resourcestring
|
||||||
|
RsCreatesABandObjectDLLProject = 'Creates a Band Object DLL Project.';
|
||||||
|
RsBandObjectDLLWizard = 'Band Object DLL Wizard';
|
||||||
|
RsBandObjectDLLWizardIDString = 'JVCL.JvBandObjectDLLWizard';
|
||||||
|
|
||||||
|
//=== JvBandObjectDLLWizardForm.pas ==========================================
|
||||||
|
resourcestring
|
||||||
|
RsBandHelpCaptionFmt = '%s %s';
|
||||||
|
RsEBandNameHasToBeAValidIdentifier = 'Band name has to be a valid identifier!';
|
||||||
|
RsEPleaseEnterBandDescription = 'Please enter band description!';
|
||||||
|
RsHelpText = sLineBreak +
|
||||||
|
'Band Name' + sLineBreak +
|
||||||
|
'Enter a band name, e.g. MyBand.' + sLineBreak +
|
||||||
|
'This will be the class name of the band object.' + sLineBreak +
|
||||||
|
'No need to prefix it with ''T'' as it will be generated.' + sLineBreak + sLineBreak +
|
||||||
|
'Description' + sLineBreak +
|
||||||
|
'Enter a menuitem text, e.g. &My Band' + sLineBreak +
|
||||||
|
'This text will appear in the Explorer Bar or Toolbars menu.' + sLineBreak + sLineBreak +
|
||||||
|
'Band Type' + sLineBreak +
|
||||||
|
'Select the type of band object to create.';
|
||||||
|
|
||||||
|
//=== JvBaseDsgnForm.pas =====================================================
|
||||||
|
resourcestring
|
||||||
|
RsBaseDesignFormName = 'JEDI-VCL Editor';
|
||||||
|
|
||||||
|
//=== JvChangeNotifyEditor.pas ===============================================
|
||||||
|
resourcestring
|
||||||
|
RsNotificationsEllipsis = 'Notifications...';
|
||||||
|
|
||||||
|
//=== JvCheckedItemsForm.pas =================================================
|
||||||
|
resourcestring
|
||||||
|
RsItemEditor = 'Item editor';
|
||||||
|
RsEnabled = 'Enabled';
|
||||||
|
|
||||||
|
//=== JvColorProviderAddDialogForm.pas =======================================
|
||||||
|
resourcestring
|
||||||
|
RsCustomColors = 'Custom colors';
|
||||||
|
|
||||||
|
//=== JvColorProviderDesignerForm.pas ========================================
|
||||||
|
resourcestring
|
||||||
|
RsCustomColorsEllipsis = 'Custom colors...';
|
||||||
|
RsColorMsg = 'Copy standard and system colors from the default context?';
|
||||||
|
RsDesigning = 'Designing %s';
|
||||||
|
|
||||||
|
//=== JvColorProviderEditors.pas =============================================
|
||||||
|
resourcestring
|
||||||
|
RsEMappingDoesNotExistForThisColorProv = 'Mapping does not exist for this color provider.';
|
||||||
|
|
||||||
|
//=== JvColorProviderEditors.pas =============================================
|
||||||
|
resourcestring
|
||||||
|
RsENoSplashServices = 'Unable to get Borland Splash Services';
|
||||||
|
RsENoAboutServices = 'Unable to get Borland About Services';
|
||||||
|
|
||||||
|
RsAboutDialogTitle = 'JEDI Visual Component Library';
|
||||||
|
RsAboutCopyright = 'Copyright the JVCL development team';
|
||||||
|
RsAboutTitle = 'JEDI Visual Component Library';
|
||||||
|
RsAboutDescription = 'JEDI Visual Component Library http://jvcl.delphi-jedi.org' + sLineBreak +
|
||||||
|
'The JVCL is a member of the JEDI Project http://www.delphi-jedi.org' + sLineBreak +
|
||||||
|
'Covered under the Mozilla Public License v1.1 (MPL 1.1)' + sLineBreak +
|
||||||
|
'License available at http://www.mozilla.org/MPL/MPL-1.1.html';
|
||||||
|
RsAboutLicenceStatus = 'MPL 1.1';
|
||||||
|
|
||||||
|
//=== JvCsvDataEditor.pas ====================================================
|
||||||
|
resourcestring
|
||||||
|
RsJvCsvDataSetSelectCSVFileToOpen = 'JvCsvDataSet - Select CSV File to Open';
|
||||||
|
RsCsvFilter = 'CSV files (*.csv)|*.csv';
|
||||||
|
|
||||||
|
//=== JvCsvDataForm.pas ======================================================
|
||||||
|
resourcestring
|
||||||
|
RsMustTypeAValidFieldNameAndSelectAFi =
|
||||||
|
'Must type a valid field name and select a field type. ' +
|
||||||
|
'Field name must start with a letter A-Z and consist of letters and numbers only. ' +
|
||||||
|
'All field names will be converted to uppercase before being used.';
|
||||||
|
RsAddFailed = 'Add Failed';
|
||||||
|
RsFieldNameIsNotAValidIdentifier = '%s: Field name is not a valid identifier';
|
||||||
|
RsCantAddTwoFieldsWithTheSameNameSele =
|
||||||
|
'Can''t add two fields with the same name! Select existing item and click ''Modify'' button to change its properties.';
|
||||||
|
RsUpdateFailed = 'Update Failed';
|
||||||
|
RsNoItemIsSelectedInTheFieldsListYouC = 'No item is selected in the fields list. You can''t update nothing.';
|
||||||
|
RsModifyingTheCurrentlySelectedItemWo =
|
||||||
|
'Modifying the currently selected item would create two items with the same name.';
|
||||||
|
RsYouHaventActuallyChangedAnythingIfY = 'You haven''t actually changed anything. If you ' +
|
||||||
|
'made changes and didn''t click Modify, the changes have ' +
|
||||||
|
'not been made yet. (Click no, to go back.) ' + sLineBreak +
|
||||||
|
'Are you sure you want to close the CSV Fields editor? ';
|
||||||
|
|
||||||
|
//=== JvDataConsumerContextSelectForm.pas ====================================
|
||||||
|
resourcestring
|
||||||
|
RsEConsumerDoesNotSupportContextSelect = 'Consumer does not support context selection.';
|
||||||
|
RsEIJvDataConsumerProviderIsNotSupported = 'IJvDataConsumerProvider is not supported by the specified consumer.';
|
||||||
|
|
||||||
|
//=== JvDataConsumerItemSelectForm.pas =======================================
|
||||||
|
resourcestring
|
||||||
|
RsDataProviderItemSelector = 'DataProvider Item Selector';
|
||||||
|
|
||||||
|
//=== JvDataContextManagerForm.pas ===========================================
|
||||||
|
resourcestring
|
||||||
|
RsDataProviderContextManager = 'DataProvider Context Manager';
|
||||||
|
|
||||||
|
//=== JvDataEmbeddedEditor.pas ===============================================
|
||||||
|
resourcestring
|
||||||
|
RsLoadFromFileEllipsis = 'Load From File...';
|
||||||
|
RsClearEmbeddedData = 'Clear data';
|
||||||
|
RsViewEmbeddedDataAsText = 'View As Text...';
|
||||||
|
|
||||||
|
//=== JvDataProviderDesignerForm.pas =========================================
|
||||||
|
resourcestring
|
||||||
|
RsDefault = '<Default>';
|
||||||
|
RsDataProviderDesigner = 'DataProvider Designer';
|
||||||
|
RsEInternalErrorUnableToRetrieveContext = 'Internal error: unable to retrieve context list';
|
||||||
|
|
||||||
|
//=== JvDataProviderEditors.pas ==============================================
|
||||||
|
resourcestring
|
||||||
|
RsESpecifiedProviderIsNotATComponentDe = 'Specified provider is not a TComponent descendant';
|
||||||
|
RsTreeDesignerEllipsis = 'Tree designer...';
|
||||||
|
RsContextManagerEllipsis = 'Context manager...';
|
||||||
|
RsInvalidVerbd = 'Invalid verb#: %d';
|
||||||
|
|
||||||
|
//=== JvDataProviderItemDesign.pas ===========================================
|
||||||
|
resourcestring
|
||||||
|
RsUnknown = '<unknown>';
|
||||||
|
RsNoItem = '<no item>';
|
||||||
|
|
||||||
|
//=== JvDateTimeForm.pas =====================================================
|
||||||
|
resourcestring
|
||||||
|
RsSelectDate = 'Select Date';
|
||||||
|
RsSelectTime = 'Select Time';
|
||||||
|
RsSelectDateTime = 'Select Date and Time';
|
||||||
|
RsMaxInt = 'MaxInt';
|
||||||
|
RsMinInt = 'MinInt';
|
||||||
|
RsMaxLong = 'MaxLong';
|
||||||
|
RsMinLong = 'MinLong';
|
||||||
|
RsMaxShort = 'MaxShort';
|
||||||
|
RsMinShort = 'MinShort';
|
||||||
|
RsMaxWord = 'MaxWord';
|
||||||
|
RsFileName = '(Filename)';
|
||||||
|
RsDirectory = '(Directory)';
|
||||||
|
|
||||||
|
//=== JvDBGridProp.pas =======================================================
|
||||||
|
resourcestring
|
||||||
|
RsEJvDBGridDataSourceNeeded = 'DataSource property must be set before selecting controls.';
|
||||||
|
RsEJvDBGridDataSetNeeded = 'A dataset must be linked to the grid datasource before selecting controls.';
|
||||||
|
RsJvDBGridAlreadyAdded = 'The field "%s" has already been added.';
|
||||||
|
|
||||||
|
//=== JvDBMemDatasetEditor.pas ===============================================
|
||||||
|
resourcestring
|
||||||
|
RsBorrowStructure = 'Borrow structure...';
|
||||||
|
|
||||||
|
//=== JvDockPropertyEditors.pas ==============================================
|
||||||
|
resourcestring
|
||||||
|
RsDockNewPage = 'Ne&w Page';
|
||||||
|
RsDockNextPage = 'Ne&xt Page';
|
||||||
|
RsDockPreviousPage = '&Previous Page';
|
||||||
|
RsDockDeletePage = '&Delete Page';
|
||||||
|
|
||||||
|
//=== JvDsgnEditors.pas ======================================================
|
||||||
|
resourcestring
|
||||||
|
RsStripFilePath = '&Strip file path';
|
||||||
|
{$IFDEF MSWINDOWS}
|
||||||
|
RsExecutableFilesExeExeAllFiles = 'Executable files (*.exe)|*.exe|All files (*.*)|*.*';
|
||||||
|
{$ENDIF MSWINDOWS}
|
||||||
|
{$IFDEF UNIX}
|
||||||
|
RsExecutableFilesExeExeAllFiles = 'Executable files (*)|*';
|
||||||
|
{$ENDIF UNIX}
|
||||||
|
RsFmtEditEllipsis = '%s Editor...';
|
||||||
|
RsSaveImageList = 'Save to bitmap...';
|
||||||
|
|
||||||
|
//=== JvFooterEditor.pas =====================================================
|
||||||
|
resourcestring
|
||||||
|
RsAddButtonText = 'Add button';
|
||||||
|
RsMSOffice = 'MS Office 2000';
|
||||||
|
RsMSEnterpriseManagerWizard = 'MS Enterprise Manager Wizard';
|
||||||
|
RsDialogMode = 'Dialog Mode';
|
||||||
|
RsPrevious = 'Previous';
|
||||||
|
RsNext = 'Next';
|
||||||
|
|
||||||
|
//=== JvFormPropertiesForm.pas ===============================================
|
||||||
|
resourcestring
|
||||||
|
RsStorageDesigner = 'Form Storage Designer...';
|
||||||
|
|
||||||
|
//=== JvFullColorListForm.pas ================================================
|
||||||
|
resourcestring
|
||||||
|
RsUnnamedColorFmt = '%s : Unnamed color $%.8x';
|
||||||
|
|
||||||
|
//=== JvgComponentListEditorForm.pas =========================================
|
||||||
|
resourcestring
|
||||||
|
RsEditComponentListEllipsis = 'Edit component list...';
|
||||||
|
|
||||||
|
//=== JvgHelpPanelEditor.pas =================================================
|
||||||
|
resourcestring
|
||||||
|
RsRTFAndTextFilesrtftxtrtftxt = 'RTF and Text files (*.rtf,*.txt)|*.rtf;*.txt';
|
||||||
|
RsLoadRTFFile = 'Load RTF file';
|
||||||
|
RsPreviewRTFText = 'Preview RTF text';
|
||||||
|
|
||||||
|
//=== JvgLabelEditorForm.pas =================================================
|
||||||
|
resourcestring
|
||||||
|
RsEditLabel = 'Edit &Label...';
|
||||||
|
|
||||||
|
//=== JvgLogicItemEditorForm.pas =============================================
|
||||||
|
resourcestring
|
||||||
|
RsLogicElements = 'Logic Element: %s';
|
||||||
|
RsResult = '[RESULT]';
|
||||||
|
RsNotDefined = '[ not defined ]';
|
||||||
|
|
||||||
|
//=== JvgLogicsEditorForm.pas ================================================
|
||||||
|
resourcestring
|
||||||
|
RsCaption = 'Caption';
|
||||||
|
RsComments = 'Comments';
|
||||||
|
RsEditComponentEllipsis = 'Edit component...';
|
||||||
|
|
||||||
|
//=== JvgMultiResourceEditorForm.pas =========================================
|
||||||
|
resourcestring
|
||||||
|
RsCellControlCaption = 'Control';
|
||||||
|
RsCellDefaultCaption = 'Default';
|
||||||
|
|
||||||
|
//=== JvGradientCaptionForm.pas ==============================================
|
||||||
|
resourcestring
|
||||||
|
RsCaptionDesigner = 'Edit Captions...';
|
||||||
|
RsGradientCaptions = 'Captions';
|
||||||
|
|
||||||
|
//=== JvgReportEditorForm.pas ================================================
|
||||||
|
resourcestring
|
||||||
|
RsEditReport = 'Edit report...';
|
||||||
|
RsPreviewReportEllipsis = 'Preview report...';
|
||||||
|
RsDeleteObject = 'Delete object?';
|
||||||
|
RsPagePreview = 'Page Preview';
|
||||||
|
|
||||||
|
//=== JvgReportParamsForm.pas ================================================
|
||||||
|
resourcestring
|
||||||
|
RsEditParamsEllipsis = 'Edit params...';
|
||||||
|
|
||||||
|
//=== JvGroupHeaderEditor.pas ================================================
|
||||||
|
resourcestring
|
||||||
|
RsStandardFlat = 'Standard/Flat';
|
||||||
|
RsWeb = 'Web';
|
||||||
|
|
||||||
|
//=== JvgShadowEditor.pas ====================================================
|
||||||
|
resourcestring
|
||||||
|
RsUpdateAllEditControl = 'Update all edit control';
|
||||||
|
|
||||||
|
//=== JVHLEditEditor.pas =====================================================
|
||||||
|
resourcestring
|
||||||
|
RsHLEditorMsg = 'Please select "JvHLEditor" first';
|
||||||
|
RsHLEditorMsgTitle = 'Cannot edit';
|
||||||
|
RsExecute = 'Execute';
|
||||||
|
RsJvHLEdPropDlgIni = 'JvHLEdPropDlg.ini';
|
||||||
|
|
||||||
|
//=== { TJvIconListForm.pas } ================================================
|
||||||
|
resourcestring
|
||||||
|
RsLoadIcon = 'Load Icon';
|
||||||
|
|
||||||
|
//=== JvID3v2EditorForm.pas ==================================================
|
||||||
|
resourcestring
|
||||||
|
RsfiErrorFrame = 'Error';
|
||||||
|
RsfiPaddingFrame = 'Padding';
|
||||||
|
RsfiNoFrame = 'No known frame';
|
||||||
|
RsfiAudioCrypto = 'Audio encryption';
|
||||||
|
RsfiPicture = 'Attached picture';
|
||||||
|
RsfiAudioSeekPoint = 'Audio seek point index';
|
||||||
|
RsfiComment = 'Comments';
|
||||||
|
RsfiCommercial = 'Commercial frame';
|
||||||
|
RsfiCryptoReg = 'Encryption method registration';
|
||||||
|
RsfiEqualization2 = 'Equalization (2)';
|
||||||
|
RsfiEqualization = 'Equalization';
|
||||||
|
RsfiEventTiming = 'Event timing codes';
|
||||||
|
RsfiGeneralObject = 'General encapsulated object';
|
||||||
|
RsfiGroupingReg = 'Group identification registration';
|
||||||
|
RsfiInvolvedPeople = 'Involved people list';
|
||||||
|
RsfiLinkedInfo = 'Linked information';
|
||||||
|
RsfiCDID = 'Music CD identifier';
|
||||||
|
RsfiMPEGLookup = 'MPEG location lookup table';
|
||||||
|
RsfiOwnership = 'Ownership frame';
|
||||||
|
RsfiPrivate = 'Private frame';
|
||||||
|
RsfiPlayCounter = 'Play counter';
|
||||||
|
RsfiPopularimeter = 'Popularimeter';
|
||||||
|
RsfiPositionsync = 'Position synchronisation frame';
|
||||||
|
RsfiBufferSize = 'Recommended buffer size';
|
||||||
|
RsfiVolumeAdj2 = 'Relative volume adjustment (2)';
|
||||||
|
RsfiVolumeAdj = 'Relative volume adjustment';
|
||||||
|
RsfiReverb = 'Reverb';
|
||||||
|
RsfiSeekFrame = 'Seek frame';
|
||||||
|
RsfiSignature = 'Signature frame';
|
||||||
|
RsfiSyncedLyrics = 'Synchronized lyric/text';
|
||||||
|
RsfiSyncedTempo = 'Synchronized tempo codes';
|
||||||
|
RsfiAlbum = 'Album/Movie/Show title';
|
||||||
|
RsfiBPM = 'BPM (beats per minute)';
|
||||||
|
RsfiComposer = 'Composer';
|
||||||
|
RsfiContentType = 'Content type';
|
||||||
|
RsfiCopyright = 'Copyright message';
|
||||||
|
RsfiDate = 'Date';
|
||||||
|
RsfiEncodingTime = 'Encoding time';
|
||||||
|
RsfiPlaylistDelay = 'Playlist delay';
|
||||||
|
RsfiOrigReleaseTime = 'Original release time';
|
||||||
|
RsfiRecordingTime = 'Recording time';
|
||||||
|
RsfiReleaseTime = 'Release time';
|
||||||
|
RsfiTaggingTime = 'Tagging time';
|
||||||
|
RsfiInvolvedPeople2 = 'Involved people list';
|
||||||
|
RsfiEncodedBy = 'Encoded by';
|
||||||
|
RsfiLyricist = 'Lyricist/Text writer';
|
||||||
|
RsfiFileType = 'File type';
|
||||||
|
RsfiTime = 'Time';
|
||||||
|
RsfiContentGroup = 'Content group description';
|
||||||
|
RsfiTitle = 'Title/songname/content description';
|
||||||
|
RsfiSubTitle = 'Subtitle/Description refinement';
|
||||||
|
RsfiInitialKey = 'Initial key';
|
||||||
|
RsfiLanguage = 'Language(s)';
|
||||||
|
RsfiSongLen = 'Length';
|
||||||
|
RsfiMusicianCreditList = 'Musician credits list';
|
||||||
|
RsfiMediaType = 'Media type';
|
||||||
|
RsfiMood = 'Mood';
|
||||||
|
RsfiOrigAlbum = 'Original album/movie/show title';
|
||||||
|
RsfiOrigFileName = 'Original filename';
|
||||||
|
RsfiOrigLyricist = 'Original lyricist(s)/text writer(s)';
|
||||||
|
RsfiOrigArtist = 'Original artist(s)/performer(s)';
|
||||||
|
RsfiOrigYear = 'Original release year';
|
||||||
|
RsfiFileOwner = 'File owner/licensee';
|
||||||
|
RsfiLeadArtist = 'Lead performer(s)/Soloist(s)';
|
||||||
|
RsfiBand = 'Band/orchestra/accompaniment';
|
||||||
|
RsfiConductor = 'Conductor/performer refinement';
|
||||||
|
RsfiMixArtist = 'Interpreted, remixed, or otherwise modified by';
|
||||||
|
RsfiPartInSet = 'Part of a set';
|
||||||
|
RsfiProducedNotice = 'Produced notice';
|
||||||
|
RsfiPublisher = 'Publisher';
|
||||||
|
RsfiTrackNum = 'Track number/Position in set';
|
||||||
|
RsfiRecordingDates = 'Recording dates';
|
||||||
|
RsfiNetRadioStation = 'Internet radio station name';
|
||||||
|
RsfiNetRadioOwner = 'Internet radio station owner';
|
||||||
|
RsfiSize = 'Size';
|
||||||
|
RsfiAlbumSortOrder = 'Album sort order';
|
||||||
|
RsfiPerformerSortOrder = 'Performer sort order';
|
||||||
|
RsfiTitleSortOrder = 'Title sort order';
|
||||||
|
RsfiISRC = 'ISRC (international standard recording code)';
|
||||||
|
RsfiEncoderSettings = 'Software/Hardware and settings used for encoding';
|
||||||
|
RsfiSetSubTitle = 'Set subtitle';
|
||||||
|
RsfiUserText = 'User defined text information';
|
||||||
|
RsfiYear = 'Year';
|
||||||
|
RsfiUniqueFileID = 'Unique file identifier';
|
||||||
|
RsfiTermsOfUse = 'Terms of use';
|
||||||
|
RsfiUnsyncedLyrics = 'Unsynchronized lyric/text transcription';
|
||||||
|
RsfiWWWCommercialInfo = 'Commercial information';
|
||||||
|
RsfiWWWCopyright = 'Copyright/Legal information';
|
||||||
|
RsfiWWWAudioFile = 'Official audio file webpage';
|
||||||
|
RsfiWWWArtist = 'Official artist/performer webpage';
|
||||||
|
RsfiWWWAudioSource = 'Official audio source webpage';
|
||||||
|
RsfiWWWRadioPage = 'Official internet radio station homepage';
|
||||||
|
RsfiWWWPayment = 'Payment';
|
||||||
|
RsfiWWWPublisher = 'Official publisher webpage';
|
||||||
|
RsfiWWWUser = 'User defined URL link';
|
||||||
|
RsfiMetaCrypto = 'Encrypted meta frame';
|
||||||
|
RsfiMetaCompression = 'Compressed meta frame';
|
||||||
|
|
||||||
|
RsMPEG10 = 'MPEG 1.0';
|
||||||
|
RsMPEG20 = 'MPEG 2.0';
|
||||||
|
RsMPEGUnknown = '??';
|
||||||
|
RsMPEG25 = 'MPEG 2.5';
|
||||||
|
|
||||||
|
RsLayerUnknown = '??';
|
||||||
|
RsLayer1 = 'Layer 1';
|
||||||
|
RsLayer2 = 'Layer 2';
|
||||||
|
RsLayer3 = 'Layer 3';
|
||||||
|
|
||||||
|
RsChannelModeStereo = 'Stereo';
|
||||||
|
RsChannelModeJointStereo = 'Joint Stereo';
|
||||||
|
RsChannelModeDualChannel = 'Dual Channel';
|
||||||
|
RsChannelModeMono = 'Mono';
|
||||||
|
|
||||||
|
RsEmphasisNone = 'None';
|
||||||
|
RsEmphasisMicrosec = '50/15 microsec';
|
||||||
|
RsEmphasisUnknown = '??';
|
||||||
|
RsEmphasisCCITTJ17 = 'CCIT J.17';
|
||||||
|
|
||||||
|
RsBoolNo = 'No';
|
||||||
|
RsBoolYes = 'Yes';
|
||||||
|
|
||||||
|
RsVbrNo = '';
|
||||||
|
RsVbrVbr = ' (VBR)';
|
||||||
|
|
||||||
|
RsIDV2FileInfoFmt =
|
||||||
|
'Size: %d bytes' + sLineBreak +
|
||||||
|
'Header found at: %d bytes' + sLineBreak +
|
||||||
|
'Length: %d seconds' + sLineBreak +
|
||||||
|
'%s %s' + sLineBreak +
|
||||||
|
'%dkbit%s, %d frames' + sLineBreak +
|
||||||
|
'%dHz %s' + sLineBreak +
|
||||||
|
'CRCs: %s' + sLineBreak +
|
||||||
|
'Copyrighted: %s' + sLineBreak +
|
||||||
|
'Original: %s' + sLineBreak +
|
||||||
|
'Emphasis: %s';
|
||||||
|
|
||||||
|
RsIDV2FileInfoCaption = 'File info';
|
||||||
|
RsCommit = 'Commit?';
|
||||||
|
|
||||||
|
// (rom) from JvConsts.pas
|
||||||
|
RsID3CommitTag = '&Commit';
|
||||||
|
RsID3FileInfoTag = 'File &info';
|
||||||
|
RsID3FrameEditorTag = 'Frame edi&tor';
|
||||||
|
RsID3RemoveTag = '&Remove tag...';
|
||||||
|
RsID3RemoveTagConfirmation = 'Remove tag?';
|
||||||
|
RsID3Err_FileDoesNotExists = 'File %s does not exists';
|
||||||
|
RsID3Err_NoFileSpecified = 'No file specified';
|
||||||
|
RsID3Err_NoValidMPEGTag = 'This file has not a valid MPEG tag';
|
||||||
|
|
||||||
|
//=== JvIDEZoom.pas ==========================================================
|
||||||
|
resourcestring
|
||||||
|
RsZoomEditWindow = 'Zoom Edit Window';
|
||||||
|
RsCantZoomDocked = 'An edit window can not be zoomed while docked,' + sLineBreak +
|
||||||
|
'switch to the "Classic Undocked" layout to use this command';
|
||||||
|
|
||||||
|
//=== JvImagePreviewForm.pas =================================================
|
||||||
|
resourcestring
|
||||||
|
RsPreview = 'Preview';
|
||||||
|
|
||||||
|
//=== JvJVCLAboutEditor.pas ==================================================
|
||||||
|
resourcestring
|
||||||
|
RsVersions = 'Version %s';
|
||||||
|
|
||||||
|
//=== JvLookoutEditor.pas ====================================================
|
||||||
|
resourcestring
|
||||||
|
RsAddPage = 'Add page';
|
||||||
|
RsActivate = 'Activate';
|
||||||
|
RsAddButton = 'Add Button';
|
||||||
|
RsScrollUp = 'Scroll Up';
|
||||||
|
RsScrollDown = 'Scroll Down';
|
||||||
|
RsAddPage_ = 'Add Page';
|
||||||
|
|
||||||
|
//=== JvMailEditor.pas =======================================================
|
||||||
|
resourcestring
|
||||||
|
RsSend = 'Send';
|
||||||
|
RsAddress = 'Address';
|
||||||
|
|
||||||
|
//=== JvOutlookBarEditors.pas ================================================
|
||||||
|
resourcestring
|
||||||
|
RsOLEditor = 'OutlookBar Editor...';
|
||||||
|
|
||||||
|
//=== JvOutlookBarForm.pas ===================================================
|
||||||
|
resourcestring
|
||||||
|
RsDesignerIsNilInFormClosed = 'Designer is nil in FormClosed';
|
||||||
|
RsFmtCaption = 'Editing %s';
|
||||||
|
RsOutlookBarCaption = 'OutlookBar Editor';
|
||||||
|
|
||||||
|
//=== JvPageLinkEditor.pas ===================================================
|
||||||
|
resourcestring
|
||||||
|
RsCreateLinkToPaged = 'Create link to page %d';
|
||||||
|
|
||||||
|
//=== JvPageListTreeViewReg.pas ==============================================
|
||||||
|
resourcestring
|
||||||
|
RsEFmtInterfaceNotSupported = '%s does not support the required interface (%s)';
|
||||||
|
RsPageListEditorEllipsis = 'Page List Editor...';
|
||||||
|
RsNextPageAmp = 'Ne&xt Page';
|
||||||
|
RsPrevPage = '&Previous Page';
|
||||||
|
RsNewPage = '&New Page';
|
||||||
|
RsDelPage = '&Delete Page';
|
||||||
|
|
||||||
|
//=== JvPageManagerForm.pas ==================================================
|
||||||
|
resourcestring
|
||||||
|
RsProxyEditor = 'Edit Proxies...';
|
||||||
|
RsPageProxies = '%s Page Proxies';
|
||||||
|
RsProxyName = 'Page Proxy Name';
|
||||||
|
RsPageName = 'Page Name';
|
||||||
|
|
||||||
|
//=== JvPatcherEditor.pas ====================================================
|
||||||
|
resourcestring
|
||||||
|
RsDiff = '(diff)';
|
||||||
|
RsEqual = '(equal)';
|
||||||
|
|
||||||
|
//=== JvPictureEditForm.pas ==================================================
|
||||||
|
resourcestring
|
||||||
|
RsLoadPicture = 'Load picture';
|
||||||
|
RsSavePictureAs = 'Save picture as';
|
||||||
|
|
||||||
|
//=== JvPluginParamsForm.pas =================================================
|
||||||
|
resourcestring
|
||||||
|
RsPluginParamsFormInfoText =
|
||||||
|
'The settings above will create the following project:' +
|
||||||
|
sLineBreak + sLineBreak +
|
||||||
|
'* A project called Plg%0:s.%1:s' + sLineBreak +
|
||||||
|
'* A unit called Plugin%0:s, containing the data module T%0:s.';
|
||||||
|
|
||||||
|
//=== JvPluginWizard.pas =====================================================
|
||||||
|
resourcestring
|
||||||
|
RsJvPluginWizard = 'Jv Plugin Wizard';
|
||||||
|
RsProjects = 'Projects';
|
||||||
|
RsNewPlugin = 'New Plugin';
|
||||||
|
RsPrivateDeclarations = '{ Private declarations }';
|
||||||
|
RsPublicDeclarations = '{ Public declarations }';
|
||||||
|
RsIMPORTANTNOTEIfYouChangeTheNameOfTh =
|
||||||
|
'// IMPORTANT NOTE: If you change the name of the Plugin container,' + sLineBreak +
|
||||||
|
'// you must set the type below to the same type. (Delphi changes' + sLineBreak +
|
||||||
|
'// the declaration, but not the procedure itself. Both the return' + sLineBreak +
|
||||||
|
'// type and the type created must be the same as the declared type above.';
|
||||||
|
RsJediPluginWizard = 'JEDI Plugin Wizard';
|
||||||
|
RsPluginWizardIDString = 'JVCL.JvPluginWizard';
|
||||||
|
|
||||||
|
//=== JvPreviewReg.pas =======================================================
|
||||||
|
resourcestring
|
||||||
|
RsCreatePreview = 'Create Preview';
|
||||||
|
RsClearPreview = 'Clear Preview';
|
||||||
|
|
||||||
|
//=== JvScheduleEditorForm.pas ===============================================
|
||||||
|
resourcestring
|
||||||
|
RsEInvalidScheduleSettingsFound = 'Invalid schedule settings found.';
|
||||||
|
RsStop = 'Stop';
|
||||||
|
RsRun = 'Run';
|
||||||
|
|
||||||
|
//=== JvScheduleEditors.pas ==================================================
|
||||||
|
resourcestring
|
||||||
|
RsEventEditor = 'Event editor...';
|
||||||
|
|
||||||
|
//=== JvScrollMaxEditor.pas ==================================================
|
||||||
|
resourcestring
|
||||||
|
RsAddBand = 'Add Band';
|
||||||
|
|
||||||
|
//=== JvSegmentedLEDDisplayEditors.pas =======================================
|
||||||
|
resourcestring
|
||||||
|
RsAddDigit = 'Add digit';
|
||||||
|
RsRemoveDigit = 'Remove digit';
|
||||||
|
RsEditMappingEllipsis = 'Edit mapping...';
|
||||||
|
|
||||||
|
//=== JvSegmentedLEDDisplayMappingForm.pas ===================================
|
||||||
|
resourcestring
|
||||||
|
RsSegmentedLEDDisplayMappingEditor = 'Segmented LED Display Mapping Editor';
|
||||||
|
|
||||||
|
//=== JvSegmentedLEDDisplayMappingForm.pas ===================================
|
||||||
|
resourcestring
|
||||||
|
{$IFDEF MSWINDOWS}
|
||||||
|
RsTextFilter =
|
||||||
|
'Text files (*.TXT)|*.TXT|Config files (*.SYS;*.INI)|*.SYS;*.INI|Batch files (*.BAT)|*.BAT|All files (*.*)|*.*';
|
||||||
|
// RsTextFilter = 'Text files (*.txt)|*.txt|Config files (*.sys;*.ini)|*.sys;*.ini|Batch files (*.bat)|*.bat|All files (*.*)|*.*';
|
||||||
|
{$ENDIF MSWINDOWS}
|
||||||
|
{$IFDEF UNIX}
|
||||||
|
RsTextFilter =
|
||||||
|
'Text files (*.txt)|*.txt|All files (*)|*';
|
||||||
|
{$ENDIF UNIX}
|
||||||
|
RsSingleLine = 'Line';
|
||||||
|
RsMultipleLines = 'Lines';
|
||||||
|
|
||||||
|
//=== { TJvSpeedbarForm.pas } ================================================
|
||||||
|
RsESBItemNotCreate = 'Cannot create a new Speedbar button';
|
||||||
|
RsConfirmSBDelete = 'Are you sure you want to delete current section?';
|
||||||
|
RsSpeedbarDesigner = 'Speedbar designer...';
|
||||||
|
RsNewSectionName = 'Untitled (%d)';
|
||||||
|
|
||||||
|
//=== JvTimeFrameworkReg.pas =================================================
|
||||||
|
resourcestring
|
||||||
|
RsGridLayout = 'Grid Layout';
|
||||||
|
RsCustomDraw = 'Custom Draw';
|
||||||
|
|
||||||
|
//=== JvTimerListEditor.pas ==================================================
|
||||||
|
resourcestring
|
||||||
|
RsEventsEllipsis = 'Events...';
|
||||||
|
|
||||||
|
//=== JvTreeItemsEditorForm.pas ==============================================
|
||||||
|
resourcestring
|
||||||
|
RsLinksEditorEllipsis = 'Links Editor...';
|
||||||
|
|
||||||
|
//=== JvValidatorsEditorForm.pas =============================================
|
||||||
|
resourcestring
|
||||||
|
RsJvValidatorsItemsEditorEllipsis = 'JvValidators Items Editor...';
|
||||||
|
RsJvValidatorItemsEditorEllipsis = 'JvValidator Items Editor...';
|
||||||
|
|
||||||
|
//=== JvWizardEditorForm.pas =================================================
|
||||||
|
resourcestring
|
||||||
|
RsPageListEllipsis = 'Page List...';
|
||||||
|
RsNewWelcomePage = 'New Welcome Page';
|
||||||
|
RsNewInteriorPage = 'New Interior Page';
|
||||||
|
RsDeletePage = 'Delete Page';
|
||||||
|
|
||||||
|
//=== JvXPPropertyEditors.pas ================================================
|
||||||
|
resourcestring
|
||||||
|
RsItemEditorEllipsis = 'Item Editor...';
|
||||||
|
RsDefaultColorItem = 'Restore Default Colors';
|
||||||
|
RsDefaultFontsItem = 'Restore Default Fonts';
|
||||||
|
|
||||||
|
//=== DataProvider design time constants =====================================
|
||||||
|
resourcestring
|
||||||
|
RsDataProviderDesignerCaption = 'Editing %s%s...';
|
||||||
|
RsDataProviderContextManCaption = 'Editing contexts for ''%s''...';
|
||||||
|
RsDataItemRootID = 'ROOT';
|
||||||
|
RsDataItemRootCaption = 'Root';
|
||||||
|
RsDataItemNoTextIntf = 'Item has no text support.';
|
||||||
|
RsDataItemIDNotFound = 'Item ID "%s" not found!';
|
||||||
|
RsEDataItemNotFound = 'Item not found.';
|
||||||
|
RsEDataProviderAddFailed = 'Failed to add a new item.';
|
||||||
|
RsEDataProviderAddErrorReason = 'unable to add new item; %s.';
|
||||||
|
RsEDataProviderDeleteErrorReason = 'Unable to delete item; %s.';
|
||||||
|
RsEDataProviderNoManOrDsgn = 'neither IJvDataItemsManagement nor IJvDataItemsDesigner are supported';
|
||||||
|
RsEDataProviderNoSubItems = 'item does not support IJvDataItems';
|
||||||
|
RsEDataProviderNoMan = 'IJvDataItemsManagement is not supported';
|
||||||
|
|
||||||
|
//=== not taken into JVCL ====================================================
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
end.
|
||||||
88
components/jvcllaz/design/JvHTHintForm.lfm
Normal file
88
components/jvcllaz/design/JvHTHintForm.lfm
Normal file
@ -0,0 +1,88 @@
|
|||||||
|
object JvHintEditor: TJvHintEditor
|
||||||
|
Left = 200
|
||||||
|
Height = 240
|
||||||
|
Top = 108
|
||||||
|
Width = 320
|
||||||
|
BorderIcons = [biSystemMenu]
|
||||||
|
Caption = 'JvHtHint Editor'
|
||||||
|
ClientHeight = 240
|
||||||
|
ClientWidth = 320
|
||||||
|
Color = clBtnFace
|
||||||
|
Constraints.MinHeight = 150
|
||||||
|
Constraints.MinWidth = 200
|
||||||
|
Icon.Data = {
|
||||||
|
3E01000000000100010010101000010010002801000016000000280000001000
|
||||||
|
0000200000000100040000000000C00000000000000000000000000000000000
|
||||||
|
000000000000000080000080000000808000800000008000800080800000C0C0
|
||||||
|
C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
|
||||||
|
FF00000000000000000000000BBBB0000000000BB000BB000000000BB0000B00
|
||||||
|
0000000BBB000BB00000000BBB000BB00000000000000BB00000000000000BB0
|
||||||
|
0000000000000BB00000000000000BB00000000000000BB00000000000000BB0
|
||||||
|
0000000000000BB0000000000000BBBB00000000000BBBBBB000000000000000
|
||||||
|
0000FFFF0000F87F0000E73F0000E7BF0000E39F0000E39F0000FF9F0000FF9F
|
||||||
|
0000FF9F0000FF9F0000FF9F0000FF9F0000FF9F0000FF0F0000FE070000FFFF
|
||||||
|
0000
|
||||||
|
}
|
||||||
|
KeyPreview = True
|
||||||
|
Position = poScreenCenter
|
||||||
|
ShowHint = True
|
||||||
|
LCLVersion = '1.7'
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 8
|
||||||
|
Height = 15
|
||||||
|
Top = 8
|
||||||
|
Width = 23
|
||||||
|
Caption = 'Hint'
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object HintLabel: TLabel
|
||||||
|
Left = 114
|
||||||
|
Height = 15
|
||||||
|
Top = 8
|
||||||
|
Width = 198
|
||||||
|
Alignment = taRightJustify
|
||||||
|
Anchors = [akTop, akRight]
|
||||||
|
Caption = 'Drag mouse over this label to see hint'
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
WordWrap = True
|
||||||
|
end
|
||||||
|
object HintMemo: TMemo
|
||||||
|
Left = 8
|
||||||
|
Height = 157
|
||||||
|
Top = 32
|
||||||
|
Width = 304
|
||||||
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||||
|
OnChange = HintMemoChange
|
||||||
|
OnKeyDown = HintMemoKeyDown
|
||||||
|
ParentFont = False
|
||||||
|
ScrollBars = ssBoth
|
||||||
|
TabOrder = 0
|
||||||
|
WordWrap = False
|
||||||
|
end
|
||||||
|
object BtnOk: TButton
|
||||||
|
Left = 151
|
||||||
|
Height = 25
|
||||||
|
Top = 204
|
||||||
|
Width = 75
|
||||||
|
Anchors = [akRight, akBottom]
|
||||||
|
Caption = '&OK'
|
||||||
|
Default = True
|
||||||
|
ModalResult = 1
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object BtnCancel: TButton
|
||||||
|
Left = 237
|
||||||
|
Height = 25
|
||||||
|
Top = 204
|
||||||
|
Width = 75
|
||||||
|
Anchors = [akRight, akBottom]
|
||||||
|
Cancel = True
|
||||||
|
Caption = 'Cancel'
|
||||||
|
ModalResult = 2
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
end
|
||||||
106
components/jvcllaz/design/JvHTHintForm.pas
Normal file
106
components/jvcllaz/design/JvHTHintForm.pas
Normal file
@ -0,0 +1,106 @@
|
|||||||
|
{-----------------------------------------------------------------------------
|
||||||
|
The contents of this file are subject to the Mozilla Public License
|
||||||
|
Version 1.1 (the "License"); you may not use this file except in compliance
|
||||||
|
with the License. You may obtain a copy of the License at
|
||||||
|
http://www.mozilla.org/MPL/MPL-1.1.html
|
||||||
|
|
||||||
|
Software distributed under the License is distributed on an "AS IS" basis,
|
||||||
|
WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See the License for
|
||||||
|
the specific language governing rights and limitations under the License.
|
||||||
|
|
||||||
|
The Original Code is: JvHTHintEditor.PAS, released on 2002-07-04.
|
||||||
|
|
||||||
|
The Initial Developers of the Original Code are: Andrei Prygounkov <a dott prygounkov att gmx dott de>
|
||||||
|
Copyright (c) 1999, 2002 Andrei Prygounkov
|
||||||
|
All Rights Reserved.
|
||||||
|
|
||||||
|
Contributor(s):
|
||||||
|
|
||||||
|
You may retrieve the latest version of this file at the Project JEDI's JVCL home page,
|
||||||
|
located at http://jvcl.delphi-jedi.org
|
||||||
|
|
||||||
|
description : Design-time Hint Editor
|
||||||
|
|
||||||
|
Known Issues:
|
||||||
|
-----------------------------------------------------------------------------}
|
||||||
|
// $Id$
|
||||||
|
|
||||||
|
unit JvHTHintForm;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
SysUtils, Classes, Controls, Forms, StdCtrls,
|
||||||
|
PropEdits,
|
||||||
|
JvHint;
|
||||||
|
|
||||||
|
type
|
||||||
|
TJvHintEditor = class(TForm)
|
||||||
|
HintMemo: TMemo;
|
||||||
|
Label1: TLabel;
|
||||||
|
BtnOk: TButton;
|
||||||
|
BtnCancel: TButton;
|
||||||
|
HintLabel: TLabel;
|
||||||
|
procedure HintMemoChange(Sender: TObject);
|
||||||
|
procedure HintMemoKeyDown(Sender: TObject; var Key: Word;
|
||||||
|
{%H-}Shift: TShiftState);
|
||||||
|
private
|
||||||
|
public
|
||||||
|
end;
|
||||||
|
|
||||||
|
TJvHintProperty = class(TStringProperty)
|
||||||
|
public
|
||||||
|
function GetAttributes: TPropertyAttributes; override;
|
||||||
|
procedure Edit; override;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.lfm}
|
||||||
|
|
||||||
|
//=== { TJvHintProperty } ====================================================
|
||||||
|
|
||||||
|
procedure TJvHintProperty.Edit;
|
||||||
|
var
|
||||||
|
OldHintWindowClass: THintWindowClass;
|
||||||
|
begin
|
||||||
|
OldHintWindowClass := HintWindowClass;
|
||||||
|
with TJvHintEditor.Create(Application) do
|
||||||
|
try
|
||||||
|
HintMemo.Text := GetValue;
|
||||||
|
HintWindowClass := TJvHTHintWindow;
|
||||||
|
HintMemoChange(nil);
|
||||||
|
if ShowModal = mrOk then
|
||||||
|
SetValue(HintMemo.Text);
|
||||||
|
finally
|
||||||
|
Free;
|
||||||
|
HintWindowClass := OldHintWindowClass;
|
||||||
|
{ recreate hint window }
|
||||||
|
Application.ShowHint := not Application.ShowHint;
|
||||||
|
Application.ShowHint := not Application.ShowHint;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvHintProperty.GetAttributes: TPropertyAttributes;
|
||||||
|
begin
|
||||||
|
Result := inherited GetAttributes + [paDialog];
|
||||||
|
end;
|
||||||
|
|
||||||
|
//=== { TJvHintEditor } ======================================================
|
||||||
|
|
||||||
|
procedure TJvHintEditor.HintMemoChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
HintLabel.Hint := HintMemo.Text;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvHintEditor.HintMemoKeyDown(Sender: TObject; var Key: Word;
|
||||||
|
Shift: TShiftState);
|
||||||
|
begin
|
||||||
|
//if Key = VK_ESCAPE then
|
||||||
|
if Ord(Key) = 27 then //asn: With VisualCLX VK_ESCAPE <> 27
|
||||||
|
BtnCancel.Click;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
269
components/jvcllaz/design/JvValidatorsEditorForm.lfm
Normal file
269
components/jvcllaz/design/JvValidatorsEditorForm.lfm
Normal file
@ -0,0 +1,269 @@
|
|||||||
|
object frmValidatorsEditor: TfrmValidatorsEditor
|
||||||
|
Left = 289
|
||||||
|
Height = 260
|
||||||
|
Top = 205
|
||||||
|
Width = 320
|
||||||
|
BorderIcons = [biSystemMenu]
|
||||||
|
Caption = 'JvValidator Items Editor'
|
||||||
|
ClientHeight = 260
|
||||||
|
ClientWidth = 320
|
||||||
|
Color = clBtnFace
|
||||||
|
Constraints.MinHeight = 260
|
||||||
|
Constraints.MinWidth = 160
|
||||||
|
OnClose = FormClose
|
||||||
|
OnCreate = FormCreate
|
||||||
|
PopupMenu = popForm
|
||||||
|
ShowHint = True
|
||||||
|
LCLVersion = '1.6.0.4'
|
||||||
|
object ToolBar1: TToolBar
|
||||||
|
Left = 0
|
||||||
|
Height = 24
|
||||||
|
Top = 0
|
||||||
|
Width = 320
|
||||||
|
AutoSize = True
|
||||||
|
Caption = 'ToolBar1'
|
||||||
|
EdgeBorders = [ebLeft, ebBottom]
|
||||||
|
Images = il16
|
||||||
|
TabOrder = 0
|
||||||
|
object btnNew: TToolButton
|
||||||
|
Left = 3
|
||||||
|
Hint = 'Add Required Field Validator'
|
||||||
|
Top = 0
|
||||||
|
Caption = 'Required Field Validator'
|
||||||
|
DropdownMenu = popNew
|
||||||
|
ImageIndex = 0
|
||||||
|
Style = tbsDropDown
|
||||||
|
end
|
||||||
|
object btnDelete: TToolButton
|
||||||
|
Left = 38
|
||||||
|
Top = 0
|
||||||
|
Action = acDelete
|
||||||
|
end
|
||||||
|
object ToolButton1: TToolButton
|
||||||
|
Left = 61
|
||||||
|
Height = 22
|
||||||
|
Top = 0
|
||||||
|
Width = 8
|
||||||
|
Caption = 'ToolButton1'
|
||||||
|
ImageIndex = 2
|
||||||
|
Style = tbsSeparator
|
||||||
|
end
|
||||||
|
object ToolButton2: TToolButton
|
||||||
|
Left = 69
|
||||||
|
Top = 0
|
||||||
|
Action = acMoveUp
|
||||||
|
end
|
||||||
|
object ToolButton3: TToolButton
|
||||||
|
Left = 92
|
||||||
|
Top = 0
|
||||||
|
Action = acMoveDown
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object StatusBar1: TStatusBar
|
||||||
|
Left = 0
|
||||||
|
Height = 23
|
||||||
|
Top = 237
|
||||||
|
Width = 320
|
||||||
|
AutoHint = True
|
||||||
|
Panels = <
|
||||||
|
item
|
||||||
|
Width = 50
|
||||||
|
end>
|
||||||
|
end
|
||||||
|
object lbValidators: TListBox
|
||||||
|
Left = 0
|
||||||
|
Height = 213
|
||||||
|
Top = 24
|
||||||
|
Width = 320
|
||||||
|
Align = alClient
|
||||||
|
ItemHeight = 0
|
||||||
|
OnClick = lbValidatorsClick
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object popNew: TPopupMenu
|
||||||
|
Images = il16
|
||||||
|
left = 16
|
||||||
|
top = 40
|
||||||
|
end
|
||||||
|
object alEditor: TActionList
|
||||||
|
Images = il16
|
||||||
|
OnUpdate = alEditorUpdate
|
||||||
|
left = 16
|
||||||
|
top = 104
|
||||||
|
object acDelete: TAction
|
||||||
|
Caption = 'Delete'
|
||||||
|
Hint = 'Delete selected item'
|
||||||
|
ImageIndex = 1
|
||||||
|
OnExecute = acDeleteExecute
|
||||||
|
ShortCut = 46
|
||||||
|
end
|
||||||
|
object acMoveUp: TAction
|
||||||
|
Caption = 'Move Up'
|
||||||
|
Hint = 'Move Up'
|
||||||
|
ImageIndex = 2
|
||||||
|
OnExecute = acMoveUpExecute
|
||||||
|
ShortCut = 16422
|
||||||
|
end
|
||||||
|
object acMoveDown: TAction
|
||||||
|
Caption = 'Move Down'
|
||||||
|
Hint = 'Move Down'
|
||||||
|
ImageIndex = 3
|
||||||
|
OnExecute = acMoveDownExecute
|
||||||
|
ShortCut = 16424
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object il16: TImageList
|
||||||
|
left = 16
|
||||||
|
top = 72
|
||||||
|
Bitmap = {
|
||||||
|
4C69040000001000000010000000000000000000000000000000848484FFFFFF
|
||||||
|
FFFF000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000FFFFFF0000000000000000848484FF00FF
|
||||||
|
FFFF0000000000000000848484FF000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000848484FF00FFFFFF00000000848484FFFFFF
|
||||||
|
FFFF00000000848484FF00FFFFFF000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000848484FF00FFFFFF848484FF00FF
|
||||||
|
FFFF848484FF00FFFFFF00000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000FFFFFFFF00FFFFFF848484FF00FFFFFFFFFF
|
||||||
|
FFFF848484FF848484FF848484FF848484FF000000FF000000FF000000FF0000
|
||||||
|
00FF000000FF000000FF00000000848484FF848484FF848484FFFFFFFFFF8484
|
||||||
|
84FFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FF
|
||||||
|
FFFFFFFFFFFF000000FF848484FF00000000848484FFFFFFFFFF848484FF00FF
|
||||||
|
FFFF848484FF00FFFFFFFFFFFFFF00FFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFF
|
||||||
|
FFFF00FFFFFF000000FF848484FF848484FF00FFFFFF00FFFFFF848484FFFFFF
|
||||||
|
FFFF00FFFFFF848484FF00FFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FF
|
||||||
|
FFFFFFFFFFFF000000FF848484FFFFFFFFFF000000FFFFFFFFFF848484FF00FF
|
||||||
|
FFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFF
|
||||||
|
FFFF00FFFFFF000000FF848484FF00000000000000FF00FFFFFFFFFFFFFF00FF
|
||||||
|
FFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF000000FF000000FF0000
|
||||||
|
00FF000000FF000000FF848484FF00000000000000FFFFFFFFFF00FFFFFFFFFF
|
||||||
|
FFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFF000000FF00FFFFFFC6C6
|
||||||
|
C6FF000000FF000000FF848484FF00000000000000FF00FFFFFFFFFFFFFF00FF
|
||||||
|
FFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF000000FFC6C6C6FF0000
|
||||||
|
00FFFFFFFFFF000000FF848484FF00000000000000FFFFFFFFFF00FFFFFFFFFF
|
||||||
|
FFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFF000000FF000000FFFFFF
|
||||||
|
FFFF00FFFFFF000000FF848484FF00000000000000FF000000FF000000FF0000
|
||||||
|
00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
|
||||||
|
00FF000000FF000000FF848484FF0000000000000000848484FF848484FF8484
|
||||||
|
84FF848484FF848484FF848484FF848484FF848484FF848484FF848484FF8484
|
||||||
|
84FF848484FF848484FF848484FF000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000084FF000084FF848484FF0000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000084FF000084FF848484FF000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000084FF000084FF848484FF000000000000
|
||||||
|
84FF000084FF848484FF00000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000848484FF000084FF000084FF000084FF0000
|
||||||
|
84FF848484FF000000FF000000FF000000FF000000FF000000FF000000FF0000
|
||||||
|
00FF000000FF000000FF0000000000000000848484FF000084FF000084FF0000
|
||||||
|
84FFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FF
|
||||||
|
FFFFFFFFFFFF000000FF848484FF00000000848484FF000084FF000084FF0000
|
||||||
|
84FF000084FFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFF
|
||||||
|
FFFF00FFFFFF000000FF848484FF00000000000084FF000084FF848484FF00FF
|
||||||
|
FFFF000084FF000084FFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FF
|
||||||
|
FFFFFFFFFFFF000000FF848484FF848484FF000084FF848484FF00FFFFFFFFFF
|
||||||
|
FFFF848484FF000084FF848484FFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFF
|
||||||
|
FFFF00FFFFFF000000FF848484FF000084FF000084FF00FFFFFFFFFFFFFF00FF
|
||||||
|
FFFFFFFFFFFF848484FF000084FF00FFFFFFFFFFFFFF000000FF000000FF0000
|
||||||
|
00FF000000FF000000FF848484FF000084FF000000FFFFFFFFFF00FFFFFFFFFF
|
||||||
|
FFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFF000000FF00FFFFFFC6C6
|
||||||
|
C6FF000000FF000000FF848484FF848484FF000000FF00FFFFFFFFFFFFFF00FF
|
||||||
|
FFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF000000FFC6C6C6FF0000
|
||||||
|
00FFFFFFFFFF000000FF848484FF00000000000000FFFFFFFFFF00FFFFFFFFFF
|
||||||
|
FFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFF000000FF000000FFFFFF
|
||||||
|
FFFF00FFFFFF000000FF848484FF00000000000000FF000000FF000000FF0000
|
||||||
|
00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
|
||||||
|
00FF000000FF000000FF848484FF0000000000000000848484FF848484FF8484
|
||||||
|
84FF848484FF848484FF848484FF848484FF848484FF848484FF848484FF8484
|
||||||
|
84FF848484FF848484FF848484FF000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000FF000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000FF848400FF000000FF0000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000FF848400FF848400FF848400FF000000FF00000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00FF848400FF848400FF848400FF848400FF848400FF000000FF000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000FF8484
|
||||||
|
00FF848400FF848400FF848400FF848400FF848400FF848400FF000000FF0000
|
||||||
|
00000000000000000000000000000000000000000000000000FF000000FF0000
|
||||||
|
00FF000000FF848400FF848400FF848400FF000000FF000000FF000000FF0000
|
||||||
|
00FF000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000FF848400FF848400FF848400FF000000FF00000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000FF848400FF848400FF848400FF000000FF00000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000FF848400FF848400FF848400FF000000FF00000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000FF000000FF000000FF000000FF000000FF00000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000FF000000FF000000FF000000FF000000FF00000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000FF848400FF848400FF848400FF000000FF00000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000FF848400FF848400FF848400FF000000FF00000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000FF848400FF848400FF848400FF000000FF00000000000000000000
|
||||||
|
00000000000000000000000000000000000000000000000000FF000000FF0000
|
||||||
|
00FF000000FF848400FF848400FF848400FF000000FF000000FF000000FF0000
|
||||||
|
00FF000000000000000000000000000000000000000000000000000000FF8484
|
||||||
|
00FF848400FF848400FF848400FF848400FF848400FF848400FF000000FF0000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00FF848400FF848400FF848400FF848400FF848400FF000000FF000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000FF848400FF848400FF848400FF000000FF00000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000FF848400FF000000FF0000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000FF000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000
|
||||||
|
}
|
||||||
|
end
|
||||||
|
object popForm: TPopupMenu
|
||||||
|
left = 96
|
||||||
|
top = 96
|
||||||
|
object N1: TMenuItem
|
||||||
|
Caption = '-'
|
||||||
|
end
|
||||||
|
object Delete1: TMenuItem
|
||||||
|
Action = acDelete
|
||||||
|
end
|
||||||
|
object N2: TMenuItem
|
||||||
|
Caption = '-'
|
||||||
|
end
|
||||||
|
object MoveUp1: TMenuItem
|
||||||
|
Action = acMoveUp
|
||||||
|
end
|
||||||
|
object MoveDown1: TMenuItem
|
||||||
|
Action = acMoveDown
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
577
components/jvcllaz/design/JvValidatorsEditorForm.pas
Normal file
577
components/jvcllaz/design/JvValidatorsEditorForm.pas
Normal file
@ -0,0 +1,577 @@
|
|||||||
|
{-----------------------------------------------------------------------------
|
||||||
|
The contents of this file are subject to the Mozilla Public License
|
||||||
|
Version 1.1 (the "License"); you may not use this file except in compliance
|
||||||
|
with the License. You may obtain a copy of the License at
|
||||||
|
http://www.mozilla.org/MPL/MPL-1.1.html
|
||||||
|
|
||||||
|
Software distributed under the License is distributed on an "AS IS" basis,
|
||||||
|
WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See the License for
|
||||||
|
the specific language governing rights and limitations under the License.
|
||||||
|
|
||||||
|
The Original Code is: JvValidatorsEditorForm.PAS, released on 2003-01-01.
|
||||||
|
|
||||||
|
The Initial Developer of the Original Code is Peter Th�rnqvist [peter3 att users dott sourceforge dott net] .
|
||||||
|
Portions created by Peter Th�rnqvist are Copyright (C) 2003 Peter Th�rnqvist.
|
||||||
|
All Rights Reserved.
|
||||||
|
|
||||||
|
Contributor(s):
|
||||||
|
|
||||||
|
You may retrieve the latest version of this file at the Project JEDI's JVCL home page,
|
||||||
|
located at http://jvcl.delphi-jedi.org
|
||||||
|
|
||||||
|
Known Issues:
|
||||||
|
-----------------------------------------------------------------------------}
|
||||||
|
// $Id$
|
||||||
|
|
||||||
|
unit JvValidatorsEditorForm;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
SysUtils, Classes,
|
||||||
|
Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, Menus, ActnList,
|
||||||
|
ComponentEditors, PropEdits,
|
||||||
|
JvValidators;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TfrmValidatorsEditor }
|
||||||
|
|
||||||
|
TfrmValidatorsEditor = class(TForm)
|
||||||
|
ToolBar1: TToolBar;
|
||||||
|
btnNew: TToolButton;
|
||||||
|
btnDelete: TToolButton;
|
||||||
|
StatusBar1: TStatusBar;
|
||||||
|
lbValidators: TListBox;
|
||||||
|
popNew: TPopupMenu;
|
||||||
|
alEditor: TActionList;
|
||||||
|
acDelete: TAction;
|
||||||
|
il16: TImageList;
|
||||||
|
ToolButton1: TToolButton;
|
||||||
|
ToolButton2: TToolButton;
|
||||||
|
ToolButton3: TToolButton;
|
||||||
|
acMoveUp: TAction;
|
||||||
|
acMoveDown: TAction;
|
||||||
|
popForm: TPopupMenu;
|
||||||
|
N1: TMenuItem;
|
||||||
|
Delete1: TMenuItem;
|
||||||
|
N2: TMenuItem;
|
||||||
|
MoveUp1: TMenuItem;
|
||||||
|
MoveDown1: TMenuItem;
|
||||||
|
procedure alEditorUpdate({%H-}AAction: TBasicAction; var {%H-}Handled: Boolean);
|
||||||
|
procedure FormClose(Sender: TObject; var AAction: TCloseAction);
|
||||||
|
procedure acDeleteExecute(Sender: TObject);
|
||||||
|
procedure lbValidatorsClick(Sender: TObject);
|
||||||
|
procedure acMoveUpExecute(Sender: TObject);
|
||||||
|
procedure acMoveDownExecute(Sender: TObject);
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
private
|
||||||
|
FDesigner: TComponentEditorDesigner;
|
||||||
|
FValidator: TJvValidators;
|
||||||
|
FFilling: Boolean;
|
||||||
|
function AddExisting(Validator: TJvBaseValidator): Integer; overload;
|
||||||
|
function AddNew(ValidatorClass: TJvBaseValidatorClass): Integer; overload;
|
||||||
|
procedure Delete(Index: Integer);
|
||||||
|
procedure ClearValidators;
|
||||||
|
procedure SelectItem(AObject: TPersistent);
|
||||||
|
procedure UpdateItem(Index: Integer);
|
||||||
|
procedure UpdateCaption;
|
||||||
|
procedure SetValidator(const Value: TJvValidators);
|
||||||
|
procedure DoAddNewValidator(Sender: TObject);
|
||||||
|
procedure AddValidatorClasses;
|
||||||
|
protected
|
||||||
|
procedure ItemDeleted(Item: TPersistent);
|
||||||
|
procedure OnComponentRenamed(AComponent: TComponent);
|
||||||
|
procedure OnGetSelection(const ASelection: TPersistentSelectionList);
|
||||||
|
procedure OnSetSelection(const ASelection: TPersistentSelectionList);
|
||||||
|
public
|
||||||
|
constructor Create(TheOwner: TComponent); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
procedure Activated;
|
||||||
|
property Validator: TJvValidators read FValidator write SetValidator;
|
||||||
|
property Designer: TComponentEditorDesigner read FDesigner write FDesigner;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TJvValidatorEditor = class(TComponentEditor)
|
||||||
|
public
|
||||||
|
function GetVerb({%H-}Index: Integer): string; override;
|
||||||
|
function GetVerbCount: Integer; override;
|
||||||
|
procedure ExecuteVerb(Index: Integer); override;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TJvPropertyValidateProperty = class(TStringProperty)
|
||||||
|
public
|
||||||
|
function GetAttributes: TPropertyAttributes; override;
|
||||||
|
procedure GetValues(Proc: TGetStrProc); override;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TJvPropertyToCompareProperty = class(TStringProperty)
|
||||||
|
public
|
||||||
|
function GetAttributes: TPropertyAttributes; override;
|
||||||
|
procedure GetValues(Proc: TGetStrProc); override;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
TypInfo,
|
||||||
|
{JvErrorIndicator,} JvDsgnConsts;
|
||||||
|
|
||||||
|
{$R *.lfm}
|
||||||
|
|
||||||
|
const
|
||||||
|
ValidKinds: TTypeKinds =
|
||||||
|
[tkInteger, tkChar, tkEnumeration, tkFloat, tkString, tkSet,
|
||||||
|
tkWChar, tkLString, tkUString, tkWString, tkAString, tkVariant, tkInt64];
|
||||||
|
|
||||||
|
procedure ShowEditor(ADesigner: TComponentEditorDesigner; AValidator: TJvValidators);
|
||||||
|
var
|
||||||
|
I: Integer;
|
||||||
|
AEditor: TfrmValidatorsEditor;
|
||||||
|
begin
|
||||||
|
// because the page list editor is not show modal, so
|
||||||
|
// we need to find it rather than create a new instance.
|
||||||
|
AEditor := nil;
|
||||||
|
for I := 0 to Screen.FormCount - 1 do
|
||||||
|
if Screen.Forms[I] is TfrmValidatorsEditor then
|
||||||
|
if TfrmValidatorsEditor(Screen.Forms[I]).Validator = AValidator then
|
||||||
|
begin
|
||||||
|
AEditor := TfrmValidatorsEditor(Screen.Forms[I]);
|
||||||
|
Break;
|
||||||
|
end;
|
||||||
|
// Show the wizard editor
|
||||||
|
if Assigned(AEditor) then
|
||||||
|
begin
|
||||||
|
AEditor.Show;
|
||||||
|
if AEditor.WindowState = wsMinimized then
|
||||||
|
AEditor.WindowState := wsNormal;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
AEditor := TfrmValidatorsEditor.Create(Application);
|
||||||
|
try
|
||||||
|
AEditor.Designer := ADesigner;
|
||||||
|
AEditor.Validator := AValidator;
|
||||||
|
AEditor.Show;
|
||||||
|
except
|
||||||
|
AEditor.Free;
|
||||||
|
raise;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//=== { TJvValidatorEditor } =================================================
|
||||||
|
|
||||||
|
procedure TJvValidatorEditor.ExecuteVerb(Index: Integer);
|
||||||
|
begin
|
||||||
|
if (Index = 0) and (Component is TJvValidators) then
|
||||||
|
ShowEditor(Designer, TJvValidators(Component))
|
||||||
|
else
|
||||||
|
inherited ExecuteVerb(Index);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvValidatorEditor.GetVerb(Index: Integer): string;
|
||||||
|
begin
|
||||||
|
Result := RsJvValidatorsItemsEditorEllipsis;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvValidatorEditor.GetVerbCount: Integer;
|
||||||
|
begin
|
||||||
|
Result := 1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//== TfrmValidatorsEditor ====================================================
|
||||||
|
|
||||||
|
procedure TfrmValidatorsEditor.FormCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
AddValidatorClasses;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmValidatorsEditor.Activated;
|
||||||
|
var
|
||||||
|
I: Integer;
|
||||||
|
Index: Integer;
|
||||||
|
begin
|
||||||
|
if FFilling then
|
||||||
|
Exit;
|
||||||
|
FFilling := True;
|
||||||
|
try
|
||||||
|
Index := lbValidators.ItemIndex;
|
||||||
|
lbValidators.Items.BeginUpdate;
|
||||||
|
try
|
||||||
|
ClearValidators;
|
||||||
|
if FValidator <> nil then
|
||||||
|
for I := 0 to FValidator.Count - 1 do
|
||||||
|
AddExisting(FValidator.Items[I]);
|
||||||
|
|
||||||
|
if lbValidators.Items.Count = 0 then
|
||||||
|
Index := -1
|
||||||
|
else
|
||||||
|
if (Index >= lbValidators.Items.Count) then
|
||||||
|
Index := 0;
|
||||||
|
lbValidators.ItemIndex := Index;
|
||||||
|
finally
|
||||||
|
lbValidators.Items.EndUpdate;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
FFilling := False;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmValidatorsEditor.ItemDeleted(Item: TPersistent);
|
||||||
|
var
|
||||||
|
I, J: Integer;
|
||||||
|
begin
|
||||||
|
if not (csDestroying in ComponentState) then
|
||||||
|
begin
|
||||||
|
if Item = Validator then
|
||||||
|
begin
|
||||||
|
Validator := nil;
|
||||||
|
ClearValidators;
|
||||||
|
Close;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
lbValidators.Items.BeginUpdate;
|
||||||
|
try
|
||||||
|
for I := 0 to lbValidators.Items.Count - 1 do
|
||||||
|
if Item = lbValidators.Items.Objects[I] then
|
||||||
|
begin
|
||||||
|
J := lbValidators.ItemIndex;
|
||||||
|
lbValidators.Items.Delete(I);
|
||||||
|
if lbValidators.ItemIndex < 0 then
|
||||||
|
lbValidators.ItemIndex := J - 1;
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
lbValidators.Items.EndUpdate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
UpdateCaption;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmValidatorsEditor.OnComponentRenamed(AComponent: TComponent);
|
||||||
|
var
|
||||||
|
I: Integer;
|
||||||
|
begin
|
||||||
|
I := lbValidators.Items.IndexOfObject(AComponent);
|
||||||
|
if I >= 0 then
|
||||||
|
lbValidators.Items[I] := AComponent.Name;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmValidatorsEditor.OnGetSelection(
|
||||||
|
const ASelection: TPersistentSelectionList);
|
||||||
|
begin
|
||||||
|
if not Assigned(ASelection) then
|
||||||
|
Exit;
|
||||||
|
if ASelection.Count > 0 then
|
||||||
|
ASelection.Clear;
|
||||||
|
if lbValidators.ItemIndex >= 0 then
|
||||||
|
ASelection.Add(TPersistent(lbValidators.Items.Objects[lbValidators.ItemIndex]));
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmValidatorsEditor.OnSetSelection(
|
||||||
|
const ASelection: TPersistentSelectionList);
|
||||||
|
begin
|
||||||
|
if Assigned(ASelection) then
|
||||||
|
if ASelection.Count > 0 then
|
||||||
|
lbValidators.ItemIndex := lbValidators.Items.IndexOfObject(ASelection.Items[0])
|
||||||
|
else
|
||||||
|
lbValidators.ItemIndex := -1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmValidatorsEditor.UpdateItem(Index: Integer);
|
||||||
|
var
|
||||||
|
I: Integer;
|
||||||
|
begin
|
||||||
|
with lbValidators do
|
||||||
|
if (Index < 0) or (Index >= Items.Count) then
|
||||||
|
for I := 0 to Items.Count - 1 do
|
||||||
|
Items[I] := TComponent(Items.Objects[I]).Name
|
||||||
|
else
|
||||||
|
Items[Index] := TComponent(Items.Objects[Index]).Name;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfrmValidatorsEditor.AddExisting(Validator: TJvBaseValidator): Integer;
|
||||||
|
begin
|
||||||
|
Result := lbValidators.Items.AddObject(Validator.Name, Validator);
|
||||||
|
Designer.PropertyEditorHook.PersistentAdded(Validator, True);
|
||||||
|
if not FFilling then
|
||||||
|
begin
|
||||||
|
lbValidators.ItemIndex := Result;
|
||||||
|
lbValidatorsClick(nil);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfrmValidatorsEditor.AddNew(ValidatorClass: TJvBaseValidatorClass): Integer;
|
||||||
|
var
|
||||||
|
V: TJvBaseValidator;
|
||||||
|
begin
|
||||||
|
V := ValidatorClass.Create(FValidator.Owner);
|
||||||
|
try
|
||||||
|
V.Name := Designer.UniqueName(V.ClassName);
|
||||||
|
FValidator.Insert(V);
|
||||||
|
Result := AddExisting(V);
|
||||||
|
except
|
||||||
|
V.Free;
|
||||||
|
raise;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmValidatorsEditor.ClearValidators;
|
||||||
|
begin
|
||||||
|
lbValidators.Items.Clear;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmValidatorsEditor.Delete(Index: Integer);
|
||||||
|
var
|
||||||
|
V: TJvBaseValidator;
|
||||||
|
begin
|
||||||
|
with lbValidators do
|
||||||
|
if (Index > -1) and (Index < Items.Count) then
|
||||||
|
begin
|
||||||
|
V := TJvBaseValidator(Items.Objects[Index]);
|
||||||
|
FValidator.Remove(V);
|
||||||
|
V.Free;
|
||||||
|
Designer.Modified;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmValidatorsEditor.SelectItem(AObject: TPersistent);
|
||||||
|
begin
|
||||||
|
Designer.SelectOnlyThisComponent(TComponent(AObject));
|
||||||
|
Designer.Modified;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmValidatorsEditor.SetValidator(const Value: TJvValidators);
|
||||||
|
begin
|
||||||
|
FValidator := Value;
|
||||||
|
Activated;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmValidatorsEditor.UpdateCaption;
|
||||||
|
begin
|
||||||
|
Caption := RsJvValidatorItemsEditorEllipsis;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmValidatorsEditor.FormClose(Sender: TObject;
|
||||||
|
var AAction: TCloseAction);
|
||||||
|
begin
|
||||||
|
AAction := caFree;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmValidatorsEditor.lbValidatorsClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if lbValidators.ItemIndex > -1 then
|
||||||
|
with lbValidators do
|
||||||
|
SelectItem(TJvBaseValidator(Items.Objects[ItemIndex]));
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmValidatorsEditor.alEditorUpdate(AAction: TBasicAction;
|
||||||
|
var Handled: Boolean);
|
||||||
|
begin
|
||||||
|
acDelete.Enabled := lbValidators.ItemIndex > -1;
|
||||||
|
acMoveUp.Enabled := lbValidators.ItemIndex > 0;
|
||||||
|
acMoveDown.Enabled := acDelete.Enabled and
|
||||||
|
(lbValidators.ItemIndex < lbValidators.Items.Count - 1);
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
procedure TfrmValidatorsEditor.acDeleteExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Delete(lbValidators.ItemIndex);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmValidatorsEditor.acMoveUpExecute(Sender: TObject);
|
||||||
|
var
|
||||||
|
I: Integer;
|
||||||
|
begin
|
||||||
|
with lbValidators do
|
||||||
|
begin
|
||||||
|
I := ItemIndex;
|
||||||
|
Items.Exchange(I, I - 1);
|
||||||
|
FValidator.Exchange(I, I - 1);
|
||||||
|
Designer.Modified;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmValidatorsEditor.acMoveDownExecute(Sender: TObject);
|
||||||
|
var
|
||||||
|
I: Integer;
|
||||||
|
begin
|
||||||
|
with lbValidators do
|
||||||
|
begin
|
||||||
|
I := ItemIndex;
|
||||||
|
Items.Exchange(I, I + 1);
|
||||||
|
FValidator.Exchange(I, I + 1);
|
||||||
|
Designer.Modified;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmValidatorsEditor.DoAddNewValidator(Sender: TObject);
|
||||||
|
begin
|
||||||
|
with Sender as TAction do
|
||||||
|
AddNew(TJvBaseValidatorClass(Tag));
|
||||||
|
end;
|
||||||
|
|
||||||
|
type
|
||||||
|
TJvBaseValidatorAccess = class(TJvBaseValidator);
|
||||||
|
|
||||||
|
procedure TfrmValidatorsEditor.AddValidatorClasses;
|
||||||
|
var
|
||||||
|
I, J, K: Integer;
|
||||||
|
A: TAction;
|
||||||
|
M: TMenuItem;
|
||||||
|
AName: string;
|
||||||
|
AClass: TJvBaseValidatorClass = nil;
|
||||||
|
begin
|
||||||
|
J := TJvBaseValidatorAccess.BaseValidatorsCount;
|
||||||
|
K := 0;
|
||||||
|
for I := 0 to J - 1 do
|
||||||
|
begin
|
||||||
|
TJvBaseValidatorAccess.GetBaseValidatorInfo(I, AName, AClass);
|
||||||
|
if AName = '' then
|
||||||
|
begin
|
||||||
|
Inc(K);
|
||||||
|
Continue;
|
||||||
|
end;
|
||||||
|
A := TAction.Create(Self);
|
||||||
|
A.Caption := AName;
|
||||||
|
A.Tag := NativeInt(AClass);
|
||||||
|
A.ImageIndex := 0;
|
||||||
|
if I - K < 9 then
|
||||||
|
A.ShortCut := ShortCut(Ord('0') + I + 1 - K, [ssCtrl]);
|
||||||
|
A.OnExecute := @DoAddNewValidator;
|
||||||
|
M := TMenuItem.Create(popNew);
|
||||||
|
M.Action := A;
|
||||||
|
if I = 0 then
|
||||||
|
begin
|
||||||
|
M.Default := True;
|
||||||
|
btnNew.Action := A;
|
||||||
|
end;
|
||||||
|
popNew.Items.Add(M);
|
||||||
|
M := TMenuItem.Create(popForm);
|
||||||
|
M.Action := A;
|
||||||
|
if I = 0 then
|
||||||
|
M.Default := True;
|
||||||
|
popForm.Items.Insert(I,M);
|
||||||
|
end;
|
||||||
|
if J < 2 then
|
||||||
|
btnNew.Style := tbsButton
|
||||||
|
else
|
||||||
|
btnNew.Style := tbsDropDown;
|
||||||
|
ToolBar1.Width := 0;
|
||||||
|
end;
|
||||||
|
|
||||||
|
constructor TfrmValidatorsEditor.Create(TheOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited Create(TheOwner);
|
||||||
|
if Assigned(GlobalDesignHook) then
|
||||||
|
begin
|
||||||
|
GlobalDesignHook.AddHandlerComponentRenamed(@OnComponentRenamed);
|
||||||
|
GlobalDesignHook.AddHandlerPersistentDeleting(@ItemDeleted);
|
||||||
|
GlobalDesignHook.AddHandlerGetSelection(@OnGetSelection);
|
||||||
|
GlobalDesignHook.AddHandlerSetSelection(@OnSetSelection);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TfrmValidatorsEditor.Destroy;
|
||||||
|
begin
|
||||||
|
if Assigned(GlobalDesignHook) then
|
||||||
|
begin
|
||||||
|
GlobalDesignHook.AddHandlerComponentRenamed(@OnComponentRenamed);
|
||||||
|
GlobalDesignHook.RemoveHandlerPersistentDeleting(@ItemDeleted);
|
||||||
|
GlobalDesignHook.RemoveHandlerGetSelection(@OnGetSelection);
|
||||||
|
GlobalDesignHook.RemoveHandlerSetSelection(@OnSetSelection);
|
||||||
|
end;
|
||||||
|
inherited Destroy;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//=== { TJvPropertyValidateProperty } ========================================
|
||||||
|
|
||||||
|
function TJvPropertyValidateProperty.GetAttributes: TPropertyAttributes;
|
||||||
|
begin
|
||||||
|
Result := [paValueList, paSortList];
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvPropertyValidateProperty.GetValues(Proc: TGetStrProc);
|
||||||
|
var
|
||||||
|
PropList: PPropList;
|
||||||
|
PropInfo: PPropInfo;
|
||||||
|
I, J: Integer;
|
||||||
|
C: TControl;
|
||||||
|
V:TJvBaseValidator;
|
||||||
|
begin
|
||||||
|
if not (GetComponent(0) is TJvBaseValidator) then
|
||||||
|
Exit;
|
||||||
|
V := TJvBaseValidator(GetComponent(0));
|
||||||
|
C := V.ControlToValidate;
|
||||||
|
if C = nil then
|
||||||
|
Exit;
|
||||||
|
J := GetPropList(PTypeInfo(C.ClassInfo), ValidKinds, nil);
|
||||||
|
if J > 0 then
|
||||||
|
begin
|
||||||
|
GetMem(PropList, J * SizeOf(Pointer));
|
||||||
|
J := GetPropList(PTypeInfo(C.ClassInfo), ValidKinds, PropList);
|
||||||
|
if J > 0 then
|
||||||
|
try
|
||||||
|
if V.GetDataLink(C) <> nil then
|
||||||
|
Proc(cValidatorsDBValue);
|
||||||
|
for I := 0 to J - 1 do
|
||||||
|
begin
|
||||||
|
PropInfo := PropList^[I];
|
||||||
|
if (PropInfo <> nil) and (PropInfo^.PropType^.Kind in ValidKinds) then
|
||||||
|
Proc(PropInfo^.Name);
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
FreeMem(PropList);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//=== { TJvPropertyToCompareProperty } =======================================
|
||||||
|
|
||||||
|
function TJvPropertyToCompareProperty.GetAttributes: TPropertyAttributes;
|
||||||
|
begin
|
||||||
|
Result := [paValueList, paSortList];
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvPropertyToCompareProperty.GetValues(Proc: TGetStrProc);
|
||||||
|
var
|
||||||
|
PropList: PPropList;
|
||||||
|
PropInfo: PPropInfo;
|
||||||
|
I, J: Integer;
|
||||||
|
C: TControl;
|
||||||
|
V:TJvControlsCompareValidator;
|
||||||
|
begin
|
||||||
|
if not (GetComponent(0) is TJvControlsCompareValidator) then
|
||||||
|
Exit;
|
||||||
|
V := TJvControlsCompareValidator(GetComponent(0));
|
||||||
|
C := V.CompareToControl;
|
||||||
|
if C = nil then
|
||||||
|
Exit;
|
||||||
|
J := GetPropList(PTypeInfo(C.ClassInfo), ValidKinds, nil);
|
||||||
|
if J > 0 then
|
||||||
|
begin
|
||||||
|
GetMem(PropList, J * SizeOf(Pointer));
|
||||||
|
J := GetPropList(PTypeInfo(C.ClassInfo), ValidKinds, PropList);
|
||||||
|
if J > 0 then
|
||||||
|
try
|
||||||
|
|
||||||
|
if V.GetDataLink(C) <> nil then
|
||||||
|
Proc(cValidatorsDBValue);
|
||||||
|
|
||||||
|
for I := 0 to J - 1 do
|
||||||
|
begin
|
||||||
|
PropInfo := PropList^[I];
|
||||||
|
if (PropInfo <> nil) and (PropInfo^.PropType^.Kind in ValidKinds) then
|
||||||
|
Proc(PropInfo^.Name);
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
FreeMem(PropList);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
Reference in New Issue
Block a user