paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 10:19:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: add LoadGlyphFromResource similar to LoadGlyphFromLazarusResource

Browse Source 
git-svn-id: trunk@42959 -
This commit is contained in:
paul 2013-09-27 03:15:50 +00:00
parent 74824cdc4e
commit 6c44c5a938
2 changed files with 26 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lcl/buttons.pp
View File

@ -168,6 +168,7 @@ type
constructor Create(TheOwner: TComponent); override; constructor Create(TheOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
procedure Click; override; procedure Click; override;
procedure LoadGlyphFromResource(const AName: String);
procedure LoadGlyphFromLazarusResource(const AName: String); procedure LoadGlyphFromLazarusResource(const AName: String);
procedure LoadGlyphFromStock(idButton: Integer); procedure LoadGlyphFromStock(idButton: Integer);
function CanShowGlyph: Boolean; function CanShowGlyph: Boolean;
@ -414,6 +415,7 @@ var
GetDefaultBitBtnGlyph: TGetDefaultBitBtnGlyph = nil; GetDefaultBitBtnGlyph: TGetDefaultBitBtnGlyph = nil;
function GetLCLDefaultBtnGlyph(Kind: TBitBtnKind): TGraphic; function GetLCLDefaultBtnGlyph(Kind: TBitBtnKind): TGraphic;
procedure LoadGlyphFromResource(AGlyph: TButtonGlyph; const AName: String);
procedure LoadGlyphFromLazarusResource(AGlyph: TButtonGlyph; const AName: String); procedure LoadGlyphFromLazarusResource(AGlyph: TButtonGlyph; const AName: String);
procedure LoadGlyphFromStock(AGlyph: TButtonGlyph; idButton: Integer); procedure LoadGlyphFromStock(AGlyph: TButtonGlyph; idButton: Integer);
@ -477,6 +479,25 @@ begin
Result.LoadFromResourceName(hInstance, BitBtnResNames[idButton]); Result.LoadFromResourceName(hInstance, BitBtnResNames[idButton]);
end; end;
procedure LoadGlyphFromResource(AGlyph: TButtonGlyph; const AName: String);
var
C: TPortableNetworkGraphic;
begin
if AName = '' then
C := nil
else
begin
C := TPortableNetworkGraphic.Create;
C.LoadFromResourceName(hInstance, AName);
end;
try
AGlyph.Glyph.Assign(C);
finally
C.Free;
end;
end;
procedure LoadGlyphFromLazarusResource(AGlyph: TButtonGlyph; const AName: String); procedure LoadGlyphFromLazarusResource(AGlyph: TButtonGlyph; const AName: String);
var var
C: TCustomBitmap; C: TCustomBitmap;

5
lcl/include/bitbtn.inc
View File

@ -64,6 +64,11 @@ begin
inherited Click; inherited Click;
end; end;
procedure TCustomBitBtn.LoadGlyphFromResource(const AName: String);
begin
Buttons.LoadGlyphFromResource(FButtonGlyph, AName);
end;
procedure TCustomBitBtn.LoadGlyphFromLazarusResource(const AName: String); procedure TCustomBitBtn.LoadGlyphFromLazarusResource(const AName: String);
begin begin
Buttons.LoadGlyphFromLazarusResource(FButtonGlyph, AName); Buttons.LoadGlyphFromLazarusResource(FButtonGlyph, AName);