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

ide: fix resource modified state (issue #0015482)

Browse Source 
git-svn-id: trunk@23474 -
This commit is contained in:
paul 2010-01-17 11:40:26 +00:00
parent 233a0f9017
commit 956153840c
3 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/lazarus.lpi
View File

@ -15,9 +15,13 @@
<TargetFileExt Value=""/> <TargetFileExt Value=""/>
<Title Value="Lazarus"/> <Title Value="Lazarus"/>
<ResourceType Value="res"/> <ResourceType Value="res"/>
<Icon Value="0"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
<Icon Value="0"/>
</General> </General>
<VersionInfo>
<Language Value="0403"/>
<CharSet Value="04E2"/>
</VersionInfo>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/> <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>

BIN
ide/lazarus.res
View File

Binary file not shown.

1
ide/projectresources.pas
View File

@ -395,6 +395,7 @@ begin
for i := 0 to L.Count - 1 do for i := 0 to L.Count - 1 do
begin begin
R := TAbstractProjectResourceClass(L[i]).Create; R := TAbstractProjectResourceClass(L[i]).Create;
R.Modified := False;
R.OnModified := @OnResourceModified; R.OnModified := @OnResourceModified;
FResources.Add(R); FResources.Add(R);
end; end;