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

LCL: TButtonGlyph: clear ExternalImages on Glyph change and assign

Browse Source 
git-svn-id: trunk@57719 -
This commit is contained in:
ondrej 2018-04-26 08:26:27 +00:00
parent 739bb2364f
commit d97dbf63c9
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/include/buttonglyph.inc
View File

@ -170,7 +170,12 @@ begin
if FOriginal = Value then
exit;
if FOriginal = nil then
FOriginal := TGlyphBitmap.Create(Self);
FOriginal := TGlyphBitmap.Create(Self)
else
begin
FExternalImages := nil;
FExternalImageIndex := -1;
end;
FOriginal.OnChange := nil;
FOriginal.Assign(Value);
FOriginal.OnChange := @GlyphChanged;
@ -235,6 +240,8 @@ begin
FImagesCache := GetImageListCache;
FImagesCache.RegisterListener(Self);
FImagesCache.RegisterBitmap(Self, FOriginal, NumGlyphs);
FExternalImageIndex := -1;
FExternalImages := nil;
end;
if Sender = FOriginal then