[Kujo]

Hello,

how to reproduce:

• Add a TsSkinManager and a TsSkinProvider to a form.
• Select a skin and activate the TsSkinManager.
• Now try to put a TsLabel in the form: you obtain an Access Violation error (check the attached image).

If the TsSkinManager is not active, all works fine.

Here there are the details of the error:

[26D18C76]{acntDelphiXE2_R.bpl} Scommondata.GetFontIndex + $6

[5033D0D1]{vcl160.bpl } Vcl.Controls.TCustomControl.WMPaint (Line 13720, “Vcl.Controls.pas” + 2) + $4

[50332995]{vcl160.bpl } Vcl.Controls.TControl.WndProc (Line 7204, “Vcl.Controls.pas” + 91) + $6

[503329DF]{vcl160.bpl } Vcl.Controls.TControl.DefaultHandler (Line 7248, “Vcl.Controls.pas” + 6) + $E

[50332995]{vcl160.bpl } Vcl.Controls.TControl.WndProc (Line 7204, “Vcl.Controls.pas” + 91) + $6

[503372F3]{vcl160.bpl } Vcl.Controls.TWinControl.WndProc (Line 9976, “Vcl.Controls.pas” + 152) + $6

[26C93531]{acntDelphiXE2_R.bpl} Slabel.TsCustomLabel.WndProc + $E5

[503325D0]{vcl160.bpl } Vcl.Controls.TControl.Perform (Line 6982, “Vcl.Controls.pas” + 10) + $8

[26C5AE82]{acntDelphiXE2_R.bpl} Svclutils.SendAMessage + $62

[26D18C58]{acntDelphiXE2_R.bpl} Scommondata.GetFontIndex + $34

[26C958E6]{acntDelphiXE2_R.bpl} Slabel.TsLabel.TextColor + $56

[26C93274]{acntDelphiXE2_R.bpl} Slabel.TsCustomLabel.DoDrawText + $1F0

[50352058]{vcl160.bpl } Vcl.StdCtrls.TCustomLabel.AdjustBounds (Line 2265, “Vcl.StdCtrls.pas” + 7) + $24

[5035226C]{vcl160.bpl } Vcl.StdCtrls.TCustomLabel.CMTextChanged (Line 2381, “Vcl.StdCtrls.pas” + 2) + $6

[50332995]{vcl160.bpl } Vcl.Controls.TControl.WndProc (Line 7204, “Vcl.Controls.pas” + 91) + $6

[500437B4]{rtl160.bpl } System.UTF8EncodeToShortString (Line 30379, “System.pas” + 1) + $1D

[0B6AFBCE]{IDEFixPack.dll} SetAllowKibitzedFlag + $1952

[500431FF]{rtl160.bpl } System.TInterfacedObject._Release (Line 30148, “System.pas” + 1) + $3

[5004311C]{rtl160.bpl } System.@IntfClear (Line 29967, “System.pas” + 10) + $0

[500409D4]{rtl160.bpl } System.@FinalizeArray (Line 26232, “System.pas” + 129) + $0

[500408C4]{rtl160.bpl } System.@FinalizeRecord (Line 26006, “System.pas” + 21) + $0

[5003CF6C]{rtl160.bpl } System.TMonitor.Destroy (Line 14430, “System.pas” + 0) + $0

[5003C61F]{rtl160.bpl } System.TObject.CleanupInstance (Line 13138, “System.pas” + 20) + $0

[50037A9C]{rtl160.bpl } System.@FreeMem (Line 3502, “System.pas” + 20) + $0

[5003C55C]{rtl160.bpl } System.TObject.FreeInstance (Line 13006, “System.pas” + 2) + $2

[5003CCDA]{rtl160.bpl } System.@ClassDestroy (Line 14206, “System.pas” + 0) + $2

[20FD7E90]{designide160.bpl} ComponentDesigner.TCompInfo.Destroy (Line 6546, “ComponentDesigner.pas” + 4) + $6

[50043210]{rtl160.bpl } System.TInterfacedObject._Release (Line 30150, “System.pas” + 3) + $6

[5004311C]{rtl160.bpl } System.@IntfClear (Line 29967, “System.pas” + 10) + $0

[20FD4243]{designide160.bpl} ComponentDesigner.TComponentRoot.ValidateRename (Line 5266, “ComponentDesigner.pas” + 50) + $20

