search

RRUZ / vcl-styles-utils

Extend and improve the Delphi VCL Styles
https://theroadtodelphi.wordpress.com/
329 stars 115 forks source link

Access Violation using TVCLStylesPreview in Alexandria (with solution) #293

Closed jdorlon-Quest closed 1 year ago

jdorlon-Quest commented 2 years ago

Running the VCL Styles Preview demo under Delphi 11 Alexandria will result in an access violation.

The solution is to change this, in VCL.Styles.Ext, around line 93

  TSourceInfo = record
    Data: TStyleServicesHandle;
    StyleClass: TCustomStyleServicesClass;
  end;

to this

  TSourceInfo = record
    Data: TStyleServicesHandle;
    StyleClass: TCustomStyleServicesClass;
    DesigningState: Boolean;
  end;
RRUZ commented 1 year ago

This was fixed at https://github.com/RRUZ/vcl-styles-utils/commit/7171cc231d8eadabba10fbbbd89768a405fc8a69