Hello,
In FMX a simple form with TMSFMXTableView switching fom code to design mode it throws an Exception:
Fehler:
Zugriffsverletzung bei Adresse 2A37EAB0 in Modul 'TMSFMXPackPkgDXE14.bpl'. Lesen von Adresse 000000C.
Sometimes the design is shown and can be edited, mostly there is no way to get to it.
What I did:
uninstall TMS Components and reinstalled.
deleted all dcu
Created a new FMX Project
Whats wrong here?
Thanks
I forgot to say the bpl Version:
v3.7.7.2 | Tuesday, September 28, 2021
The shortest way to get the exception:
New FMX Project
add component: TMSFMXTableView
Set: adopttostyle to TRUE
align to center
run for Android64 (without debug)
close the app on the tablet
press F12 to switch code/design (sometimes 2-3 times)
then the exception-details:
[2982EAB0]{TMSFMXPackPkgDXE14.bpl} Fmx.Tmstableview.TTMSFMXTableViewItem.Shape + $20
[5005FF3E]{rtl280.bpl } System.TObject.GetInterface (Line 18413, "System.pas" + 7) + $9
[2982EDB3]{TMSFMXPackPkgDXE14.bpl} Fmx.Tmstableview.TTMSFMXTableViewItem.ShapePlaceHolder + $3
[298275CD]{TMSFMXPackPkgDXE14.bpl} Fmx.Tmstableview.TTMSFMXTableView.UpdateLookupBar + $1E1
[29829C23]{TMSFMXPackPkgDXE14.bpl} Fmx.Tmstableview.TTMSFMXTableView.ApplyStyle + $67
[114386A3]{fmx280.bpl } FMX.Controls.InternalApplyStyle (Line 5861, "FMX.Controls.pas" + 22) + $8
[1143883B]{fmx280.bpl } FMX.Controls.TStyledControl.ApplyStyleLookup (Line 5905, "FMX.Controls.pas" + 21) + $1
[11437E3B]{fmx280.bpl } FMX.Controls.TStyledControl.RecalcSize (Line 5647, "FMX.Controls.pas" + 1) + $4
[15789689]{fmxdesigner280.bpl} FmxFormContainer.TFormContainerForm.RefreshControl (Line 740, "FmxFormContainer.pas" + 5) + $4
[1578A138]{fmxdesigner280.bpl} FmxFormContainer.TFormContainerForm.NeedStyleLookup (Line 752, "FmxFormContainer.pas" + 5) + $5
[1578B083]{fmxdesigner280.bpl} FmxFormContainer.TFormContainerForm.SetMasterStyle (Line 1245, "FmxFormContainer.pas" + 7) + $2
[157915E3]{fmxdesigner280.bpl} FmxFormContainer.TFormBoundary.SetMasterStyle (Line 3432, "FmxFormContainer.pas" + 2) + $7
[20FC5AFC]{designide280.bpl} EmbeddedFormDesigner.TEditorFormDesigner.DoSelectStyle (Line 179, "EmbeddedFormDesigner.pas" + 10) + $9
[20FC2B64]{designide280.bpl} ViewSelector.TViewSelectorFrame.cbStyleSelectorChange (Line 336, "ViewSelector.pas" + 2) + $2F
[20FC3A14]{designide280.bpl} ViewSelector.TViewSelectorFrame.SelectStyle (Line 731, "ViewSelector.pas" + 16) + $C
[50061544]{rtl280.bpl } System.@TryFinallyExit (Line 23404, "System.pas" + 8) + $0
[20FC39C5]{designide280.bpl} ViewSelector.TViewSelectorFrame.SelectStyle (Line 725, "ViewSelector.pas" + 10) + $0
[20FC6435]{designide280.bpl} EmbeddedFormDesigner.TEditorFormDesigner.SelectPreviewStyle (Line 415, "EmbeddedFormDesigner.pas" + 2) + $8
[157895A8]{fmxdesigner280.bpl} FmxFormContainer.TFormContainerForm.SelectMasterStyle (Line 730, "FmxFormContainer.pas" + 22) + $9
[1578A1AD]{fmxdesigner280.bpl} FmxFormContainer.TFormContainerForm.Activate (Line 764, "FmxFormContainer.pas" + 1) + $2
[1578B756]{fmxdesigner280.bpl} FmxFormContainer.TFmxEditorFormDesignerWrapper.DisplayDesigner (Line 1553, "FmxFormContainer.pas" + 13) + $7
[20FC7DFD]{designide280.bpl} EmbeddedDesignerForm.TFormEditorView.SetViewContext (Line 387, "EmbeddedDesignerForm.pas" + 5) + $4
[206E7E70]{coreide280.bpl} EditorForm.TEditWindow.SetViewContext (Line 5078, "EditorForm.pas" + 4) + $17
[206ADE2F]{coreide280.bpl} EditorBuffer.TEditSource.SwitchToView (Line 4558, "EditorBuffer.pas" + 18) + $6
[15792B67]{fmxdesigner280.bpl} FmxFormContainer.TEmbeddedFormHostWrapper.Show (Line 3983, "FmxFormContainer.pas" + 6) + $D
[1579BD46]{fmxdesigner280.bpl} FmxFormDesigner.TFmxRootDesigner.DoShow (Line 1569, "FmxFormDesigner.pas" + 2) + $8
[20F4E1B7]{designide280.bpl} ComponentDesigner.TComponentRoot.Show (Line 4522, "ComponentDesigner.pas" + 9) + $4
[21CA8B71]{delphicoreide280.bpl} DelphiModule.TPascalCodeMgrModHandler.ShowExternalViewer (Line 1664, "DelphiModule.pas" + 3) + $5
[205E14C4]{coreide280.bpl} SourceModule.TCodeISourceModule.ShowExternalViewer (Line 1539, "SourceModule.pas" + 2) + $32
[205DF3D3]{coreide280.bpl} SourceModule.TSourceModule.ShowExternalViewer (Line 879, "SourceModule.pas" + 1) + $2F
[207B38A5]{coreide280.bpl} DocModul.ToggleForm (Line 3531, "DocModul.pas" + 5) + $2
[2230E8BC]{delphide280.bpl} PasReg.TPascalPersonalityTraits.ViewToggleFormUnit (Line 1184, "PasReg.pas" + 0) + $0
[205B7BB7]{coreide280.bpl} CoreViewCmds.TViewCommands.ViewToggleForm (Line 561, "CoreViewCmds.pas" + 6) + $5
[501733CF]{rtl280.bpl } System.Classes.TBasicAction.Execute (Line 17813, "System.Classes.pas" + 3) + $7
[50CAF9B2]{vcl280.bpl } Vcl.ActnList.TCustomAction.Execute (Line 284, "Vcl.ActnList.pas" + 19) + $35
[50173223]{rtl280.bpl } System.Classes.TBasicActionLink.Execute (Line 17724, "System.Classes.pas" + 2) + $7
[50CC820C]{vcl280.bpl } Vcl.Controls.TControl.Click (Line 7658, "Vcl.Controls.pas" + 7) + $7
[50D50550]{vcl280.bpl } Vcl.ComCtrls.TToolButton.Click (Line 22464, "Vcl.ComCtrls.pas" + 0) + $0
[50CC86D7]{vcl280.bpl } Vcl.Controls.TControl.WMLButtonUp (Line 7799, "Vcl.Controls.pas" + 7) + $6
[50CC7CCA]{vcl280.bpl } Vcl.Controls.TControl.WndProc (Line 7544, "Vcl.Controls.pas" + 91) + $6
[50DCDF3F]{vcl280.bpl } Vcl.Themes.TStyleManager.GetStyle (Line 5800, "Vcl.Themes.pas" + 18) + $1E
[50093C27]{rtl280.bpl } System.SysUtils.AnsiCompareText (Line 7195, "System.SysUtils.pas" + 1) + $2F
[5006076C]{rtl280.bpl } System.TMonitor.Destroy (Line 19558, "System.pas" + 0) + $0
[50064774]{rtl280.bpl } System.@FinalizeRecord (Line 32815, "System.pas" + 76) + $2
[50DCDE51]{vcl280.bpl } Vcl.Themes.TStyleManager.GetStyle (Line 5789, "Vcl.Themes.pas" + 7) + $D
[50061544]{rtl280.bpl } System.@TryFinallyExit (Line 23404, "System.pas" + 8) + $0
[50CC7900]{vcl280.bpl } Vcl.Controls.TControl.Perform (Line 7322, "Vcl.Controls.pas" + 10) + $8
[50CCC435]{vcl280.bpl } Vcl.Controls.GetControlAtPos (Line 10291, "Vcl.Controls.pas" + 2) + $78
[50CCC506]{vcl280.bpl } Vcl.Controls.InternalControlAtPos (Line 10315, "Vcl.Controls.pas" + 15) + $E
[50D658DE]{vcl280.bpl } Vcl.ComCtrls.TToolBarStyleHook.WndProc (Line 34293, "Vcl.ComCtrls.pas" + 6) + $4
[50DD15DE]{vcl280.bpl } Vcl.Themes.TStyleHook.HandleMessage (Line 7389, "Vcl.Themes.pas" + 20) + $6
[50CC7900]{vcl280.bpl } Vcl.Controls.TControl.Perform (Line 7322, "Vcl.Controls.pas" + 10) + $8
[50CCC5EC]{vcl280.bpl } Vcl.Controls.TWinControl.IsControlMouseMsg (Line 10344, "Vcl.Controls.pas" + 15) + $29
[50CCCC02]{vcl280.bpl } Vcl.Controls.TWinControl.WndProc (Line 10521, "Vcl.Controls.pas" + 112) + $6
[50D52A41]{vcl280.bpl } Vcl.ComCtrls.TToolBar.UpdateButtonState (Line 23818, "Vcl.ComCtrls.pas" + 11) + $27
[50D52A82]{vcl280.bpl } Vcl.ComCtrls.TToolBar.UpdateButtonStates (Line 23829, "Vcl.ComCtrls.pas" + 3) + $4
[50D556EE]{vcl280.bpl } Vcl.ComCtrls.TToolBar.WndProc (Line 25450, "Vcl.ComCtrls.pas" + 104) + $6
[50CCC338]{vcl280.bpl } Vcl.Controls.TWinControl.MainWndProc (Line 10267, "Vcl.Controls.pas" + 3) + $6
[50174200]{rtl280.bpl } System.Classes.StdWndProc (Line 18318, "System.Classes.pas" + 8) + $0
[50E66967]{vcl280.bpl } Vcl.AppEvnts.TMultiCaster.GetAppEvents (Line 686, "Vcl.AppEvnts.pas" + 1) + $B
[50E0D68F]{vcl280.bpl } Vcl.Forms.TApplication.ProcessMessage (Line 11317, "Vcl.Forms.pas" + 23) + $1
[50E0D6D2]{vcl280.bpl } Vcl.Forms.TApplication.HandleMessage (Line 11347, "Vcl.Forms.pas" + 1) + $4
[50E0DA11]{vcl280.bpl } Vcl.Forms.TApplication.Run (Line 11486, "Vcl.Forms.pas" + 27) + $3
[004F6F82]{bds.exe } bds.bds (Line 227, "" + 16) + $2
We have detected this issue here and have applied a fix. The next version will address this.