[26C934CF]{acntDelphiXE2_R.bpl} Slabel.TsCustomLabel.WndProc + $83

[503325D0]{vcl160.bpl } Vcl.Controls.TControl.Perform (Line 6982, “Vcl.Controls.pas” + 10) + $8

[50330499]{vcl160.bpl } Vcl.Controls.TControl.SetTextBuf (Line 5629, “Vcl.Controls.pas” + 2) + $B

[503310EA]{vcl160.bpl } Vcl.Controls.TControl.SetText (Line 6111, “Vcl.Controls.pas” + 8) + $B

[50330EB3]{vcl160.bpl } Vcl.Controls.TControl.SetName (Line 5968, “Vcl.Controls.pas” + 6) + $9

[20FCC9D7]{designide160.bpl} ComponentDesigner.TComponentRoot.DoCreateComponent (Line 2393, “ComponentDesigner.pas” + 42) + $2F

[20FD1E9A]{designide160.bpl} ComponentDesigner.TComponentRoot.CreateCurrentComponent (Line 4442, “ComponentDesigner.pas” + 2) + $32

[20FE9D72]{designide160.bpl} Surface.TDesignSurface.CreateItem (Line 188, “Surface.pas” + 1) + $11

[20FA041E]{designide160.bpl} Designer.TDesigner.DoDragCreate (Line 772, “Designer.pas” + 1) + $F

[20FA0C04]{designide160.bpl} Designer.TDesigner.DragEnd (Line 938, “Designer.pas” + 19) + $3

[20FA3260]{designide160.bpl} Designer.TDesigner.MouseUp (Line 1725, “Designer.pas” + 1) + $2

[51D3E261]{vcldesigner160.bpl} VCLSurface.MouseEvent (Line 2915, “VCLSurface.pas” + 45) + $11

[5003D25B]{rtl160.bpl } System.TMonitor.Exit (Line 14614, “System.pas” + 2) + $7

[51D3EE3F]{vcldesigner160.bpl} VCLSurface.TVclDesignSurface.IsDesignMsg (Line 3176, “VCLSurface.pas” + 48) + $6

[0B6AEFE8]{IDEFixPack.dll} SetAllowKibitzedFlag + $D6C

[5033271B]{vcl160.bpl } Vcl.Controls.TControl.WndProc (Line 7117, “Vcl.Controls.pas” + 4) + $21

[50336B3B]{vcl160.bpl } Vcl.Controls.TWinControl.IsControlMouseMsg (Line 9745, “Vcl.Controls.pas” + 1) + $9

[503372F3]{vcl160.bpl } Vcl.Controls.TWinControl.WndProc (Line 9976, “Vcl.Controls.pas” + 152) + $6

[5044A021]{vcl160.bpl } Vcl.Forms.TCustomForm.WndProc (Line 4344, “Vcl.Forms.pas” + 201) + $5

[51D478BF]{vcldesigner160.bpl} VCLFormContainer.TControlSizer.ControlWndProc (Line 311, “VCLFormContainer.pas” + 33) + $C

[50336948]{vcl160.bpl } Vcl.Controls.TWinControl.MainWndProc (Line 9689, “Vcl.Controls.pas” + 3) + $6

[500B688C]{rtl160.bpl } System.Classes.StdWndProc (Line 13878, “System.Classes.pas” + 8) + $0

[50454598]{vcl160.bpl } Vcl.Forms.TApplication.CancelHint (Line 10993, “Vcl.Forms.pas” + 6) + $7

[50453213]{vcl160.bpl } Vcl.Forms.TApplication.ProcessMessage (Line 10164, “Vcl.Forms.pas” + 23) + $1

[50453256]{vcl160.bpl } Vcl.Forms.TApplication.HandleMessage (Line 10194, “Vcl.Forms.pas” + 1) + $4

[50453595]{vcl160.bpl } Vcl.Forms.TApplication.Run (Line 10332, “Vcl.Forms.pas” + 26) + $3

I'm using:

Delphi XE2, AC 10.10, Windows 7 64 bit

Regards

[Support]

Thank you for the message, this error will be fixed very soon.

[Kujo]

Hello,

solved in 10.11.

Thanks

[Author]

Posts