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

IDE: Support many picture formats for project icon. It was wrongly changed for issue #34464.

Browse Source 
git-svn-id: trunk@60061 -
This commit is contained in:
juha 2019-01-12 17:01:19 +00:00
parent 5c04c460cf
commit 5f255ad9d1
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/frames/project_application_options.pas
View File

@ -176,7 +176,7 @@ begin
OpenPictureDialog1.InitialDir:=FProject.Directory;
if not OpenPictureDialog1.Execute then exit;
try
IconImage.Picture.Icon.LoadFromFile(OpenPictureDialog1.FileName);
IconImage.Picture.LoadFromFile(OpenPictureDialog1.FileName);
fIconChanged:=true;
except
on E: Exception do
@ -187,7 +187,7 @@ end;
procedure TProjectApplicationOptionsFrame.SaveIconButtonClick(Sender: TObject);
begin
if SavePictureDialog1.Execute then
IconImage.Picture.Icon.SaveToFile(SavePictureDialog1.FileName);
IconImage.Picture.SaveToFile(SavePictureDialog1.FileName);
end;
procedure TProjectApplicationOptionsFrame.EnableManifest(aEnable: Boolean);
@ -292,8 +292,6 @@ begin
IconImage.KeepOriginXWhenClipped := True;
IconImage.KeepOriginYWhenClipped := True;
IconImagePictureChanged(nil);
OpenPictureDialog1.Filter := GraphicFilter(TIcon)+'|'+
Format(rsAllFiles,[GetAllFilesMask,GetAllFilesMask,'']);
end;
procedure TProjectApplicationOptionsFrame.ReadSettings(AOptions: TAbstractIDEOptions);