[RapidDeveloper]

Access violation in Delphi 11.1 when assigning the property TImageList or TsAlphaImageList to any TsButton controls, on even of closing a program invokes memory leaks.

[Support]

Access Violation occurse before a memory leak?
Is it possible to make a demo with this problem?

[RapidDeveloper]

Yep!, Here the demo project: https://workupload.com/file/mfYTNP93TEd

[Support]

Thank you for the demo, but I can’t repeat the leak, unfortunately.
Which AlphaControls package version do you use?

[RapidDeveloper]

I use AlphaControls v16.23 and RAD Delphi 11.1

[RapidDeveloper]

Also affected version AlphaControls v16.24 and RAD Delphi 11.1

pas file
[code]
unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, sButton, System.ImageList,
Vcl.ImgList, acAlphaImageList;

type
TForm1 = class(TForm)
sButton1: TsButton;
sAlphaImageList1: TsAlphaImageList;
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

initialization

ReportMemoryLeaksOnShutdown:=True;

end.
[/code]

dfm file
[code]
object Form1: TForm1
Left = 0
Top = 0
Caption = ‘Form1’
ClientHeight = 470
ClientWidth = 723
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = ‘Segoe UI’
Font.Style = []
TextHeight = 15
object sButton1: TsButton
Left = 8
Top = 8
Width = 217
Height = 57
Caption = ‘sButton1’
Images = sAlphaImageList1
TabOrder = 0
end
object sAlphaImageList1: TsAlphaImageList
Items = <>
Left = 16
Top = 80
end
end
[/code]

[Support]

Maybe some options should be changed in the projects configuration, I will check it.

[Author]

Posts