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

lcl: add overload for TPicture.LoadFromResourceName which allows to skip graphic class

Browse Source 
git-svn-id: trunk@43126 -
This commit is contained in:
paul 2013-10-06 13:35:00 +00:00
parent 1db679b26f
commit bf7f0f68bf
2 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/graphics.pp
View File

@ -977,6 +977,7 @@ type
procedure LoadFromClipboardFormat(FormatID: TClipboardFormat); procedure LoadFromClipboardFormat(FormatID: TClipboardFormat);
procedure LoadFromClipboardFormatID(ClipboardType: TClipboardType; FormatID: TClipboardFormat); procedure LoadFromClipboardFormatID(ClipboardType: TClipboardType; FormatID: TClipboardFormat);
procedure LoadFromFile(const Filename: string); procedure LoadFromFile(const Filename: string);
procedure LoadFromResourceName(Instance: THandle; const ResName: String);
procedure LoadFromResourceName(Instance: THandle; const ResName: String; AClass: TGraphicClass); procedure LoadFromResourceName(Instance: THandle; const ResName: String; AClass: TGraphicClass);
procedure LoadFromLazarusResource(const AName: string); procedure LoadFromLazarusResource(const AName: string);
procedure LoadFromStream(Stream: TStream); procedure LoadFromStream(Stream: TStream);

11
lcl/include/picture.inc
View File

@ -523,6 +523,17 @@ begin
end; end;
end; end;
procedure TPicture.LoadFromResourceName(Instance: THandle; const ResName: String);
var
NewGraphic: TGraphic;
begin
NewGraphic := CreateGraphicFromResourceName(Instance, ResName);
FGraphic.Free;
FGraphic := NewGraphic;
FGraphic.OnChange := @Changed;
Changed(Self);
end;
procedure TPicture.LoadFromResourceName(Instance: THandle; procedure TPicture.LoadFromResourceName(Instance: THandle;
const ResName: String; AClass: TGraphicClass); const ResName: String; AClass: TGraphicClass);
var var