paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 22:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

started make resource string

Browse Source 
git-svn-id: trunk@3820 -
This commit is contained in:
mattias 2003-01-19 14:44:28 +00:00
parent 3a9320b953
commit c159e4bb8f
5 changed files with 21 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/aboutfrm.lfm
View File

@ -11,6 +11,8 @@ object AboutForm: TAboutForm
Width = 577
object Memo1: TMemo
Color = -2147483643
ReadOnly = True
ScrollBars = ssautoboth
WordWrap = True
Left = 225
Height = 219

13
ide/aboutfrm.lrs
View File

@ -5,10 +5,11 @@ LazarusResources.Add('TAboutForm','FORMDATA',[
+'ight'#3#245#0#11'ClientWidth'#3'A'#2#8'Position'#7#14'poscreencenter'#18'Ho'
+'rzScrollBar.Page'#3'B'#2#18'VertScrollBar.Page'#3#246#0#4'Left'#3'_'#1#6'He'
+'ight'#3#245#0#3'Top'#3#133#1#5'Width'#3'A'#2#0#5'TMemo'#5'Memo1'#5'Color'#4
+#5#0#0#128#8'WordWrap'#9#4'Left'#3#225#0#6'Height'#3#219#0#3'Top'#2#14#5'Wid'
+'th'#3'S'#1#0#0#7'TButton'#7'Button1'#11'ModalResult'#2#1#7'Caption'#6#5'Clo'
+'se'#8'TabOrder'#2#1#4'Left'#2'N'#6'Height'#2#25#3'Top'#3#184#0#5'Width'#2'K'
+#0#0#6'TLabel'#6'Label1'#9'Alignment'#7#8'tacenter'#7'Caption'#6#10'Version '
+'#:'#5'Color'#4#5#0#0#128#6'Layout'#7#5'tltop'#4'Left'#2#14#6'Height'#2#17#3
+'Top'#2#6#5'Width'#3#200#0#0#0#0
+#5#0#0#128#8'ReadOnly'#9#10'ScrollBars'#7#10'ssautoboth'#8'WordWrap'#9#4'Lef'
+'t'#3#225#0#6'Height'#3#219#0#3'Top'#2#14#5'Width'#3'S'#1#0#0#7'TButton'#7'B'
+'utton1'#11'ModalResult'#2#1#7'Caption'#6#5'Close'#8'TabOrder'#2#1#4'Left'#2
+'N'#6'Height'#2#25#3'Top'#3#184#0#5'Width'#2'K'#0#0#6'TLabel'#6'Label1'#9'Al'
+'ignment'#7#8'tacenter'#7'Caption'#6#10'Version #:'#5'Color'#4#5#0#0#128#6'L'
+'ayout'#7#5'tltop'#4'Left'#2#14#6'Height'#2#17#3'Top'#2#6#5'Width'#3#200#0#0
+#0#0
]);

3
ide/keymapping.pp
View File

@ -104,6 +104,7 @@ const
ecGuessUnclosedBlock = ecUserFirst + 104;
ecGuessMisplacedIFDEF = ecUserFirst + 105;
ecConvertDFM2LFM = ecUserFirst + 106;
ecMakeResourceString = ecUserFirst + 107;
ecNew = ecUserFirst + 201;
ecNewUnit = ecUserFirst + 202;
@ -630,6 +631,7 @@ begin
ecEditorOptions: Result:= 'editor options';
ecCodeToolsOptions: Result:= 'codetools options';
ecCodeToolsDefinesEd: Result:= 'codetools defines editor';
ecMakeResourceString: Result:='make resource string';
// help menu
ecAboutLazarus: Result:= 'about lazarus';
@ -1436,6 +1438,7 @@ begin
Add(C,'External Tools settings',ecExtToolSettings,VK_UNKNOWN,[],VK_UNKNOWN,[]);
Add(C,'Build Lazarus',ecBuildLazarus,VK_UNKNOWN,[],VK_UNKNOWN,[]);
Add(C,'Configure "Build Lazarus"',ecConfigBuildLazarus,VK_UNKNOWN,[],VK_UNKNOWN,[]);
Add(C,'Make resource string',ecMakeResourceString,VK_UNKNOWN,[],VK_UNKNOWN,[]);
// environment menu
C:=Categories[AddCategory('EnvironmentMenu','Environment menu commands',caAll)];

1
ide/lazarusidestrconsts.pas
View File

@ -202,6 +202,7 @@ resourcestring
lisMenuQuickSyntaxCheck = 'Quick syntax check';
lisMenuGuessUnclosedBlock = 'Guess unclosed block';
lisMenuGuessMisplacedIFDEF = 'Guess misplaced IFDEF/ENDIF';
lisMenuMakeResourceString = 'Make Resource String';
lisMenuConvertDFMtoLFM = 'Convert DFM file to LFM';
lisMenuBuildLazarus = 'Build Lazarus';
lisMenuConfigureBuildLazarus = 'Configure "Build Lazarus"';

8
ide/mainbar.pas
View File

@ -257,6 +257,7 @@ type
itmToolGuessUnclosedBlock: TMenuItem;
itmToolGuessMisplacedIFDEF: TMenuItem;
itmToolConvertDFMtoLFM: TMenuItem;
itmToolMakeResourceString: TMenuItem;
itmToolBuildLazarus: TMenuItem;
itmToolConfigureBuildLazarus: TMenuItem;
@ -1015,6 +1016,12 @@ begin
itmToolGuessMisplacedIFDEF.Caption := lisMenuGuessMisplacedIFDEF;
mnuTools.Add(itmToolGuessMisplacedIFDEF);
itmToolMakeResourceString := TMenuItem.Create(Self);
itmToolMakeResourceString.Name:='itmToolMakeResourceString';
itmToolMakeResourceString.Caption := lisMenuMakeResourceString;
itmToolMakeResourceString.Enabled:=false;
mnuTools.Add(itmToolMakeResourceString);
mnuTools.Add(CreateMenuSeparator);
itmToolConvertDFMtoLFM := TMenuItem.Create(Self);
@ -1173,6 +1180,7 @@ begin
itmToolSyntaxCheck.ShortCut:=CommandToShortCut(ecSyntaxCheck);
itmToolGuessUnclosedBlock.ShortCut:=CommandToShortCut(ecGuessUnclosedBlock);
itmToolGuessMisplacedIFDEF.ShortCut:=CommandToShortCut(ecGuessMisplacedIFDEF);
itmToolMakeResourceString.ShortCut:=CommandToShortCut(ecMakeResourceString);
itmToolConvertDFMtoLFM.ShortCut:=CommandToShortCut(ecConvertDFM2LFM);
itmToolBuildLazarus.ShortCut:=CommandToShortCut(ecBuildLazarus);
itmToolConfigureBuildLazarus.ShortCut:=CommandToShortCut(ecConfigBuildLazarus);