+ Some more fixes to rtlconst. Const strings moved from classes to rtlconst

rtl/darwin/classes.pp

@@ -25,6 +25,7 @@ interface
 
 uses
   sysutils,
+  rtlconst,
   typinfo;
 
 {$i classesh.inc}
@@ -50,7 +51,10 @@ finalization
 end.
 {
   $Log$
-  Revision 1.1  2004-01-04 20:05:38  jonas
+  Revision 1.2  2004-01-10 20:15:21  michael
+  + Some more fixes to rtlconst. Const strings moved from classes to rtlconst
+
+  Revision 1.1  2004/01/04 20:05:38  jonas
     * first working version of the Darwin/Mac OS X (for PowerPC) RTL
       Several non-essential units are still missing, but make cycle works
 

rtl/freebsd/classes.pp

@@ -25,6 +25,7 @@ interface
 
 uses
   sysutils,
+  rtlconst,
   typinfo;
 
 {$i classesh.inc}
@@ -52,7 +53,10 @@ finalization
 end.
 {
   $Log$
-  Revision 1.5  2004-01-03 12:18:29  marco
+  Revision 1.6  2004-01-10 20:13:40  michael
+  + Some more fixes to rtlconst. Const strings moved from classes to rtlconst
+
+  Revision 1.5  2004/01/03 12:18:29  marco
    * a lot of copyright notices and CVS logs added and fixed
 
   Revision 1.4  2003/12/22 16:16:33  marco

rtl/go32v2/classes.pp

@@ -25,6 +25,7 @@ interface
 
 uses
   typinfo,
+  rtlconst,
   sysutils;
 
 {$i classesh.inc}
@@ -43,7 +44,10 @@ finalization
 end.
 {
   $Log$
-  Revision 1.1  2003-10-06 21:01:06  peter
+  Revision 1.2  2004-01-10 20:13:19  michael
+  + Some more fixes to rtlconst. Const strings moved from classes to rtlconst
+
+  Revision 1.1  2003/10/06 21:01:06  peter
     * moved classes unit to rtl
 
   Revision 1.1  2003/10/06 20:33:58  peter

rtl/linux/Makefile

@@ -240,7 +240,7 @@ USELIBGGI=NO
 endif
 override TARGET_UNITS+=$(SYSTEMUNIT) baseunix strings systhrds  objpas syscall unixutil heaptrc lineinfo $(LINUXUNIT1) termio unix $(LINUXUNIT2) initc $(CPU_UNITS) dos crt objects printer ggigraph sysutils typinfo math varutils charset ucomplex getopts errors sockets gpm ipc serial terminfo dl dynlibs video mouse keyboard variants types dateutils sysconst cthreads classes strutils rtlconst
 override TARGET_LOADERS+=prt0 dllprt0 cprt0 gprt0 cprt21 gprt21
-override TARGET_RSTS+=math varutils typinfo variants classes sysconst rtlconst
+override TARGET_RSTS+=math varutils typinfo variants systhrds sysconst rtlconst
 override CLEAN_UNITS+=syslinux linux
 override INSTALL_FPCPACKAGE=y
 override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) $(UNIXINC) $(CPU_TARGET)

rtl/linux/Makefile.fpc

@@ -17,7 +17,7 @@ units=$(SYSTEMUNIT) baseunix strings systhrds  objpas syscall unixutil \
       video mouse keyboard variants types dateutils sysconst \
       cthreads classes strutils rtlconst
 
-rsts=math varutils typinfo variants classes sysconst rtlconst
+rsts=math varutils typinfo variants systhrds sysconst rtlconst
 
 [require]
 nortl=y

rtl/netbsd/classes.pp

@@ -25,6 +25,7 @@ interface
 
 uses
   sysutils,
+  rtlconst,
   typinfo;
 
 {$i classesh.inc}
@@ -52,7 +53,10 @@ finalization
 end.
 {
   $Log$
-  Revision 1.2  2004-01-04 01:11:28  marco
+  Revision 1.3  2004-01-10 20:15:21  michael
+  + Some more fixes to rtlconst. Const strings moved from classes to rtlconst
+
+  Revision 1.2  2004/01/04 01:11:28  marco
    * a new qod port of the freebsd rtl. To be refined in the coming days.
 
   Revision 1.5  2004/01/03 12:18:29  marco

rtl/netware/classes.pp

@@ -25,6 +25,7 @@ interface
 
 uses
   sysutils,
+  rtlconst,
   typinfo,
   systhrds;
 
@@ -38,7 +39,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.1  2003-10-06 21:01:06  peter
+  Revision 1.2  2004-01-10 20:15:21  michael
+  + Some more fixes to rtlconst. Const strings moved from classes to rtlconst
+
+  Revision 1.1  2003/10/06 21:01:06  peter
     * moved classes unit to rtl
 
   Revision 1.1  2003/03/25 17:56:19  armin

rtl/objpas/classes/constse.inc

@@ -1,288 +0,0 @@
-{
-    $Id$
-    This file is part of the Free Component Library (FCL)
-    Copyright (c) 1999-2000 by the Free Pascal development team
-
-    See the file COPYING.FPC, included in this distribution,
-    for details about the copyright.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************}
-
-const
-  SAssignError = '%s can not be assigned to %s';
-  SFCreateError = 'File %s can not be created';
-  SFOpenError = 'File %s can not be opened';
-  SReadError = 'Stream read error';
-  SWriteError = 'Stream write error';
-  SMemoryStreamError = 'Cannot expand memory stream';
-  SCantWriteResourceStreamError = 'Can not write to read-only ResourceStream';
-  SDuplicateReference = 'WriteObject was called twice for one instance';
-  SClassNotFound = 'Class %s not found';
-  SInvalidImage = 'Illegal stream image';
-  SResNotFound = 'Resource %s not found';
-  SClassMismatch = 'Resource %s has wrong class';
-  SListIndexError = 'List index exceeds bounds (%d)';
-  SListCapacityError = 'The maximum list capacity is reached (%d)';
-  SListCountError = 'List count too large (%d)';
-  SSortedListError = 'Operation not allowed on sorted StringLists';
-  SDuplicateString = 'Duplicate entries not allowed in StringList';
-  SInvalidTabIndex = 'Registerindex out of bounds';
-  SDuplicateName = 'A Component with name %s exists already';
-  SInvalidName = '"%s" is not a valid identifier name';
-  SDuplicateClass = 'A class with name %s exists already';
-  SNoComSupport = '%s is not registered as COM Class';
-  SLineTooLong = 'Line too long';
-  SRangeError = 'Range error';
-  SSeekNotImplemented = '64bit Seek not implemented for class %s';
-  SErrNoStreaming = 'Failed to initialize component: No streaming method available.';
-
-  SInvalidPropertyValue = 'Invalid property value';
-  SInvalidPropertyPath = 'Invalid property path';
-  SUnknownProperty = 'Unknown property';
-  SReadOnlyProperty = 'Read-only property';
-  SUnknownPropertyType = 'Unknown property type %d';
-  SPropertyException = 'Error while reading %s%s%s: %s';
-  SAncestorNotFound = 'Ancestor of ''%s'' not found';
-  SInvalidBitmap = 'Invalid Bitmap';
-  SInvalidIcon = 'Invalid Icon';
-  SInvalidMetafile = 'Invalid Metafile';
-  SInvalidPixelFormat = 'Invalid Pixelformat';
-  SBitmapEmpty = 'Bitmap is empty';
-  SScanLine = 'Line index out of bounds';
-  SChangeIconSize = 'Can not change icon size';
-  SOleGraphic = 'Invalid operation for TOleGraphic';
-  SUnknownExtension = 'Unknown extension (.%s)';
-  SUnknownClipboardFormat = 'Unknown clipboard format';
-  SOutOfResources = 'Out of system resources';
-  SNoCanvasHandle = 'Canvas handle does not allow drawing';
-  SInvalidImageSize = 'Invalid image size';
-  STooManyImages = 'Too many images';
-  SDimsDoNotMatch = 'Image size mismatch';
-  SInvalidImageList = 'Invalid ImageList';
-  SReplaceImage = 'Image can not be replaced';
-  SImageIndexError = 'Invalid ImageList index';
-  SImageReadFail = 'The ImageList data could not be read from stream';
-  SImageWriteFail = 'The ImageList data could not be written to stream';
-  SWindowDCError = 'Error when??';
-  SClientNotSet = 'Client of TDrag was not initialized';
-  SWindowClass = 'Error when initializing Window Class';
-  SWindowCreate = 'Error when creating Window';
-  SCannotFocus = 'A disbled or invisible Window cannot get focus';
-  SParentRequired = 'Element ''%s'' has no parent Window';
-  SMDIChildNotVisible = 'A MDI-Child Windows can not be hidden.';
-  SVisibleChanged = 'Visible property cannot be changed in OnShow or OnHide handlers';
-  SCannotShowModal = 'A visible Window can not be made modal';
-  SScrollBarRange = 'Scrollbar property out of range';
-  SPropertyOutOfRange = 'Property %s out of range';
-  SMenuIndexError = 'Menu Index out of range';
-  SMenuReinserted = 'Menu reinserted';
-  SMenuNotFound = 'Menu entry not found in menu';
-  SNoTimers = 'No timers available';
-  SNotPrinting = 'Printer is not printing';
-  SPrinting = 'Printer is busy';
-  SPrinterIndexError = 'PrinterIndex out of range';
-  SInvalidPrinter = 'Selected printer is invalid';
-  SDeviceOnPort = '%s on %s';
-  SGroupIndexTooLow = 'GroupIndex must be greater than preceding menu groupindex';
-  STwoMDIForms = 'There is only one MDI window available';
-  SNoMDIForm = 'No MDI form is available, none is active';
-  SRegisterError = 'Invalid registry';
-  SImageCanvasNeedsBitmap = 'A Canvas can only be changedif it contains a bitmap';
-  SControlParentSetToSelf = 'A component can not have itself as parent';
-  SOKButton = 'OK';
-  SCancelButton = 'Cancel';
-  SYesButton = '&Yes';
-  SNoButton = '&No';
-  SHelpButton = '&Help';
-  SCloseButton = '&Close';
-  SIgnoreButton = '&Ignore';
-  SRetryButton = '&Retry';
-  SAbortButton = 'Abort';
-  SAllButton = '&All';
-
-  SFB = 'VH';
-  SFG = 'VG';
-  SBG = 'HG';
-  SOldTShape = 'Can not load older version of TShape';
-  SVMetafiles = 'MetaFiles';
-  SVEnhMetafiles = 'Enhanced MetaFiles';
-  SVIcons = 'Icons';
-  SVBitmaps = 'Bitmaps';
-  SGridTooLarge = 'Grid to large for this operation';
-  STooManyDeleted = 'Zu viele Zeilen oder Spalten gelöscht';
-  SIndexOutOfRange = 'Grid index out of range';
-  SFixedColTooBig = 'The number of fixed Columns must be less than the Column count';
-  SFixedRowTooBig = 'The number of fixed Rows must be less that the Row count';
-  SInvalidStringGridOp = 'Es können keine Zeilen des ''Grids'' gelöscht oder eingefügt werden';
-  SParseError = '%s in Line %d';
-
-  SIdentifierExpected = 'Identifier expected';
-  SStringExpected = 'String expected';
-  SNumberExpected = 'Number expected';
-
-  SCharExpected = '%s expected';
-
-  SSymbolExpected = '%s expected';
-
-  SInvalidNumber = 'Invalid numerical value';
-  SInvalidString = 'Invalid string constant';
-  SInvalidProperty = 'Invalid property value';
-  SInvalidBinary = 'Invalid binary';
-  SOutlineIndexError = 'Node index not found';
-  SOutlineExpandError = 'Parent node must be expanded';
-  SInvalidCurrentItem = 'Invalid item';
-  SMaskErr = 'Invalid mask';
-  SMaskEditErr = 'Invalid mask. Use the ESC-key to undo changes.';
-  SOutlineError = 'Invalid Node index';
-  SOutlineBadLevel = '???';
-  SOutlineSelection = 'Ungültige Auswahl';
-  SOutlineFileLoad = 'Fehler beim Dateiladen';
-  SOutlineLongLine = 'Zeile zu lang';
-  SOutlineMaxLevels = 'Maximale Gliederungstiefe überschritten';
-
-  SMsgDlgWarning = 'Warning';
-  SMsgDlgError = 'Error';
-  SMsgDlgInformation = 'Information';
-  SMsgDlgConfirm = 'Confirm';
-  SMsgDlgYes = '&Yes';
-  SMsgDlgNo = '&No';
-  SMsgDlgOK = 'OK';
-  SMsgDlgCancel = 'Cancel';
-  SMsgDlgHelp = '&Help';
-  SMsgDlgHelpNone = 'No help available';
-  SMsgDlgHelpHelp = 'Help';
-  SMsgDlgAbort = '&Abort';
-  SMsgDlgRetry = '&Retry';
-  SMsgDlgIgnore = '&Ignore';
-  SMsgDlgAll = '&All';
-  SMsgDlgNoToAll = 'N&o to all';
-  SMsgDlgYesToAll = 'Yes to A&lle';
-
-  SmkcBkSp = 'Backspace';
-  SmkcTab = 'Tab';
-  SmkcEsc = 'Esc';
-  SmkcEnter = 'Enter';
-  SmkcSpace = 'Space';
-  SmkcPgUp = 'Page up';
-  SmkcPgDn = 'Page down';
-  SmkcEnd = 'End';
-  SmkcHome = 'Home';
-  SmkcLeft = 'Left';
-  SmkcUp = 'Up';
-  SmkcRight = 'Right';
-  SmkcDown = 'Down';
-  SmkcIns = 'Insert';
-  SmkcDel = 'Delete';
-  SmkcShift = 'Shift+';
-  SmkcCtrl = 'Ctrl+';
-  SmkcAlt = 'Alt+';
-
-  srUnknown = '(Ukknown)';
-  srNone = '(Empty)';
-  SOutOfRange = 'Value must be between %d and %d';
-  SCannotCreateName = 'Cannot use standard name for and unknown component';
-
-  SDateEncodeError = 'Ungültiges Argument für Datumskodierung';
-  STimeEncodeError = 'Ungültiges Argument für Zeitkodierung';
-  SInvalidDate = '''''%s'''' ist kein gültiges Datum';
-  SInvalidTime = '''''%s'''' ist keine gültige Zeit';
-  SInvalidDateTime = '''''%s'''' ist kein gültiges Datum und Zeit';
-  SInsertLineError = 'Zeile kann nicht eingefügt werden';
-
-  SCannotDragForm = 'Formulare können nicht gezogen werden';
-  SPutObjectError = 'PutObject auf undefiniertes Element';
-  SCardDLLNotLoaded = 'CARDS.DLL kann nicht geladen werden';
-  SDuplicateCardId = 'Doppelte CardId gefunden';
-
-  SDdeErr = 'Ein Fehler wurde von der DDE zurückgeliefert  ($0%x)';
-  SDdeConvErr = 'DDE Fehler - Konversation wurde nicht hergestellt ($0%x)';
-  SDdeMemErr = 'Fehler trat auf, da unzureichender Speicher für DDE ($0%x)';
-  SDdeNoConnect = 'DDE-Konversation kann nicht eingerichtet werden';
-
-
-  SDefaultFilter = 'Alle Dateien (*.*)|*.*';
-  sAllFilter = 'Alle Dateien';
-  SNoVolumeLabel = ': [ - Ohne Namen - ]';
-
-  SConfirmCreateDir = 'Das angegebene Verzeichnis existiert nicht. Soll es angelegt werden?';
-  SSelectDirCap = 'Verzeichnis auswählen';
-  SCannotCreateDir = 'Das Verzeichnis kann nicht erstellt werden';
-  SDirNameCap = 'Verzeichnis&name:';
-  SDrivesCap = '&Laufwerke:';
-  SDirsCap = '&Verzeichnisse:';
-  SFilesCap = '&Dateien: (*.*)';
-  SNetworkCap = 'Ne&tzwerk...';
-
-  SColorPrefix = 'Farbe';
-  SColorTags = 'ABCDEFGHIJKLMNOP';
-
-  SInvalidClipFmt = 'Ungültiges Format der Zwischenablage';
-  SIconToClipboard = 'Zwischenablage unterstützt keine Symbole';
-
-  SDefault = 'Vorgabe';
-
-  SInvalidMemoSize = 'Text überschreitet Memo-Kapazität';
-  SCustomColors = 'Selbstdefinierte Farben';
-  SInvalidPrinterOp = 'Operation auf ausgewähltem Drucker nicht verfügbar';
-  SNoDefaultPrinter = 'Zur Zeit ist kein Standard-Drucker gewählt';
-
-  SIniFileWriteError = 'nach %s kann nicht geschrieben werden';
-
-  SBitsIndexError = 'Bits-Index außerhalb des zulässigen Bereichs';
-
-  SUntitled = '(Unbenannt)';
-
-  SInvalidRegType = 'Ungültiger Datentyp für ''%s''';
-  SRegCreateFailed = 'Erzeugung von Schlüssel %s misslungen';
-  SRegSetDataFailed = 'Konnte Daten für ''%s'' nicht setzen';
-  SRegGetDataFailed = 'Konnte Daten für ''%s'' nicht holen';
-
-  SUnknownConversion = 'Unbekannte Dateierweiterung für RichEdit-Konvertierung (.%s)';
-  SDuplicateMenus = 'Menü ''%s'' wird bereits von einem anderen Formular benutzt';
-
-  SPictureLabel = 'Bild:';
-  SPictureDesc = ' (%dx%d)';
-  SPreviewLabel = 'Vorschau';
-
-  SCannotOpenAVI = 'AVI kann nicht geöffnet werden';
-
-  SNotOpenErr = 'Kein MCI-Gerät geöffnet';
-  SMPOpenFilter = 'Alle Dateien (*.*)|*.*|Wave-Dateien (*.WAV)|*.WAV|Midi-Dateien (*.MID)|*.MID|Video für Windows (*.avi)|*.avi';
-  SMCINil = '';
-  SMCIAVIVideo = 'AVIVideo';
-  SMCICDAudio = 'CDAudio';
-  SMCIDAT = 'DAT';
-  SMCIDigitalVideo = 'DigitalVideo';
-  SMCIMMMovie = 'MMMovie';
-  SMCIOther = 'Andere';
-  SMCIOverlay = 'Overlay';
-  SMCIScanner = 'Scanner';
-  SMCISequencer = 'Sequencer';
-  SMCIVCR = 'VCR';
-  SMCIVideodisc = 'Videodisc';
-  SMCIWaveAudio = 'WaveAudio';
-  SMCIUnknownError = 'Unbekannter Fehlercode';
-
-  SBoldItalicFont = 'Fett kursiv';
-  SBoldFont = 'Fett';
-  SItalicFont = 'Kursiv';
-  SRegularFont = 'Normal';
-
-  SPropertiesVerb = 'Eigenschaften';
-
-{
-  $Log$
-  Revision 1.1  2003-10-06 21:01:06  peter
-    * moved classes unit to rtl
-
-  Revision 1.8  2003/06/04 17:37:52  michael
-  en InitInheritedComponent erbij voor Delphi 6 compatibiliteit
-
-  Revision 1.7  2002/09/07 15:15:24  peter
-    * old logs removed and tabs fixed
-
-}

rtl/objpas/rtlconst.pp

@@ -23,14 +23,42 @@ ResourceString
     Various error messages.
   ---------------------------------------------------------------------}
 
+  HNoContext                    = 'No context-sensitive Help installed.';
+  HNoSystem                     = 'No Help Manager installed.';
+  HNoTableOfContents            = 'No Table of Contents found.';
+  HNothingFound                 = 'No help found for "%s"';
+  HNoTopics                     = 'No topic-based Help installed.';
+  SAbortButton                  = 'Abort';
+  SAllButton                    = '&All';
+  SAllFilter                    = 'All files';
   SAncestorNotFound             = 'Ancestor class for "%s" not found.';
   SAssignError                  = 'Cannot assign a %s to a %s.';
+  SAsyncSocketError             = 'Asynchronous socket error: %d';
+  SBG                           = 'BG';
+  SBitmapEmpty                  = 'Bitmap is empty';
   SBitsIndexError               = 'Bits index out of range.';
+  SBoldFont                     = 'Bold';
+  SBoldItalicFont               = 'Bold Italic';
   SBucketListLocked             = 'List is locked during an active ForEach.';
-  SCantWriteResourceStreamError = 'Can''t write to a read-only resource stream.';
+  SCancelButton                 = 'Cancel';
+  SCannotCreateDir              = 'Das Verzeichnis kann nicht erstellt werden';
+  SCannotCreateName             = 'Cannot use standard name for and unknown component';
+  SCannotCreateSocket           = 'Unable to create new socket';
+  SCannotDragForm               = 'Forms cannot be dragged';
+  SCannotFocus                  = 'A disbled or invisible Window cannot get focus';
+  SCannotListenOnOpen           = 'Listening on an open socket is not allowed';
+  SCannotOpenAVI                = 'AVI can not be opened';
+  SCannotShowModal              = 'A visible Window can not be made modal';
+  SCantChangeWhileActive        = 'Changing value on an active socket is not allowed';
+  SCantWriteResourceStreamError = 'Can not write to read-only ResourceStream';
+  SCardDLLNotLoaded             = 'CARDS library could not be loaded';
+  SChangeIconSize               = 'Can not change icon size';
   SCharExpected                 = '"%s" expected';
   SCheckSynchronizeError        = 'CheckSynchronize called from non-main thread "$%x"';
+  SClassMismatch                = 'Resource %s has wrong class';
   SClassNotFound                = 'Class "%s" not found';
+  SClientNotSet                 = 'Client of TDrag was not initialized';
+  SCloseButton                  = '&Close';
   SCmplxCouldNotParseImaginary  = 'Failed to parse imaginary portion';
   SCmplxCouldNotParsePlus       = 'Failed to parse required "+" (or "-") symbol';
   SCmplxCouldNotParseReal       = 'Failed to parse real portion';
@@ -38,7 +66,11 @@ ResourceString
   SCmplxErrorSuffix             = '%s [%s<?>%s]';
   SCmplxUnexpectedChars         = 'Unexpected characters';
   SCmplxUnexpectedEOS           = 'Unexpected end of string [%s]';
+  SColorPrefix                  = 'Color';
+  SColorTags                    = 'ABCDEFGHIJKLMNOP';
   SComponentNameTooLong         = 'Component name "%s" exceeds 64 character limit';
+  SConfirmCreateDir             = 'The selected directory does not exist. Should it be created?';
+  SControlParentSetToSelf       = 'A component can not have itself as parent';
   SConvDuplicateFamily          = 'Conversion family "%s" already registered';
   SConvDuplicateType            = 'Conversion type (%s) already registered in %s';
   SConvFactorZero               = '"%s" has a factor of zero';
@@ -52,39 +84,80 @@ ResourceString
   SConvUnknownDescriptionWithPrefix = '[%s%.8x]';
   SConvUnknownFamily            = 'Unknown conversion family: "%s"';
   SConvUnknownType              = 'Unknown conversion type: "%s"';
+  SCustomColors                 = 'Custom colors';
+  SDateEncodeError              = 'Invalid argument for date encode.';
+  SDdeConvErr                   = 'DDE error - conversion was not performed ($0%x)';
+  SDdeErr                       = 'An error was returned by DDE ($0%x)';
+  SDdeMemErr                    = 'An error occurred - not enough memory for DDE ($0%x)';
+  SDdeNoConnect                 = 'DDE-Conversation could not be started';
+  SDefault                      = 'Default';
+  SDefaultFilter                = 'All files (*.*)|*.*';
   SDelimiterQuoteCharError      = 'Delimiter and QuoteChar properties cannot have the same value';
+  SDeviceOnPort                 = '%s on %s';
+  SDimsDoNotMatch               = 'Image size mismatch';
+  SDirNameCap                   = 'Directory &name:';
+  SDirsCap                      = '&Directories:';
+  SDrivesCap                    = '&Drives:';
+  SDuplicateCardId              = 'Duplicate card ID found';
   SDuplicateClass               = 'A class named "%s" already exists';
   SDuplicateItem                = 'Duplicates not allowed in this list ($0%x)';
+  SDuplicateMenus               = 'Menu "%s" is used by another form';
   SDuplicateName                = 'Duplcate name: A component named "%s" already exists';
+  SDuplicateReference           = 'WriteObject was called twice for one instance';
   SDuplicateString              = 'String list does not allow duplicates';
-  SErrOutOfMemory               = 'Out of memory';
-  SErrInvalidBitIndex           = 'Invalid bit index : %d';
   SErrindexTooLarge             = 'Bit index exceeds array limit: %d';
+  SErrInvalidBitIndex           = 'Invalid bit index : %d';
+  SErrNoStreaming               = 'Failed to initialize component: No streaming method available.';
+  SErrOutOfMemory               = 'Out of memory';
+  SFailedToCallConstructor      = 'TStrings descendant "%s" failed to call inherited constructor';
+  SFB                           = 'FB';
   SFCreateError                 = 'Unable to create file "%s"';
   SFCreateErrorEx               = 'Unable to create file "%s": %s';
-  SFOpenError                   = 'Unable to open file "%s"';
-  SFOpenErrorEx                 = 'Unable to open file "%s": %s';
-  SFailedToCallConstructor      = 'TStrings descendant "%s" failed to call inherited constructor';
+  SFG                           = 'FG';
+  SFilesCap                     = '&Files: (*.*)';
   SFixedColTooBig               = 'Fixed column count must be less than column count';
   SFixedRowTooBig               = 'Fixed row count must be less than row count';
+  SFOpenError                   = 'Unable to open file "%s"';
+  SFOpenErrorEx                 = 'Unable to open file "%s": %s';
   SGridTooLarge                 = 'Grid too large for this operation';
+  SGroupIndexTooLow             = 'GroupIndex must be greater than preceding menu groupindex';
+  SHelpButton                   = '&Help';
+  SIconToClipboard              = 'Clipboard does not support Icons';
   SIdentifierExpected           = 'Identifier expected';
+  SIgnoreButton                 = '&Ignore';
+  SImageCanvasNeedsBitmap       = 'A Canvas can only be changed if it contains a bitmap';
+  SImageIndexError              = 'Invalid ImageList index';
+  SImageReadFail                = 'The ImageList data could not be read from stream';
+  SImageWriteFail               = 'The ImageList data could not be written to stream';
   SIndexOutOfRange              = 'Grid index out of range';
   SIniFileWriteError            = 'Unable to write to "%s"';
+  SInsertLineError              = 'Line could not be inserted';
   SInvalidActionCreation        = 'Invalid action creation';
   SInvalidActionEnumeration     = 'Invalid action enumeration';
   SInvalidActionRegistration    = 'Invalid action registration';
   SInvalidActionUnregistration  = 'Invalid action unregistration';
   SInvalidBinary                = 'Invalid binary value';
+  SInvalidBitmap                = 'Invalid Bitmap';
+  SInvalidClipFmt               = 'Invalid clipboard format';
+  SInvalidCurrentItem           = 'Invalid item';
   SInvalidDateDay               = '(%d, %d) is not a valid DateDay pair';
   SInvalidDateMonthWeek         = '(%d, %d, %d, %d) is not a valid DateMonthWeek quad';
   SInvalidDateWeek              = '(%d, %d, %d) is not a valid DateWeek triplet';
   SInvalidDayOfWeekInMonth      = '(%d, %d, %d, %d) is not a valid DayOfWeekInMonth quad';
   SInvalidFileName              = '"%s" is not a valid file name.';
+  SInvalidIcon                  = 'Invalid Icon';
   SInvalidImage                 = 'Invalid stream format';
+  SInvalidImageList             = 'Invalid ImageList';
+  SInvalidImageSize             = 'Invalid image size';
   SInvalidJulianDate            = '%f Julian cannot be represented as a DateTime';
   SInvalidMask                  = '"%s" is not a valid mask at (%d)';
+  SInvalidMemoSize              = 'Text larger than memo capacity';
+  SInvalidMetafile              = 'Invalid Metafile';
   SInvalidName                  = '"%s" is not a valid component name';
+  SInvalidNumber                = 'Invalid numerical value';
+  SInvalidPixelFormat           = 'Invalid Pixelformat';
+  SInvalidPrinter               = 'Selected printer is invalid';
+  SInvalidPrinterOp             = 'Operation invalid on selected printer';
   SInvalidProperty              = 'Invalid property value';
   SInvalidPropertyElement       = 'Invalid property element: "%s"';
   SInvalidPropertyPath          = 'Invalid property path';
@@ -93,6 +166,8 @@ ResourceString
   SInvalidRegType               = 'Invalid data type for "%s"';
   SInvalidString                = 'Invalid string constant';
   SInvalidStringGridOp          = 'Unable to insert rows in or delete rows from grid';
+  SInvalidTabIndex              = 'Registerindex out of bounds';
+  SItalicFont                   = 'Italic';
   SItemNotFound                 = 'Item not found ($0%x)';
   SLineTooLong                  = 'Line too long';
   SListCapacityError            = 'List capacity (%d) exceeded.';
@@ -100,22 +175,71 @@ ResourceString
   SListIndexError               = 'List index (%d) out of bounds';
   SMaskEditErr                  = 'Invalid mask input value.  Use escape key to abandon changes';
   SMaskErr                      = 'Invalid mask input value';
+  SMDIChildNotVisible           = 'A MDI-Child Window can not be hidden.';
   SMemoryStreamError            = 'Out of memory while expanding memory stream';
+  SMenuIndexError               = 'Menu Index out of range';
+  SMenuNotFound                 = 'Menu entry not found in menu';
+  SMenuReinserted               = 'Menu reinserted';
   SMissingDateTimeField         = '?';
+  SMPOpenFilter                 = 'All files (*.*)|*.*|Wave-files (*.WAV)|*.WAV|Midi-files (*.MID)|*.MID|Video for Windows (*.avi)|*.avi';
+  SNetworkCap                   = 'Ne&twork...';
+  sNoAddress                    = 'No address specified';
+  SNoButton                     = '&No';
+  SNoCanvasHandle               = 'Canvas handle does not allow drawing';
   SNoComSupport                 = '"%s" has not been registered as a COM class';
+  SNoDefaultPrinter             = 'No default printer was selected';
+  SNoMDIForm                    = 'No MDI form is available, none is active';
+  SNoTimers                     = 'No timers available';
+  SNotOpenErr                   = 'No MCI-device opened';
   SNotPrinting                  = 'Printer is not currently printing';
+  SNoVolumeLabel                = ': [ - No name - ]';
   SNumberExpected               = 'Number expected';
+  SOKButton                     = 'OK';
+  SOldTShape                    = 'Can not load older version of TShape';
+  SOleGraphic                   = 'Invalid operation for TOleGraphic';
+  SOutlineBadLevel              = '???';
+  SOutlineError                 = 'Invalid Node index';
+  SOutlineExpandError           = 'Parent node must be expanded';
+  SOutlineFileLoad              = 'Error loading file';
+  SOutlineIndexError            = 'Node index not found';
+  SOutlineLongLine              = 'Line too long';
+  SOutlineMaxLevels             = 'Maximum level exceeded';
+  SOutlineSelection             = 'Invalid selection';
+  SOutOfRange                   = 'Value must be between %d and %d';
+  SOutOfResources               = 'Out of system resources';
+  SParentRequired               = 'Element ''%s'' has no parent Window';
   SParseError                   = '%s on line %d';
+  SPictureDesc                  = ' (%dx%d)';
+  SPictureLabel                 = 'Image:';
+  SPreviewLabel                 = 'Preview';
+  SPrinterIndexError            = 'Printer Index out of range';
   SPrinting                     = 'Printing in progress';
+  SPropertiesVerb               = 'Properties';
   SPropertyException            = 'Error reading %s%s%s: %s';
+  SPropertyOutOfRange           = 'Property %s out of range';
+  SPutObjectError               = 'PutObject on undefined object';
+  SRangeError                   = 'Range error';
   SReadError                    = 'Stream read error';
   SReadOnlyProperty             = 'Property is read-only';
   SRegCreateFailed              = 'Failed to create key %s';
   SRegGetDataFailed             = 'Failed to get data for "%s"';
-  SRegSetDataFailed             = 'Failed to set data for "%s"';
   SRegisterError                = 'Invalid component registration';
+  SRegSetDataFailed             = 'Failed to set data for "%s"';
+  SRegularFont                  = 'Normal';
+  SReplaceImage                 = 'Image can not be replaced';
   SResNotFound                  = 'Resource "%s" not found';
+  SRetryButton                  = '&Retry';
+  SRNone                        = '(Empty)';
+  SRUnknown                     = '(Unknown)';
+  SScanLine                     = 'Line index out of bounds';
+  SScrollBarRange               = 'Scrollbar property out of range';
   SSeekNotImplemented           = '%s.Seek not implemented';
+  SSelectDirCap                 = 'Select directory';
+  SSocketAlreadyOpen            = 'Socket is already open';
+  SSocketIOError                = '%s error %d, %s';
+  SSocketMustBeBlocking         = 'Socket must be in blocking mode';
+  SSocketRead                   = 'Read';
+  SSocketWrite                  = 'Write';
   SSortedListError              = 'Operation not allowed on sorted list';
   SStreamSetSize                = 'Error setting stream size';
   SStringExpected               = 'String expected';
@@ -123,26 +247,50 @@ ResourceString
   SThreadCreateError            = 'Thread creation error: %s';
   SThreadError                  = 'Thread Error: %s (%d)';
   STooManyDeleted               = 'Too many rows or columns deleted';
+  STooManyImages                = 'Too many images';
+  STwoMDIForms                  = 'There is only one MDI window available';
+  SUnknownClipboardFormat       = 'Unknown clipboard format';
+  SUnknownConversion            = 'Unknown extension for RichEdit-conversion (.%s)';
+  SUnknownExtension             = 'Unknown extension (.%s)';
   SUnknownGroup                 = '%s not in a class registration group';
   SUnknownProperty              = 'Unknown property: "%s"';
-  SWriteError                   = 'Stream write error';
-  hNoContext                    = 'No context-sensitive Help installed.';
-  hNoSystem                     = 'No Help Manager installed.';
-  hNoTableOfContents            = 'No Table of Contents found.';
-  hNoTopics                     = 'No topic-based Help installed.';
-  hNothingFound                 = 'No help found for "%s"';
-  sAsyncSocketError             = 'Asynchronous socket error: %d';
-  sCannotCreateSocket           = 'Unable to create new socket';
-  sCannotListenOnOpen           = 'Listening on an open socket is not allowed';
-  sCantChangeWhileActive        = 'Changing value on an active socket is not allowed';
-  sNoAddress                    = 'No address specified';
-  sSocketAlreadyOpen            = 'Socket is already open';
-  sSocketIOError                = '%s error %d, %s';
-  sSocketMustBeBlocking         = 'Socket must be in blocking mode';
-  sSocketRead                   = 'Read';
-  sSocketWrite                  = 'Write';
+  SUnknownPropertyType          = 'Unknown property type %d';
+  SUntitled                     = '(Untitled)';
+  SVBitmaps                     = 'Bitmaps';
+  SVEnhMetafiles                = 'Enhanced MetaFiles';
+  SVIcons                       = 'Icons';
+  SVisibleChanged               = 'Visible property cannot be changed in OnShow or OnHide handlers';
+  SVMetafiles                   = 'MetaFiles';
+  SWindowClass                  = 'Error when initializing Window Class';
+  SWindowCreate                 = 'Error when creating Window';
+  SWindowDCError                = 'Error when??';
   sWindowsSocketError           = 'A Windows socket error occurred: %s (%d), on API "%s"';
+  SWriteError                   = 'Stream write error';
+  SYesButton                    = '&Yes';
 
+{ ---------------------------------------------------------------------
+    Keysim Names
+  ---------------------------------------------------------------------}
+  
+  SmkcAlt   = 'Alt+';
+  SmkcBkSp  = 'Backspace';
+  SmkcCtrl  = 'Ctrl+';
+  SmkcDel   = 'Delete';
+  SmkcDown  = 'Down';
+  SmkcEnd   = 'End';
+  SmkcEnter = 'Enter';
+  SmkcEsc   = 'Esc';
+  SmkcHome  = 'Home';
+  SmkcIns   = 'Insert';
+  SmkcLeft  = 'Left';
+  SmkcPgDn  = 'Page down';
+  SmkcPgUp  = 'Page up';
+  SmkcRight = 'Right';
+  SmkcShift = 'Shift+';
+  SmkcSpace = 'Space';
+  SmkcTab   = 'Tab';
+  SmkcUp    = 'Up';
+  
 { ---------------------------------------------------------------------
     "Distance" family type and conversion types
   ---------------------------------------------------------------------}
@@ -327,12 +475,57 @@ ResourceString
   SInvalidTime                   = '"%s" is not a valid time' ;
   STimeEncodeError               = 'Invalid argument to time encode' ;
 
+{ ---------------------------------------------------------------------
+    MCI subsystem constants
+  ---------------------------------------------------------------------}
+  
+  SMCIAVIVideo                  = 'AVIVideo';
+  SMCICDAudio                   = 'CDAudio';
+  SMCIDAT                       = 'DAT';
+  SMCIDigitalVideo              = 'DigitalVideo';
+  SMCIMMMovie                   = 'MMMovie';
+  SMCINil                       = '';
+  SMCIOther                     = 'Other';
+  SMCIOverlay                   = 'Overlay';
+  SMCIScanner                   = 'Scanner';
+  SMCISequencer                 = 'Sequencer';
+  SMCIUnknownError              = 'Unknown error code';
+  SMCIVCR                       = 'VCR';
+  SMCIVideodisc                 = 'Videodisc';
+  SMCIWaveAudio                 = 'WaveAudio';
+
+{ ---------------------------------------------------------------------
+    Message Dialog constants
+  ---------------------------------------------------------------------}
+    
+  SMsgDlgAbort                  = '&Abort';
+  SMsgDlgAll                    = '&All';
+  SMsgDlgCancel                 = 'Cancel';
+  SMsgDlgConfirm                = 'Confirm';
+  SMsgDlgError                  = 'Error';
+  SMsgDlgHelp                   = '&Help';
+  SMsgDlgHelpHelp               = 'Help';
+  SMsgDlgHelpNone               = 'No help available';
+  SMsgDlgIgnore                 = '&Ignore';
+  SMsgDlgInformation            = 'Information';
+  SMsgDlgNo                     = '&No';
+  SMsgDlgNoToAll                = 'N&o to all';
+  SMsgDlgOK                     = 'OK';
+  SMsgDlgRetry = '&Retry';
+  SMsgDlgWarning = 'Warning';
+  SMsgDlgYes = '&Yes';
+  SMsgDlgYesToAll = 'Yes to A&lle';
+
+
 implementation
 
 end.
 {
   $Log$
-  Revision 1.3  2004-01-10 19:35:17  michael
+  Revision 1.4  2004-01-10 20:13:19  michael
+  + Some more fixes to rtlconst. Const strings moved from classes to rtlconst
+
+  Revision 1.3  2004/01/10 19:35:17  michael
   + Moved all resource strings to rtlconst/sysconst
 
   Revision 1.2  2004/01/10 17:30:32  michael

rtl/openbsd/classes.pp

@@ -25,6 +25,7 @@ interface
 
 uses
   sysutils,
+  rtlconst,
   typinfo;
 
 {$i classesh.inc}
@@ -55,7 +56,10 @@ finalization
 end.
 {
   $Log$
-  Revision 1.1  2003-10-06 21:01:06  peter
+  Revision 1.2  2004-01-10 20:15:21  michael
+  + Some more fixes to rtlconst. Const strings moved from classes to rtlconst
+
+  Revision 1.1  2003/10/06 21:01:06  peter
     * moved classes unit to rtl
 
   Revision 1.2  2002/09/07 15:15:27  peter

rtl/os2/classes.pp

@@ -25,6 +25,7 @@ interface
 
 uses
   sysutils,
+  rtlconst,
   typinfo;
 
 {$i classesh.inc}
@@ -46,7 +47,10 @@ finalization
 end.
 {
   $Log$
-  Revision 1.2  2003-11-05 09:13:59  yuri
+  Revision 1.3  2004-01-10 20:14:05  michael
+  + Some more fixes to rtlconst. Const strings moved from classes to rtlconst
+
+  Revision 1.2  2003/11/05 09:13:59  yuri
   * exec fix
   * unused units removed
 

rtl/watcom/classes.pp

@@ -25,6 +25,7 @@ interface
 
 uses
   typinfo,
+  rtlconst,
   sysutils;
 
 {$i classesh.inc}
@@ -43,7 +44,10 @@ finalization
 end.
 {
   $Log$
-  Revision 1.1  2003-11-17 19:55:13  hajny
+  Revision 1.2  2004-01-10 20:15:21  michael
+  + Some more fixes to rtlconst. Const strings moved from classes to rtlconst
+
+  Revision 1.1  2003/11/17 19:55:13  hajny
     * Wiktor Sywula: LFN detection uncommented in system, new units added