paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 12:12:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed editing empty resources

Browse Source 
git-svn-id: trunk@2748 -
This commit is contained in:
lazarus 2002-08-18 08:53:28 +00:00
parent 64772d9488
commit d15ec403d8
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/lazarusidestrconsts.pas
View File

@ -185,7 +185,7 @@ ResourceString
// resource files
lisResourceFileComment =
'{ This is an automatically generated lazarus resource file }';
'This is an automatically generated lazarus resource file';
// file dialogs
lisOpenFile = 'Open file';

7
ide/main.pp
View File

@ -2299,7 +2299,7 @@ begin
// create a buffer for the new resource file and for the LFM file
ResourceCode:=
CodeToolBoss.CreateFile(ChangeFileExt(NewUnitInfo.Filename,ResourceFileExt));
ResourceCode.Source:=lisResourceFileComment;
ResourceCode.Source:='{ '+lisResourceFileComment+' }';
CodeToolBoss.CreateFile(ChangeFileExt(NewUnitInfo.Filename,'.lfm'));
// clear formeditor
@ -2678,7 +2678,7 @@ begin
'T'+AnUnitInfo.FormResourceName);
end;
if (not CodeToolBoss.AddLazarusResourceHeaderComment(ResourceCode,
'This is an automatically created Lazarus Resource file')) then
lisResourceFileComment)) then
begin
ACaption:='Resource save error';
AText:='Unable to add resource header comment'
@ -6689,6 +6689,9 @@ end.
{ =============================================================================
$Log$
Revision 1.353 2002/08/27 08:55:27 lazarus
MG: fixed editing empty resources
Revision 1.352 2002/08/27 08:21:28 lazarus
MG: fixed replacing form resources