[Kujo]

Hello,

every time I try to add a TsHTMLLabel to a form, I receive the following error.

Here there are the details of the error:

[1DD3AFB9]{acntDelphiXE2_R.bpl} Slabel.TsLabel.TextColor + $59

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

[50315BD0]{vcl160.bpl } Vcl.Graphics.TBitmap.NewImage (Line 8902, “Vcl.Graphics.pas” + 36) + $5

[50314B59]{vcl160.bpl } Vcl.Graphics.TBitmap.CopyImage (Line 7965, “Vcl.Graphics.pas” + 17) + $16

[50044062]{rtl160.bpl } SysInit.@GetTls (Line 725, “SysInit.pas” + 23) + $0

[500B3A85]{rtl160.bpl } System.Classes.TThread.GetCurrentThread (Line 11939, “System.Classes.pas” + 13) + $0

[5030C845]{vcl160.bpl } Vcl.Graphics.TResourceManager.FreeResource (Line 1861, “Vcl.Graphics.pas” + 20) + $D

[5030C8F3]{vcl160.bpl } Vcl.Graphics.TResourceManager.ChangeResource (Line 1896, “Vcl.Graphics.pas” + 14) + $D

[5004097C]{rtl160.bpl } System.@FinalizeArray (Line 26173, “System.pas” + 70) + $0

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

[1DDC3514]{acntDelphiXE2_R.bpl} Scommondata.GetFontIndex + $218

[5030DF3A]{vcl160.bpl } Vcl.Graphics.TBrush.SetStyle (Line 3540, “Vcl.Graphics.pas” + 16) + $4

[1DD3AFA9]{acntDelphiXE2_R.bpl} Slabel.TsLabel.TextColor + $49

[1DD3B0B0]{acntDelphiXE2_R.bpl} Slabel.TsHTMLLabel.DoDrawText + $A4

[5030F086]{vcl160.bpl } Vcl.Graphics.TCanvas.SetPenPos (Line 4115, “Vcl.Graphics.pas” + 1) + $9

[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

[50043411]{rtl160.bpl } System.UnicodeToUtf8 (Line 30271, “System.pas” + 5) + $16

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

[5003CC79]{rtl160.bpl } System.TObject.FieldAddress (Line 14145, “System.pas” + 1) + $D

[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

[1DD38D6B]{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

[5003C866]{rtl160.bpl } System.@IsClass (Line 13351, “System.pas” + 1) + $8

[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

[Support]

Thank you for the message, this issue will be solved in the v8.34

[Kujo]

'Support' wrote:

Thank you for the message, this issue will be solved in the v8.34

Ok, problem solved in 8.34

Thank you

[Author]

Posts