Yes, it will be changed, when sharing TBitmaps fully works. AFAIK the only missing thing is some bookkeeping of shared handles.

PS. remove WRITELN from BITMAP.INC

I removed a few of them.

Mattias

Hi
I've noticed about tSpeedButton is different from that one in Delphi,

if I do GLYPH:=aaBitMap then in Delphi was invoke FOryginal.assign(aaBitMap)
but in LAZARUS I see FOryginal:=aaBitMap

that cause I can share aaBitMap to more SpeedButtons because when I destroy first, and second I've got RunError (I can't destroy one object two times)

I'm ask: If it will be it change

PS. remove WRITELN from BITMAP.INC

Darek