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

ide: project res file: fixed save if not exists

Browse Source
This commit is contained in:
mattias 2023-08-08 02:23:56 +02:00
parent 4e522856df
commit fffdea39bb
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/projectresources.pas
View File

@ -37,7 +37,7 @@ unit ProjectResources;
interface
uses
Classes, SysUtils, resource, reswriter, fgl, Laz_AVL_Tree,
Classes, SysUtils, resource, reswriter, fgl, AVL_Tree,
// LCL
Controls, LResources,
// LazUtils
@ -84,7 +84,7 @@ type
procedure UpdateLrsCodeBuffer;
procedure DeleteLastCodeBuffers;
procedure OnResourceModified(Sender: TObject);
procedure ResourceModified(Sender: TObject);
protected
procedure SetResourceType(const AValue: TResourceType); override;
function GetProjectResource(AIndex: TAbstractProjectResourceClass): TAbstractProjectResource; override;
@ -406,7 +406,7 @@ begin
end;
end;
procedure TProjectResources.OnResourceModified(Sender: TObject);
procedure TProjectResources.ResourceModified(Sender: TObject);
begin
if TAbstractProjectResource(Sender).Modified then
Modified := true;
@ -433,7 +433,7 @@ begin
begin
R := TAbstractProjectResourceClass(L[i]).Create;
R.Modified := False;
R.OnModified := @OnResourceModified;
R.OnModified := @ResourceModified;
FResources.Add(R);
end;
end;