* Convert to table to reduce exe size.

git-svn-id: trunk@2719 -
This commit is contained in:
daniel 2006-03-01 12:54:26 +00:00
parent 9566255122
commit 2dd2bce892

View File

@ -1,194 +1,215 @@
type standard_string=record
nr:word;
text:Pchar;
end;
const standard_string_count=106;
standard_strings:array[0..standard_string_count-1] of standard_string=(
(nr:sButtonDefault;text:'Button default'),
(nr:sButtonDisabled;text:'Button disabled'),
(nr:sButtonNormal;text:'Button normal'),
(nr:sButtonSelected;text:'Button selected'),
(nr:sButtonShadow;text:'Button shadow'),
(nr:sButtonShortcut;text:'Button shortcut'),
(nr:sChangeDirectory;text:'Change Directory'),
(nr:sClipboard;text:'Clipboard'),
(nr:sClusterNormal;text:'Cluster normal'),
(nr:sClusterSelected;text:'Cluster selected'),
(nr:sClusterShortcut;text:'Cluster shortcut'),
(nr:sColor;text:'Color'),
(nr:sColors;text:'Colors'),
(nr:sConfirm;text:'Confirm'),
(nr:sDeleteFile;text:'Delete file?'#13#10#13#3'%s'),
(nr:sDirectory;text:'Directory'),
(nr:sDisabled;text:'Disabled'),
(nr:sDrives;text:'Drives'),
(nr:sError;text:'Error'),
(nr:sFileAlreadyOpen;text:''#3'%s'#13#10#13#3'is already open in window %d.'),
(nr:sFileCreateError;text:'Error creating file %s'),
(nr:sFileReadError;text:'Error reading file %s'),
(nr:sFileUntitled;text:'Save untitled file?'),
(nr:sFileWriteError;text:'Error writing to file %s'),
(nr:sFind;text:'Find'),
(nr:sFrameActive;text:'Frame active'),
(nr:sFrameBackground;text:'Frame/background'),
(nr:sFrameIcons;text:'Frame icons'),
(nr:sFramePassive;text:'Frame passive'),
(nr:sHighlight;text:'Highlight'),
(nr:sHistoryBarIcons;text:'History bar icons'),
(nr:sHistoryBarPage;text:'History bar page'),
(nr:sHistoryButton;text:'History button'),
(nr:sHistorySides;text:'History sides'),
(nr:sInformation;text:'Information'),
(nr:sInformationPane;text:'Information pane'),
(nr:sInputArrow;text:'Input arrow'),
(nr:sInputNormal;text:'Input normal'),
(nr:sInputSelected;text:'Input selected'),
(nr:sInvalidCharacter;text:'Invalid character in input'),
(nr:sInvalidDirectory;text:'Invalid directory.'),
(nr:sInvalidDriveOrDir;text:'Invalid drive or directory.'),
(nr:sInvalidFileName;text:'Invalid file name.'),
(nr:sInvalidPicture;text:'Input does not conform to picture: %s'),
(nr:sInvalidValue;text:'Value not in the range %d to %d'),
(nr:sInverse;text:'Inverse'),
(nr:sJumpTo;text:'Jump To'),
(nr:sLabelNormal;text:'Label normal'),
(nr:sLabelSelected;text:'Label selected'),
(nr:sLabelShortcut;text:'Label shortcut'),
(nr:sListDivider;text:'List divider'),
(nr:sListFocused;text:'List focused'),
(nr:sListNormal;text:'List normal'),
(nr:sListSelected;text:'List selected'),
(nr:sModified;text:''#3'%s'#13#10#13#3'has been modified. Save?'),
(nr:sNoName;text:'NONAME'),
(nr:sNormal;text:'Normal'),
(nr:sNormalText;text:'Normal text'),
(nr:sNotInList;text:'Input not in valid-list'),
(nr:sOpen;text:'Open'),
(nr:sOutOfMemory;text:'Not enough memory for this operation.'),
(nr:sOutOfUnNamedWindows;text:'Out of unnamed window numbers. Save or discard some unnamed files and try again.'),
(nr:sPasteNotPossible;text:'Wordwrap on: Paste not possible in current margins when at end of line.'),
(nr:sReformatDocument;text:'Reformat Document'),
(nr:sReformatNotPossible;text:'Paragraph reformat not possible while trying to wrap current line with current margins.'),
(nr:sReformattingTheDocument;text:'Reformatting the document:'),
(nr:sReplace;text:'Replace'),
(nr:sReplaceFile;text:'Replace file?'#13#10#13#3'%s'),
(nr:sReplaceNotPossible;text:'Wordwrap on: Replace not possible in current margins when at end of line.'),
(nr:sReplaceThisOccurence;text:'Replace this occurence?'),
(nr:sRightMargin;text:'Right Margin'),
(nr:sSaveAs;text:'Save As'),
(nr:sScrollbarIcons;text:'Scroll bar icons'),
(nr:sScrollbarPage;text:'Scroll bar page'),
(nr:sSearchStringNotFound;text:'Search string not found.'),
(nr:sSelectFormatStart;text:'Select Format Start'),
(nr:sSelectWhereToBegin;text:'Please select where to begin.'),
(nr:sSelected;text:'Selected'),
(nr:sSelectedDisabled;text:'Selected disabled'),
(nr:sSetting;text:'Setting:'),
(nr:sShortcut;text:'Shortcut'),
(nr:sShortcutSelected;text:'ShortcutSelected'),
(nr:sStaticText;text:'Static text'),
(nr:sTabSettings;text:'Tab Settings'),
(nr:sText;text:'Text'),
(nr:sTooManyFiles;text:'Too many files.'),
(nr:sTypeExitOnReturn;text:'Type EXIT to return...'),
(nr:sUnderline;text:'Underline'),
(nr:sUnknownDialog;text:'Unknown dialog requested!'),
(nr:sUntitled;text:'Untitled'),
(nr:sWarning;text:'Warning'),
(nr:sWindowList;text:'Window List'),
(nr:sWordWrapNotPossible;text:'Wordwrap on: Wordwrap not possible in current margins with continuous line.'),
(nr:sWordWrapOff;text:'You must turn on wordwrap before you can reformat.'),
(nr:smApr;text:'Apr'),
(nr:smAug;text:'Aug'),
(nr:smDec;text:'Dec'),
(nr:smFeb;text:'Feb'),
(nr:smJan;text:'Jan'),
(nr:smJul;text:'Jul'),
(nr:smJun;text:'Jun'),
(nr:smMar;text:'Mar'),
(nr:smMay;text:'May'),
(nr:smNov;text:'Nov'),
(nr:smOct;text:'Oct'),
(nr:smSep;text:'Sep'));
procedure InitResStrings;
var i:word;
begin
Strings^.Put(sButtonDefault,'Button default');
Strings^.Put(sButtonDisabled,'Button disabled');
Strings^.Put(sButtonNormal,'Button normal');
Strings^.Put(sButtonSelected,'Button selected');
Strings^.Put(sButtonShadow,'Button shadow');
Strings^.Put(sButtonShortcut,'Button shortcut');
Strings^.Put(sChangeDirectory,'Change Directory');
Strings^.Put(sClipboard,'Clipboard');
Strings^.Put(sClusterNormal,'Cluster normal');
Strings^.Put(sClusterSelected,'Cluster selected');
Strings^.Put(sClusterShortcut,'Cluster shortcut');
Strings^.Put(sColor,'Color');
Strings^.Put(sColors,'Colors');
Strings^.Put(sConfirm,'Confirm');
Strings^.Put(sDeleteFile,'Delete file?'#13#10#13#3'%s');
Strings^.Put(sDirectory,'Directory');
Strings^.Put(sDisabled,'Disabled');
Strings^.Put(sDrives,'Drives');
Strings^.Put(sError,'Error');
Strings^.Put(sFileAlreadyOpen,''#3'%s'#13#10#13#3'is already open in window %d.');
Strings^.Put(sFileCreateError,'Error creating file %s');
Strings^.Put(sFileReadError,'Error reading file %s');
Strings^.Put(sFileUntitled,'Save untitled file?');
Strings^.Put(sFileWriteError,'Error writing to file %s');
Strings^.Put(sFind,'Find');
Strings^.Put(sFrameActive,'Frame active');
Strings^.Put(sFrameBackground,'Frame/background');
Strings^.Put(sFrameIcons,'Frame icons');
Strings^.Put(sFramePassive,'Frame passive');
Strings^.Put(sHighlight,'Highlight');
Strings^.Put(sHistoryBarIcons,'History bar icons');
Strings^.Put(sHistoryBarPage,'History bar page');
Strings^.Put(sHistoryButton,'History button');
Strings^.Put(sHistorySides,'History sides');
Strings^.Put(sInformation,'Information');
Strings^.Put(sInformationPane,'Information pane');
Strings^.Put(sInputArrow,'Input arrow');
Strings^.Put(sInputNormal,'Input normal');
Strings^.Put(sInputSelected,'Input selected');
Strings^.Put(sInvalidCharacter,'Invalid character in input');
Strings^.Put(sInvalidDirectory,'Invalid directory.');
Strings^.Put(sInvalidDriveOrDir,'Invalid drive or directory.');
Strings^.Put(sInvalidFileName,'Invalid file name.');
Strings^.Put(sInvalidPicture,'Input does not conform to picture: %s');
Strings^.Put(sInvalidValue,'Value not in the range %d to %d');
Strings^.Put(sInverse,'Inverse');
Strings^.Put(sJumpTo,'Jump To');
Strings^.Put(sLabelNormal,'Label normal');
Strings^.Put(sLabelSelected,'Label selected');
Strings^.Put(sLabelShortcut,'Label shortcut');
Strings^.Put(sListDivider,'List divider');
Strings^.Put(sListFocused,'List focused');
Strings^.Put(sListNormal,'List normal');
Strings^.Put(sListSelected,'List selected');
Strings^.Put(sModified,''#3'%s'#13#10#13#3'has been modified. Save?');
Strings^.Put(sNoName,'NONAME');
Strings^.Put(sNormal,'Normal');
Strings^.Put(sNormalText,'Normal text');
Strings^.Put(sNotInList,'Input not in valid-list');
Strings^.Put(sOpen,'Open');
Strings^.Put(sOutOfMemory,'Not enough memory for this operation.');
Strings^.Put(sOutOfUnNamedWindows,'Out of unnamed window numbers. Save or discard some unnamed files and try again.');
Strings^.Put(sPasteNotPossible,'Wordwrap on: Paste not possible in current margins when at end of line.');
Strings^.Put(sReformatDocument,'Reformat Document');
Strings^.Put(sReformatNotPossible,'Paragraph reformat not possible while trying to wrap current line with current margins.');
Strings^.Put(sReformattingTheDocument,'Reformatting the document:');
Strings^.Put(sReplace,'Replace');
Strings^.Put(sReplaceFile,'Replace file?'#13#10#13#3'%s');
Strings^.Put(sReplaceNotPossible,'Wordwrap on: Replace not possible in current margins when at end of line.');
Strings^.Put(sReplaceThisOccurence,'Replace this occurence?');
Strings^.Put(sRightMargin,'Right Margin');
Strings^.Put(sSaveAs,'Save As');
Strings^.Put(sScrollbarIcons,'Scroll bar icons');
Strings^.Put(sScrollbarPage,'Scroll bar page');
Strings^.Put(sSearchStringNotFound,'Search string not found.');
Strings^.Put(sSelectFormatStart,'Select Format Start');
Strings^.Put(sSelectWhereToBegin,'Please select where to begin.');
Strings^.Put(sSelected,'Selected');
Strings^.Put(sSelectedDisabled,'Selected disabled');
Strings^.Put(sSetting,'Setting:');
Strings^.Put(sShortcut,'Shortcut');
Strings^.Put(sShortcutSelected,'ShortcutSelected');
Strings^.Put(sStaticText,'Static text');
Strings^.Put(sTabSettings,'Tab Settings');
Strings^.Put(sText,'Text');
Strings^.Put(sTooManyFiles,'Too many files.');
Strings^.Put(sTypeExitOnReturn,'Type EXIT to return...');
Strings^.Put(sUnderline,'Underline');
Strings^.Put(sUnknownDialog,'Unknown dialog requested!');
Strings^.Put(sUntitled,'Untitled');
Strings^.Put(sWarning,'Warning');
Strings^.Put(sWindowList,'Window List');
Strings^.Put(sWordWrapNotPossible,'Wordwrap on: Wordwrap not possible in current margins with continuous line.');
Strings^.Put(sWordWrapOff,'You must turn on wordwrap before you can reformat.');
Strings^.Put(smApr,'Apr');
Strings^.Put(smAug,'Aug');
Strings^.Put(smDec,'Dec');
Strings^.Put(smFeb,'Feb');
Strings^.Put(smJan,'Jan');
Strings^.Put(smJul,'Jul');
Strings^.Put(smJun,'Jun');
Strings^.Put(smMar,'Mar');
Strings^.Put(smMay,'May');
Strings^.Put(smNov,'Nov');
Strings^.Put(smOct,'Oct');
Strings^.Put(smSep,'Sep');
for i:=0 to standard_string_count-1 do
strings^.put(standard_strings[i].nr,strpas(standard_strings[i].text));
end;
const standard_label_count=81;
standard_labels:array[0..standard_label_count-1] of standard_string=(
(nr:slAbout;text:'~A~bout'),
(nr:slAltF1;text:'Alt+F1'),
(nr:slAltF3Close;text:'~Alt+F3~ Close'),
(nr:slAltXExit;text:'~Alt-X~ Exit'),
(nr:slBackground;text:'~B~ackground'),
(nr:slCancel;text:'Cancel'),
(nr:slCascade;text:'C~a~scade'),
(nr:slCaseSensitive;text:'~C~ase sensitive'),
(nr:slChDir;text:'~C~hdir'),
(nr:slChangeDir;text:'~C~hange dir...'),
(nr:slClear;text:'C~l~ear'),
(nr:slClose;text:'~C~lose'),
(nr:slCloseAll;text:'Cl~o~se all'),
(nr:slColor;text:'~C~olor'),
(nr:slContents;text:'~C~ontents'),
(nr:slCopy;text:'~C~opy'),
(nr:slCtrlF1;text:'Ctrl+F1'),
(nr:slCurrentLine;text:'~C~urrent line'),
(nr:slCut;text:'Cu~t~'),
(nr:slDOSShell;text:'~D~OS shell'),
(nr:slDelete;text:'~D~elete'),
(nr:slDirectoryName;text:'Directory ~n~ame'),
(nr:slDirectoryTree;text:'Directory ~t~ree'),
(nr:slEdit;text:'~E~dit'),
(nr:slEntireDocument;text:'~E~ntire document'),
(nr:slExit;text:'E~x~it'),
(nr:slF10Menu;text:'~F10~ Menu'),
(nr:slF1Help;text:'~F1~ Help'),
(nr:slF3Open;text:'~F3~ Open'),
(nr:slFile;text:'~F~ile'),
(nr:slFiles;text:'~F~iles'),
(nr:slForeground;text:'~F~oreground'),
(nr:slGroup;text:'~G~roup'),
(nr:slHelp;text:'~H~elp'),
(nr:slIndex;text:'~I~ndex'),
(nr:slItem;text:'~I~tem'),
(nr:slLineNumber;text:'~L~ine number'),
(nr:slName;text:'~N~ame'),
(nr:slNew;text:'~N~ew'),
(nr:slNewText;text:'~N~ew text'),
(nr:slNext;text:'~N~ext'),
(nr:slNo;text:'~N~o'),
(nr:slOk;text:'O~k~'),
(nr:slOpen;text:'~O~pen'),
(nr:slOpenDots;text:'~O~pen...'),
(nr:slPaste;text:'~P~aste'),
(nr:slPrevious;text:'~P~revious'),
(nr:slPreviousTopic;text:'~P~revious topic'),
(nr:slPromptOnReplace;text:'~P~rompt on replace'),
(nr:slReformatDocument;text:'~R~eformat document'),
(nr:slReplace;text:'~R~eplace'),
(nr:slReplaceAll;text:'~R~eplace all'),
(nr:slRevert;text:'~R~evert'),
(nr:slSave;text:'~S~ave'),
(nr:slSaveAll;text:'Save a~l~l'),
(nr:slSaveAs;text:'S~a~ve as...'),
(nr:slSaveFileAs;text:'~S~ave file as'),
(nr:slShiftF1;text:'Shift+F1'),
(nr:slSizeMove;text:'~S~ize/Move'),
(nr:slTextToFind;text:'~T~ext to find'),
(nr:slTile;text:'~T~ile'),
(nr:slTopicSearch;text:'~T~opic search'),
(nr:slUndo;text:'~U~ndo'),
(nr:slUsingHelp;text:'~U~sing help'),
(nr:slWholeWordsOnly;text:'~W~hole words only'),
(nr:slWindow;text:'~W~indow'),
(nr:slWindows;text:'~W~indows'),
(nr:slYes;text:'~Y~es'),
(nr:slZoom;text:'~Z~oom'),
(nr:slAltF3;text:'Alt+F3'),
(nr:slAltX;text:'Alt+X'),
(nr:slF2;text:'F2'),
(nr:slF3;text:'F3'),
(nr:slF5;text:'F5'),
(nr:slF6;text:'F6'),
(nr:slCtrlDel;text:'Ctrl+Del'),
(nr:slCtrlF5;text:'Ctrl+F5'),
(nr:slCtrlIns;text:'Ctrl+Ins'),
(nr:slShiftDel;text:'Shift+Del'),
(nr:slShiftF6;text:'Shift+F6'),
(nr:slShiftIns;text:'Shift+Ins'));
procedure InitResLabels;
var i:word;
begin
Labels^.Put(slAbout,'~A~bout');
Labels^.Put(slAltF1,'Alt+F1');
Labels^.Put(slAltF3Close,'~Alt+F3~ Close');
Labels^.Put(slAltXExit,'~Alt-X~ Exit');
Labels^.Put(slBackground,'~B~ackground');
Labels^.Put(slCancel,'Cancel');
Labels^.Put(slCascade,'C~a~scade');
Labels^.Put(slCaseSensitive,'~C~ase sensitive');
Labels^.Put(slChDir,'~C~hdir');
Labels^.Put(slChangeDir,'~C~hange dir...');
Labels^.Put(slClear,'C~l~ear');
Labels^.Put(slClose,'~C~lose');
Labels^.Put(slCloseAll,'Cl~o~se all');
Labels^.Put(slColor,'~C~olor');
Labels^.Put(slContents,'~C~ontents');
Labels^.Put(slCopy,'~C~opy');
Labels^.Put(slCtrlF1,'Ctrl+F1');
Labels^.Put(slCurrentLine,'~C~urrent line');
Labels^.Put(slCut,'Cu~t~');
Labels^.Put(slDOSShell,'~D~OS shell');
Labels^.Put(slDelete,'~D~elete');
Labels^.Put(slDirectoryName,'Directory ~n~ame');
Labels^.Put(slDirectoryTree,'Directory ~t~ree');
Labels^.Put(slEdit,'~E~dit');
Labels^.Put(slEntireDocument,'~E~ntire document');
Labels^.Put(slExit,'E~x~it');
Labels^.Put(slF10Menu,'~F10~ Menu');
Labels^.Put(slF1Help,'~F1~ Help');
Labels^.Put(slF3Open,'~F3~ Open');
Labels^.Put(slFile,'~F~ile');
Labels^.Put(slFiles,'~F~iles');
Labels^.Put(slForeground,'~F~oreground');
Labels^.Put(slGroup,'~G~roup');
Labels^.Put(slHelp,'~H~elp');
Labels^.Put(slIndex,'~I~ndex');
Labels^.Put(slItem,'~I~tem');
Labels^.Put(slLineNumber,'~L~ine number');
Labels^.Put(slName,'~N~ame');
Labels^.Put(slNew,'~N~ew');
Labels^.Put(slNewText,'~N~ew text');
Labels^.Put(slNext,'~N~ext');
Labels^.Put(slNo,'~N~o');
Labels^.Put(slOk,'O~k~');
Labels^.Put(slOpen,'~O~pen');
Labels^.Put(slOpenDots,'~O~pen...');
Labels^.Put(slPaste,'~P~aste');
Labels^.Put(slPrevious,'~P~revious');
Labels^.Put(slPreviousTopic,'~P~revious topic');
Labels^.Put(slPromptOnReplace,'~P~rompt on replace');
Labels^.Put(slReformatDocument,'~R~eformat document');
Labels^.Put(slReplace,'~R~eplace');
Labels^.Put(slReplaceAll,'~R~eplace all');
Labels^.Put(slRevert,'~R~evert');
Labels^.Put(slSave,'~S~ave');
Labels^.Put(slSaveAll,'Save a~l~l');
Labels^.Put(slSaveAs,'S~a~ve as...');
Labels^.Put(slSaveFileAs,'~S~ave file as');
Labels^.Put(slShiftF1,'Shift+F1');
Labels^.Put(slSizeMove,'~S~ize/Move');
Labels^.Put(slTextToFind,'~T~ext to find');
Labels^.Put(slTile,'~T~ile');
Labels^.Put(slTopicSearch,'~T~opic search');
Labels^.Put(slUndo,'~U~ndo');
Labels^.Put(slUsingHelp,'~U~sing help');
Labels^.Put(slWholeWordsOnly,'~W~hole words only');
Labels^.Put(slWindow,'~W~indow');
Labels^.Put(slWindows,'~W~indows');
Labels^.Put(slYes,'~Y~es');
Labels^.Put(slZoom,'~Z~oom');
Labels^.Put(slAltF3,'Alt+F3');
Labels^.Put(slAltX,'Alt+X');
Labels^.Put(slF2,'F2');
Labels^.Put(slF3,'F3');
Labels^.Put(slF5,'F5');
Labels^.Put(slF6,'F6');
Labels^.Put(slCtrlDel,'Ctrl+Del');
Labels^.Put(slCtrlF5,'Ctrl+F5');
Labels^.Put(slCtrlIns,'Ctrl+Ins');
Labels^.Put(slShiftDel,'Shift+Del');
Labels^.Put(slShiftF6,'Shift+F6');
Labels^.Put(slShiftIns,'Shift+Ins');
for i:=0 to standard_label_count-1 do
strings^.put(standard_labels[i].nr,strpas(standard_labels[i].text));
end;