Icon from Lazarus icons resource

[Dibo]

Hi,
Lazarus have very nice collection of icons (I guess "Tango icons"?). Some icons are included in project exe file (like bitbuttons glyps). Can I somehow use this icons at runtime? I can't find any resource using resource explorer (PE Explorer, Reshack). Example, I want use some icons from bitbutton in my graphic control or speedbutton. I found LoadFromLazarusResource function in TBitmap but I don't know ResName values of this icons. I just don't want clutter resources by adding this same icons.
Regards

[Paul Ishenin]

Look for names at lcl\btn_icons.lrs, lcl\dialog_icons.lrs.

Icon sources are places in lcl\images

[Dibo]

Thanks for reply!
I have some technical dillema. This is the code:

Code: [Select]

SpeedButton1.Glyph := LoadBitmapFromLazarusResource(BitBtnResNames[bkOK]);Must I free SpeedButton1.Glyph before LoadBitmapFromLazarusResource? Because this function create new bitmap instance (Result := TBitmap.Create), but when I do this:

Code: [Select]

SpeedButton1.Glyph.Free;
SpeedButton1.Glyph := LoadBitmapFromLazarusResource(BitBtnResNames[bkOK]);   
... I have access violation. What about memory leaks?

[Paul Ishenin]

SpeedButton.Glyph is a property. This property has setter method. In that setter method Assign() call is used to replace old bitmap content with new. Thus you cannot destroy SpeedButton.Glyph. You need to use temporary variable:

Code: [Select]

B := LoadBitmapFromLazarusResource(BitBtnResNames[bkOK]);
SpeedButton1.Glyph := B;
B.Free;

Or better use next call:

Code: [Select]

SpeedButton11.LoadGlyphFromLazarusResource(BitBtnResNames[bkOK]);