Access violation in Delphi 11.1 [TImageList] [TsAlphaImageList] [TsButton]

Viewing 6 posts - 1 through 6 (of 6 total)
  • Author
    Posts
  • #70812
    Support
    Keymaster

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

      #70821
      RapidDeveloper
      Participant

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

        #70832
        Support
        Keymaster

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

          #70836
          RapidDeveloper
          Participant

            I use AlphaControls v16.23 and RAD Delphi 11.1

            #70837
            RapidDeveloper
            Participant

              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]

              #70841
              Support
              Keymaster

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

              Viewing 6 posts - 1 through 6 (of 6 total)
              • You must be logged in to reply to this topic.