Jump to content
uniGUI Discussion Forums

mierlp

uniGUI Subscriber
  • Content Count

    408
  • Joined

  • Last visited

  • Days Won

    16

Posts posted by mierlp


  1. Hi

    For a form you can set the cursor like FormVendor.Cursor := crHourGlass
    When i try FrameVendor.Cursor := crHOurGlass i get the following message when compiling :

    fraVendor.pas(291) E2233 Property 'Cursor' inaccessible here

    Is this not possible with a frame ?


  2. I found a older topic but did not try it

    What is URL.DLL?

    The file named URL.DLL is developed by Microsoft Corporation. The file is used by the Internet Explorer and the shell extension module. IE is the basic internet browser on all Windows platforms. The DLL is safe and it receives prompt security updates. The threat level of the file is found to be 1.

    URL.DLL is located in C:\Windows\System32\url.dll.

    Quote

     

    Answer:
    To make sure in this point you need to import InetIsOffline function from URL.DLL:

    function InetIsOffline(Flag: Integer): Boolean; stdcall; external 'URL.DLL';

    and then simply call this function in place you want to check connection status:

    if InetIsOffline(0) then
       ShowMessage('This computer is not connected to Internet!')
    else
       ShowMessage(You are connected to Internet!');

    This function return TRUE if the local system isn't connected to Internet, or FALSE if it's connected or no attempt has been yet made to connect.

    Notes:
    Variable Flag is ignored, so always use zero.
    This DLL is usual installed on most computers. 

     

     

     

     


  3. Even when starting Windows 10 in SAFE MODE with only the network connection i still got the same error over and over.

    What can i do more...

     

    Quote

    (04243483){bds.exe     } [04244483]
    [199BB136]{uniGUI26Core.bpl} Uniguiclasses.TUniControl.IsClientEventsStored + $E
    [501262F2]{rtl260.bpl  } System.TypInfo.IsStoredPropRTTI (Line 2565, "System.TypInfo.pas" + 19) + $5
    [5012697F]{rtl260.bpl  } System.TypInfo.IsStoredProp (Line 2731, "System.TypInfo.pas" + 2) + $1
    [2102F61A]{designide260.bpl} DesignEditors.TPropertyEditor.GetIsDefault (Line 1175, "DesignEditors.pas" + 13) + $5
    [500A330F]{rtl260.bpl  } System.SysUtils.Supports (Line 26935, "System.SysUtils.pas" + 1) + $D
    [2125E498]{vclide260.bpl} PropBox.TCustomPropListBox.DrawPropItem (Line 1072, "PropBox.pas" + 263) + $5
    [50CEEBB1]{vcl260.bpl  } Vcl.Graphics.TResourceManager.FreeResource (Line 1891, "Vcl.Graphics.pas" + 20) + $D
    [2125EDEA]{vclide260.bpl} PropBox.TCustomPropListBox.CNDrawItem (Line 1312, "PropBox.pas" + 12) + $2E
    [50D15292]{vcl260.bpl  } Vcl.Controls.TControl.WndProc (Line 7420, "Vcl.Controls.pas" + 91) + $6
    [5006037C]{rtl260.bpl  } System.TMonitor.Destroy (Line 19144, "System.pas" + 0) + $0
    [5005FE0F]{rtl260.bpl  } System.TObject.Dispatch (Line 18426, "System.pas" + 11) + $0
    [09A89252]{themeloader260.bpl} Idetheme.Vclstylehooks.TIDEStyleHook.WndProc + $7A
    [09A89BF8]{themeloader260.bpl} Idetheme.Vclstylehooks.TMouseTrackControlIDEStyleHook.WndProc + $0
    [09A9362C]{themeloader260.bpl} Idetheme.Vclstylehooks.TScrollingIDEStyleHook.WndProc + $0
    [50067A1C]{rtl260.bpl  } System.@IntfClear (Line 38276, "System.pas" + 10) + $0
    [09A88D0B]{themeloader260.bpl} Idetheme.Vclstylehooks.TIDEStyleHook.HandleMessage + $B7
    [50067A1C]{rtl260.bpl  } System.@IntfClear (Line 38276, "System.pas" + 10) + $0
    [5006404C]{rtl260.bpl  } System.@FinalizeArray (Line 32929, "System.pas" + 144) + $0
    [09AC25E2]{themeloader260.bpl} Idetheme.Stylemanager.TIDEThemeStyleEngine.UnRegisterSysStyleHook + $106
    [50D197BC]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10122, "Vcl.Controls.pas" + 10) + $48
    [50D19D47]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10278, "Vcl.Controls.pas" + 166) + $6
    [50D3E7C9]{vcl260.bpl  } Vcl.StdCtrls.TCustomListBox.WndProc (Line 7274, "Vcl.StdCtrls.pas" + 55) + $5
    [50D14ECC]{vcl260.bpl  } Vcl.Controls.TControl.Perform (Line 7198, "Vcl.Controls.pas" + 10) + $8
    [50D19EAB]{vcl260.bpl  } Vcl.Controls.DoControlMsg (Line 10347, "Vcl.Controls.pas" + 12) + $11
    [50D1AA4E]{vcl260.bpl  } Vcl.Controls.TWinControl.WMDrawItem (Line 10673, "Vcl.Controls.pas" + 1) + $8
    [50D15292]{vcl260.bpl  } Vcl.Controls.TControl.WndProc (Line 7420, "Vcl.Controls.pas" + 91) + $6
    [50D19DDA]{vcl260.bpl  } Vcl.Controls.TWinControl.DefaultHandler (Line 10306, "Vcl.Controls.pas" + 17) + $10
    [09AC3EBD]{themeloader260.bpl} System.Generics.Collections. + $15
    [50067A1C]{rtl260.bpl  } System.@IntfClear (Line 38276, "System.pas" + 10) + $0
    [5006404C]{rtl260.bpl  } System.@FinalizeArray (Line 32929, "System.pas" + 144) + $0
    [09AC25E2]{themeloader260.bpl} Idetheme.Stylemanager.TIDEThemeStyleEngine.UnRegisterSysStyleHook + $106
    [50D197BC]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10122, "Vcl.Controls.pas" + 10) + $48
    [50D19D47]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10278, "Vcl.Controls.pas" + 166) + $6
    [50D19314]{vcl260.bpl  } Vcl.Controls.TWinControl.MainWndProc (Line 9977, "Vcl.Controls.pas" + 3) + $6
    [50179C9C]{rtl260.bpl  } System.Classes.StdWndProc (Line 17959, "System.Classes.pas" + 11) + $2
    [218C5147]{vclactnband260.bpl} Vcl.ActnMenus.CallWindowHook (Line 757, "Vcl.ActnMenus.pas" + 20) + $F
    [50D19E56]{vcl260.bpl  } Vcl.Controls.TWinControl.DefaultHandler (Line 10319, "Vcl.Controls.pas" + 30) + $19
    [50D1A057]{vcl260.bpl  } Vcl.Controls.TWinControl.PaintWindow (Line 10402, "Vcl.Controls.pas" + 9) + $4
    [50D19F11]{vcl260.bpl  } Vcl.Controls.TWinControl.PaintHandler (Line 10362, "Vcl.Controls.pas" + 4) + $14
    [50D1A6F8]{vcl260.bpl  } Vcl.Controls.TWinControl.WMPaint (Line 10563, "Vcl.Controls.pas" + 6) + $5
    [50067A1C]{rtl260.bpl  } System.@IntfClear (Line 38276, "System.pas" + 10) + $0
    [5006404C]{rtl260.bpl  } System.@FinalizeArray (Line 32929, "System.pas" + 144) + $0
    [09AC25E2]{themeloader260.bpl} Idetheme.Stylemanager.TIDEThemeStyleEngine.UnRegisterSysStyleHook + $106
    [50D197BC]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10122, "Vcl.Controls.pas" + 10) + $48
    [50D19D47]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10278, "Vcl.Controls.pas" + 166) + $6
    [50D3EC1C]{vcl260.bpl  } Vcl.StdCtrls.TCustomListBox.WMPaint (Line 7458, "Vcl.StdCtrls.pas" + 6) + $6
    [50D15292]{vcl260.bpl  } Vcl.Controls.TControl.WndProc (Line 7420, "Vcl.Controls.pas" + 91) + $6
    [09A89252]{themeloader260.bpl} Idetheme.Vclstylehooks.TIDEStyleHook.WndProc + $7A
    [09A88D0B]{themeloader260.bpl} Idetheme.Vclstylehooks.TIDEStyleHook.HandleMessage + $B7
    [50D14ECC]{vcl260.bpl  } Vcl.Controls.TControl.Perform (Line 7198, "Vcl.Controls.pas" + 10) + $8
    [5005FE0F]{rtl260.bpl  } System.TObject.Dispatch (Line 18426, "System.pas" + 11) + $0
    [09A89252]{themeloader260.bpl} Idetheme.Vclstylehooks.TIDEStyleHook.WndProc + $7A
    [09A89BF8]{themeloader260.bpl} Idetheme.Vclstylehooks.TMouseTrackControlIDEStyleHook.WndProc + $0
    [09A9362C]{themeloader260.bpl} Idetheme.Vclstylehooks.TScrollingIDEStyleHook.WndProc + $0
    [50067A1C]{rtl260.bpl  } System.@IntfClear (Line 38276, "System.pas" + 10) + $0
    [09A88D0B]{themeloader260.bpl} Idetheme.Vclstylehooks.TIDEStyleHook.HandleMessage + $B7
    [50067A1C]{rtl260.bpl  } System.@IntfClear (Line 38276, "System.pas" + 10) + $0
    [5006404C]{rtl260.bpl  } System.@FinalizeArray (Line 32929, "System.pas" + 144) + $0
    [09AC25E2]{themeloader260.bpl} Idetheme.Stylemanager.TIDEThemeStyleEngine.UnRegisterSysStyleHook + $106
    [50D197BC]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10122, "Vcl.Controls.pas" + 10) + $48
    [50D19D47]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10278, "Vcl.Controls.pas" + 166) + $6
    [50D3E7C9]{vcl260.bpl  } Vcl.StdCtrls.TCustomListBox.WndProc (Line 7274, "Vcl.StdCtrls.pas" + 55) + $5
    [50D19314]{vcl260.bpl  } Vcl.Controls.TWinControl.MainWndProc (Line 9977, "Vcl.Controls.pas" + 3) + $6
    [50179C9C]{rtl260.bpl  } System.Classes.StdWndProc (Line 17959, "System.Classes.pas" + 11) + $2
    [218C5147]{vclactnband260.bpl} Vcl.ActnMenus.CallWindowHook (Line 757, "Vcl.ActnMenus.pas" + 20) + $F
    [50D1CCE9]{vcl260.bpl  } Vcl.Controls.TWinControl.Update (Line 12330, "Vcl.Controls.pas" + 1) + $12
    [50D1CD01]{vcl260.bpl  } Vcl.Controls.TWinControl.Repaint (Line 12336, "Vcl.Controls.pas" + 2) + $4
    [50D14022]{vcl260.bpl  } Vcl.Controls.TControl.Refresh (Line 6661, "Vcl.Controls.pas" + 0) + $2
    [2125D16B]{vclide260.bpl} PropBox.TCustomPropListBox.ItemsChanged (Line 551, "PropBox.pas" + 3) + $2
    [50161CE9]{rtl260.bpl  } System.Classes.TStringList.Changing (Line 7284, "System.Classes.pas" + 1) + $0
    [5016279F]{rtl260.bpl  } System.Classes.TStringList.SetUpdateState (Line 7665, "System.Classes.pas" + 1) + $2
    [501603C1]{rtl260.bpl  } System.Classes.TStrings.GetUpdating (Line 6629, "System.Classes.pas" + 0) + $1
    [2125EFCA]{vclide260.bpl} PropBox.TCustomPropListBox.Reset (Line 1376, "PropBox.pas" + 25) + $9
    [21266144]{vclide260.bpl} IDEInspListBox.TInspListBox.Reset (Line 1557, "IDEInspListBox.pas" + 3) + $2
    [2125F92B]{vclide260.bpl} PropBox.TCustomPropListBox.SetSelection (Line 1616, "PropBox.pas" + 3) + $4
    [209F2C19]{coreide260.bpl} PropInsp.TPropertyInspector.Refresh (Line 1873, "PropInsp.pas" + 47) + $12
    [209F2FC0]{coreide260.bpl} PropInsp.TPropertyInspector.Modified (Line 1931, "PropInsp.pas" + 0) + $0
    [20953B64]{coreide260.bpl} PropInspServices.TPropInspManager.NotifyModified (Line 81, "PropInspServices.pas" + 4) + $5
    [2103C645]{designide260.bpl} ToolUtils.ForEach (Line 99, "ToolUtils.pas" + 5) + $F
    [20953AC5]{coreide260.bpl} PropInspServices.TPropInspManager.Modified (Line 58, "PropInspServices.pas" + 1) + $B
    [20953FD3]{coreide260.bpl} PropInspServices.TPropInspManager.SetSelection (Line 159, "PropInspServices.pas" + 10) + $2
    [21E23984]{delphicoreide260.bpl} PropInspManage.TDesignerPropSelection.UpdatePropertyList (Line 730, "PropInspManage.pas" + 43) + $1C
    [21E230BD]{delphicoreide260.bpl} PropInspManage.TDesignerPropSelection.SelectionChanged (Line 584, "PropInspManage.pas" + 4) + $6
    [21070F53]{designide260.bpl} ComponentDesigner.DesignNotificationSelectionChanged (Line 8832, "ComponentDesigner.pas" + 5) + $A
    [2106C5F8]{designide260.bpl} ComponentDesigner.TComponentDesigner.SetSelection (Line 7021, "ComponentDesigner.pas" + 20) + $5
    [2106CB7E]{designide260.bpl} ComponentDesigner.TComponentDesigner.UpdateSelections (Line 7089, "ComponentDesigner.pas" + 19) + $C
    [2106C315]{designide260.bpl} ComponentDesigner.TComponentDesigner.RootActivated (Line 6941, "ComponentDesigner.pas" + 5) + $2
    [52860C2E]{vcldesigner260.bpl} VCLFormDesigner.TVCLRootDesigner.Activate (Line 344, "VCLFormDesigner.pas" + 4) + $1E
    [52850DDA]{vcldesigner260.bpl} VCLSurface.TVclDesignSurface.IsDesignMsg (Line 3655, "VCLSurface.pas" + 114) + $A
    [50D1AC5C]{vcl260.bpl  } Vcl.Controls.TWinControl.WMWindowPosChanging (Line 10758, "Vcl.Controls.pas" + 11) + $6
    [5005FC12]{rtl260.bpl  } System.@IsClass (Line 18044, "System.pas" + 1) + $8
    [50D15017]{vcl260.bpl  } Vcl.Controls.TControl.WndProc (Line 7333, "Vcl.Controls.pas" + 4) + $21
    [50D15292]{vcl260.bpl  } Vcl.Controls.TControl.WndProc (Line 7420, "Vcl.Controls.pas" + 91) + $6
    [50060980]{rtl260.bpl  } System.TMonitor.TryEnter (Line 19547, "System.pas" + 10) + $0
    [500604A0]{rtl260.bpl  } System.TMonitor.Enter (Line 19208, "System.pas" + 4) + $2
    [5005FA58]{rtl260.bpl  } System.TObject.GetInterface (Line 17934, "System.pas" + 8) + $A
    [5005FAA1]{rtl260.bpl  } System.TObject.GetInterface (Line 17941, "System.pas" + 15) + $10
    [50067A1C]{rtl260.bpl  } System.@IntfClear (Line 38276, "System.pas" + 10) + $0
    [5006404C]{rtl260.bpl  } System.@FinalizeArray (Line 32929, "System.pas" + 144) + $0
    [09AC25E2]{themeloader260.bpl} Idetheme.Stylemanager.TIDEThemeStyleEngine.UnRegisterSysStyleHook + $106
    [50D197BC]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10122, "Vcl.Controls.pas" + 10) + $48
    [50D19D47]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10278, "Vcl.Controls.pas" + 166) + $6
    [199B66B1]{uniGUI26Core.bpl} Uniguiclasses.TUniControl.WndProc + $9
    [50D19314]{vcl260.bpl  } Vcl.Controls.TWinControl.MainWndProc (Line 9977, "Vcl.Controls.pas" + 3) + $6
    [50179C9C]{rtl260.bpl  } System.Classes.StdWndProc (Line 17959, "System.Classes.pas" + 11) + $2
    [218C5147]{vclactnband260.bpl} Vcl.ActnMenus.CallWindowHook (Line 757, "Vcl.ActnMenus.pas" + 20) + $F
    [50D1CADB]{vcl260.bpl  } Vcl.Controls.TWinControl.SetZOrderPosition (Line 12226, "Vcl.Controls.pas" + 26) + $12
    [50D1CB16]{vcl260.bpl  } Vcl.Controls.TWinControl.SetZOrder (Line 12243, "Vcl.Controls.pas" + 6) + $4
    [50D13CA3]{vcl260.bpl  } Vcl.Controls.TControl.BringToFront (Line 6489, "Vcl.Controls.pas" + 1) + $6
    [199B3DE6]{uniGUI26Core.bpl} Uniguiclasses.TUniControl.BringToFront + $E
    [19C0BF96]{uniGUI26VCL.bpl} Unixpagecontrol.TVCLTabSheet._OnShow + $E
    [50D7B1C1]{vcl260.bpl  } Vcl.ComCtrls.TTabSheet.DoShow (Line 6252, "Vcl.ComCtrls.pas" + 2) + $A
    [50D7B481]{vcl260.bpl  } Vcl.ComCtrls.TTabSheet.CMShowingChanged (Line 6382, "Vcl.ComCtrls.pas" + 5) + $7
    [50D15292]{vcl260.bpl  } Vcl.Controls.TControl.WndProc (Line 7420, "Vcl.Controls.pas" + 91) + $6
    [218C5147]{vclactnband260.bpl} Vcl.ActnMenus.CallWindowHook (Line 757, "Vcl.ActnMenus.pas" + 20) + $F
    [50067A1C]{rtl260.bpl  } System.@IntfClear (Line 38276, "System.pas" + 10) + $0
    [5006404C]{rtl260.bpl  } System.@FinalizeArray (Line 32929, "System.pas" + 144) + $0
    [09AC25E2]{themeloader260.bpl} Idetheme.Stylemanager.TIDEThemeStyleEngine.UnRegisterSysStyleHook + $106
    [50D197BC]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10122, "Vcl.Controls.pas" + 10) + $48
    [50D19D47]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10278, "Vcl.Controls.pas" + 166) + $6
    [199AC15D]{uniGUI26Core.bpl} Uniguibaseclasses.TUniGUIBaseControl.VCLWndProc + $19
    [50D14ECC]{vcl260.bpl  } Vcl.Controls.TControl.Perform (Line 7198, "Vcl.Controls.pas" + 10) + $8
    [50D190BD]{vcl260.bpl  } Vcl.Controls.TWinControl.UpdateShowing (Line 9900, "Vcl.Controls.pas" + 19) + $C
    [50D191CC]{vcl260.bpl  } Vcl.Controls.TWinControl.UpdateControlState (Line 9935, "Vcl.Controls.pas" + 21) + $3
    [50D1BF0A]{vcl260.bpl  } Vcl.Controls.TWinControl.CMVisibleChanged (Line 11726, "Vcl.Controls.pas" + 3) + $2
    [50D15292]{vcl260.bpl  } Vcl.Controls.TControl.WndProc (Line 7420, "Vcl.Controls.pas" + 91) + $6
    [50D19D47]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10278, "Vcl.Controls.pas" + 166) + $6
    [199AC15D]{uniGUI26Core.bpl} Uniguibaseclasses.TUniGUIBaseControl.VCLWndProc + $19
    [50D14ECC]{vcl260.bpl  } Vcl.Controls.TControl.Perform (Line 7198, "Vcl.Controls.pas" + 10) + $8
    [50D138EA]{vcl260.bpl  } Vcl.Controls.TControl.SetVisible (Line 6224, "Vcl.Controls.pas" + 5) + $C
    [50D7B98B]{vcl260.bpl  } Vcl.ComCtrls.TPageControl.ChangeActivePage (Line 6529, "Vcl.ComCtrls.pas" + 17) + $4
    [50D7BEB6]{vcl260.bpl  } Vcl.ComCtrls.TPageControl.SetActivePage (Line 6726, "Vcl.ComCtrls.pas" + 5) + $5
    [50D7BE28]{vcl260.bpl  } Vcl.ComCtrls.TPageControl.RemovePage (Line 6705, "Vcl.ComCtrls.pas" + 6) + $4
    [50D7B169]{vcl260.bpl  } Vcl.ComCtrls.TTabSheet.Destroy (Line 6233, "Vcl.ComCtrls.pas" + 4) + $8
    [5005F928]{rtl260.bpl  } System.TObject.Free (Line 17586, "System.pas" + 1) + $4
    [199AD0A2]{uniGUI26Core.bpl} Uniguibaseclasses.TUniGUIBaseControl + $46
    [199B3B3B]{uniGUI26Core.bpl} Uniguiclasses.TUniControl + $2BB
    [5005A264]{rtl260.bpl  } System.@FreeMem (Line 4878, "System.pas" + 20) + $0
    [5005F830]{rtl260.bpl  } System.TObject.FreeInstance (Line 17523, "System.pas" + 2) + $2
    [199BF62D]{uniGUI26Core.bpl} Uniguiclasses.TUniContainer + $11
    [19ACA27C]{uniGUI26.bpl} Unipanel.TUniCustomPanel + $1C
    [19AFF686]{uniGUI26.bpl} Unipagecontrol.TUniCustomTabSheet + $22
    [5005F928]{rtl260.bpl  } System.TObject.Free (Line 17586, "System.pas" + 1) + $4
    [210669DA]{designide260.bpl} ComponentDesigner.TComponentRoot.DeleteSelection (Line 5139, "ComponentDesigner.pas" + 44) + $2
    [21081E33]{designide260.bpl} Surface.TDesignSurface.DeleteSelection (Line 208, "Surface.pas" + 0) + $7
    [21024B7B]{designide260.bpl} Designer.TDesigner.DeleteSelection (Line 789, "Designer.pas" + 2) + $5
    [210273BB]{designide260.bpl} Designer.TDesigner.Key (Line 1607, "Designer.pas" + 4) + $3
    [528502BC]{vcldesigner260.bpl} VCLSurface.KeyEvent (Line 3420, "VCLSurface.pas" + 8) + $1E
    [52850BD6]{vcldesigner260.bpl} VCLSurface.TVclDesignSurface.IsDesignMsg (Line 3602, "VCLSurface.pas" + 61) + $6
    [50067A1C]{rtl260.bpl  } System.@IntfClear (Line 38276, "System.pas" + 10) + $0
    [5006404C]{rtl260.bpl  } System.@FinalizeArray (Line 32929, "System.pas" + 144) + $0
    [5005FC12]{rtl260.bpl  } System.@IsClass (Line 18044, "System.pas" + 1) + $8
    [50D15017]{vcl260.bpl  } Vcl.Controls.TControl.WndProc (Line 7333, "Vcl.Controls.pas" + 4) + $21
    [50D19D47]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10278, "Vcl.Controls.pas" + 166) + $6
    [50E652E1]{vcl260.bpl  } Vcl.Forms.TCustomForm.WndProc (Line 4652, "Vcl.Forms.pas" + 209) + $5
    [50060980]{rtl260.bpl  } System.TMonitor.TryEnter (Line 19547, "System.pas" + 10) + $0
    [500604A0]{rtl260.bpl  } System.TMonitor.Enter (Line 19208, "System.pas" + 4) + $2
    [5285A023]{vcldesigner260.bpl} VCLFormContainer.TControlSizer.ControlWndProc (Line 379, "VCLFormContainer.pas" + 33) + $C
    [5006030C]{rtl260.bpl  } System.TMonitor.CheckOwningThread (Line 19122, "System.pas" + 2) + $0
    [5006062E]{rtl260.bpl  } System.TMonitor.Exit (Line 19312, "System.pas" + 1) + $2
    [5006068A]{rtl260.bpl  } System.TMonitor.Exit (Line 19334, "System.pas" + 2) + $7
    [50CF65D7]{vcl260.bpl  } Vcl.Graphics.FreeMemoryContexts (Line 7138, "Vcl.Graphics.pas" + 12) + $8
    [50D19314]{vcl260.bpl  } Vcl.Controls.TWinControl.MainWndProc (Line 9977, "Vcl.Controls.pas" + 3) + $6
    [50D19329]{vcl260.bpl  } Vcl.Controls.TWinControl.MainWndProc (Line 9980, "Vcl.Controls.pas" + 6) + $0
    [50067A1C]{rtl260.bpl  } System.@IntfClear (Line 38276, "System.pas" + 10) + $0
    [5006404C]{rtl260.bpl  } System.@FinalizeArray (Line 32929, "System.pas" + 144) + $0
    [09AC25E2]{themeloader260.bpl} Idetheme.Stylemanager.TIDEThemeStyleEngine.UnRegisterSysStyleHook + $106
    [50D197BC]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10122, "Vcl.Controls.pas" + 10) + $48
    [50D19D47]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10278, "Vcl.Controls.pas" + 166) + $6
    [50E652E1]{vcl260.bpl  } Vcl.Forms.TCustomForm.WndProc (Line 4652, "Vcl.Forms.pas" + 209) + $5
    [5285A023]{vcldesigner260.bpl} VCLFormContainer.TControlSizer.ControlWndProc (Line 379, "VCLFormContainer.pas" + 33) + $C
    [50D19314]{vcl260.bpl  } Vcl.Controls.TWinControl.MainWndProc (Line 9977, "Vcl.Controls.pas" + 3) + $6
    [50179C9C]{rtl260.bpl  } System.Classes.StdWndProc (Line 17959, "System.Classes.pas" + 11) + $2
    [50E6ECCF]{vcl260.bpl  } Vcl.Forms.TApplication.ProcessMessage (Line 10747, "Vcl.Forms.pas" + 23) + $1
    [50E6ED12]{vcl260.bpl  } Vcl.Forms.TApplication.HandleMessage (Line 10777, "Vcl.Forms.pas" + 1) + $4
    [50E6F045]{vcl260.bpl  } Vcl.Forms.TApplication.Run (Line 10915, "Vcl.Forms.pas" + 26) + $3
    [0051D06E]{bds.exe     } bds.bds (Line 214, "" + 7) + $7

     


  4. Hi Sherzod,,

    That does NOT help. I deleted all third part components even FastReport, MyDac and additional components etc.

    Created a new project and still when deleting a page i get the error, see below

     

    Quote

    (04243483){bds.exe     } [04244483]
    [189B954E]{uniGUI26Core.bpl} Uniguiclasses.TUniControl.IsClientEventsStored + $E
    [501262F2]{rtl260.bpl  } System.TypInfo.IsStoredPropRTTI (Line 2565, "System.TypInfo.pas" + 19) + $5
    [5012697F]{rtl260.bpl  } System.TypInfo.IsStoredProp (Line 2731, "System.TypInfo.pas" + 2) + $1
    [2102F61A]{designide260.bpl} DesignEditors.TPropertyEditor.GetIsDefault (Line 1175, "DesignEditors.pas" + 13) + $5
    [500A330F]{rtl260.bpl  } System.SysUtils.Supports (Line 26935, "System.SysUtils.pas" + 1) + $D
    [2125E498]{vclide260.bpl} PropBox.TCustomPropListBox.DrawPropItem (Line 1072, "PropBox.pas" + 263) + $5
    [50CEEBB1]{vcl260.bpl  } Vcl.Graphics.TResourceManager.FreeResource (Line 1891, "Vcl.Graphics.pas" + 20) + $D
    [2125EDEA]{vclide260.bpl} PropBox.TCustomPropListBox.CNDrawItem (Line 1312, "PropBox.pas" + 12) + $2E
    [50D15292]{vcl260.bpl  } Vcl.Controls.TControl.WndProc (Line 7420, "Vcl.Controls.pas" + 91) + $6
    [5006037C]{rtl260.bpl  } System.TMonitor.Destroy (Line 19144, "System.pas" + 0) + $0
    [5005FE0F]{rtl260.bpl  } System.TObject.Dispatch (Line 18426, "System.pas" + 11) + $0
    [09859252]{themeloader260.bpl} Idetheme.Vclstylehooks.TIDEStyleHook.WndProc + $7A
    [09859BF8]{themeloader260.bpl} Idetheme.Vclstylehooks.TMouseTrackControlIDEStyleHook.WndProc + $0
    [0986362C]{themeloader260.bpl} Idetheme.Vclstylehooks.TScrollingIDEStyleHook.WndProc + $0
    [50067A1C]{rtl260.bpl  } System.@IntfClear (Line 38276, "System.pas" + 10) + $0
    [09858D0B]{themeloader260.bpl} Idetheme.Vclstylehooks.TIDEStyleHook.HandleMessage + $B7
    [50067A1C]{rtl260.bpl  } System.@IntfClear (Line 38276, "System.pas" + 10) + $0
    [5006404C]{rtl260.bpl  } System.@FinalizeArray (Line 32929, "System.pas" + 144) + $0
    [098925E2]{themeloader260.bpl} Idetheme.Stylemanager.TIDEThemeStyleEngine.UnRegisterSysStyleHook + $106
    [50D197BC]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10122, "Vcl.Controls.pas" + 10) + $48
    [50D19D47]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10278, "Vcl.Controls.pas" + 166) + $6
    [50D3E7C9]{vcl260.bpl  } Vcl.StdCtrls.TCustomListBox.WndProc (Line 7274, "Vcl.StdCtrls.pas" + 55) + $5
    [50D14ECC]{vcl260.bpl  } Vcl.Controls.TControl.Perform (Line 7198, "Vcl.Controls.pas" + 10) + $8
    [50D19EAB]{vcl260.bpl  } Vcl.Controls.DoControlMsg (Line 10347, "Vcl.Controls.pas" + 12) + $11
    [50D1AA4E]{vcl260.bpl  } Vcl.Controls.TWinControl.WMDrawItem (Line 10673, "Vcl.Controls.pas" + 1) + $8
    [50D15292]{vcl260.bpl  } Vcl.Controls.TControl.WndProc (Line 7420, "Vcl.Controls.pas" + 91) + $6
    [50D19DDA]{vcl260.bpl  } Vcl.Controls.TWinControl.DefaultHandler (Line 10306, "Vcl.Controls.pas" + 17) + $10
    [09893EBD]{themeloader260.bpl} System.Generics.Collections. + $15
    [50067A1C]{rtl260.bpl  } System.@IntfClear (Line 38276, "System.pas" + 10) + $0
    [5006404C]{rtl260.bpl  } System.@FinalizeArray (Line 32929, "System.pas" + 144) + $0
    [098925E2]{themeloader260.bpl} Idetheme.Stylemanager.TIDEThemeStyleEngine.UnRegisterSysStyleHook + $106
    [50D197BC]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10122, "Vcl.Controls.pas" + 10) + $48
    [50D19D47]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10278, "Vcl.Controls.pas" + 166) + $6
    [50D19314]{vcl260.bpl  } Vcl.Controls.TWinControl.MainWndProc (Line 9977, "Vcl.Controls.pas" + 3) + $6
    [50179C9C]{rtl260.bpl  } System.Classes.StdWndProc (Line 17959, "System.Classes.pas" + 11) + $2
    [218C5147]{vclactnband260.bpl} Vcl.ActnMenus.CallWindowHook (Line 757, "Vcl.ActnMenus.pas" + 20) + $F
    [50D19E56]{vcl260.bpl  } Vcl.Controls.TWinControl.DefaultHandler (Line 10319, "Vcl.Controls.pas" + 30) + $19
    [50D1A057]{vcl260.bpl  } Vcl.Controls.TWinControl.PaintWindow (Line 10402, "Vcl.Controls.pas" + 9) + $4
    [50D19F11]{vcl260.bpl  } Vcl.Controls.TWinControl.PaintHandler (Line 10362, "Vcl.Controls.pas" + 4) + $14
    [50D1A6F8]{vcl260.bpl  } Vcl.Controls.TWinControl.WMPaint (Line 10563, "Vcl.Controls.pas" + 6) + $5
    [50067A1C]{rtl260.bpl  } System.@IntfClear (Line 38276, "System.pas" + 10) + $0
    [5006404C]{rtl260.bpl  } System.@FinalizeArray (Line 32929, "System.pas" + 144) + $0
    [098925E2]{themeloader260.bpl} Idetheme.Stylemanager.TIDEThemeStyleEngine.UnRegisterSysStyleHook + $106
    [50D197BC]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10122, "Vcl.Controls.pas" + 10) + $48
    [50D19D47]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10278, "Vcl.Controls.pas" + 166) + $6
    [50D3EC1C]{vcl260.bpl  } Vcl.StdCtrls.TCustomListBox.WMPaint (Line 7458, "Vcl.StdCtrls.pas" + 6) + $6
    [50D15292]{vcl260.bpl  } Vcl.Controls.TControl.WndProc (Line 7420, "Vcl.Controls.pas" + 91) + $6
    [09859252]{themeloader260.bpl} Idetheme.Vclstylehooks.TIDEStyleHook.WndProc + $7A
    [09858D0B]{themeloader260.bpl} Idetheme.Vclstylehooks.TIDEStyleHook.HandleMessage + $B7
    [50D14ECC]{vcl260.bpl  } Vcl.Controls.TControl.Perform (Line 7198, "Vcl.Controls.pas" + 10) + $8
    [5005FE0F]{rtl260.bpl  } System.TObject.Dispatch (Line 18426, "System.pas" + 11) + $0
    [09859252]{themeloader260.bpl} Idetheme.Vclstylehooks.TIDEStyleHook.WndProc + $7A
    [09859BF8]{themeloader260.bpl} Idetheme.Vclstylehooks.TMouseTrackControlIDEStyleHook.WndProc + $0
    [0986362C]{themeloader260.bpl} Idetheme.Vclstylehooks.TScrollingIDEStyleHook.WndProc + $0
    [50067A1C]{rtl260.bpl  } System.@IntfClear (Line 38276, "System.pas" + 10) + $0
    [09858D0B]{themeloader260.bpl} Idetheme.Vclstylehooks.TIDEStyleHook.HandleMessage + $B7
    [50067A1C]{rtl260.bpl  } System.@IntfClear (Line 38276, "System.pas" + 10) + $0
    [5006404C]{rtl260.bpl  } System.@FinalizeArray (Line 32929, "System.pas" + 144) + $0
    [098925E2]{themeloader260.bpl} Idetheme.Stylemanager.TIDEThemeStyleEngine.UnRegisterSysStyleHook + $106
    [50D197BC]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10122, "Vcl.Controls.pas" + 10) + $48
    [50D19D47]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10278, "Vcl.Controls.pas" + 166) + $6
    [09893EBD]{themeloader260.bpl} System.Generics.Collections. + $15
    [50D3E7C9]{vcl260.bpl  } Vcl.StdCtrls.TCustomListBox.WndProc (Line 7274, "Vcl.StdCtrls.pas" + 55) + $5
    [50D19314]{vcl260.bpl  } Vcl.Controls.TWinControl.MainWndProc (Line 9977, "Vcl.Controls.pas" + 3) + $6
    [50179C9C]{rtl260.bpl  } System.Classes.StdWndProc (Line 17959, "System.Classes.pas" + 11) + $2
    [218C5147]{vclactnband260.bpl} Vcl.ActnMenus.CallWindowHook (Line 757, "Vcl.ActnMenus.pas" + 20) + $F
    [50D1CCE9]{vcl260.bpl  } Vcl.Controls.TWinControl.Update (Line 12330, "Vcl.Controls.pas" + 1) + $12
    [50D1CD01]{vcl260.bpl  } Vcl.Controls.TWinControl.Repaint (Line 12336, "Vcl.Controls.pas" + 2) + $4
    [50D14022]{vcl260.bpl  } Vcl.Controls.TControl.Refresh (Line 6661, "Vcl.Controls.pas" + 0) + $2
    [2125D16B]{vclide260.bpl} PropBox.TCustomPropListBox.ItemsChanged (Line 551, "PropBox.pas" + 3) + $2
    [50161CE9]{rtl260.bpl  } System.Classes.TStringList.Changing (Line 7284, "System.Classes.pas" + 1) + $0
    [5016279F]{rtl260.bpl  } System.Classes.TStringList.SetUpdateState (Line 7665, "System.Classes.pas" + 1) + $2
    [501603C1]{rtl260.bpl  } System.Classes.TStrings.GetUpdating (Line 6629, "System.Classes.pas" + 0) + $1
    [2125EFCA]{vclide260.bpl} PropBox.TCustomPropListBox.Reset (Line 1376, "PropBox.pas" + 25) + $9
    [21266144]{vclide260.bpl} IDEInspListBox.TInspListBox.Reset (Line 1557, "IDEInspListBox.pas" + 3) + $2
    [2125F92B]{vclide260.bpl} PropBox.TCustomPropListBox.SetSelection (Line 1616, "PropBox.pas" + 3) + $4
    [209F2C19]{coreide260.bpl} PropInsp.TPropertyInspector.Refresh (Line 1873, "PropInsp.pas" + 47) + $12
    [209F2FC0]{coreide260.bpl} PropInsp.TPropertyInspector.Modified (Line 1931, "PropInsp.pas" + 0) + $0
    [20953B64]{coreide260.bpl} PropInspServices.TPropInspManager.NotifyModified (Line 81, "PropInspServices.pas" + 4) + $5
    [2103C645]{designide260.bpl} ToolUtils.ForEach (Line 99, "ToolUtils.pas" + 5) + $F
    [20953AC5]{coreide260.bpl} PropInspServices.TPropInspManager.Modified (Line 58, "PropInspServices.pas" + 1) + $B
    [20953FD3]{coreide260.bpl} PropInspServices.TPropInspManager.SetSelection (Line 159, "PropInspServices.pas" + 10) + $2
    [21E23984]{delphicoreide260.bpl} PropInspManage.TDesignerPropSelection.UpdatePropertyList (Line 730, "PropInspManage.pas" + 43) + $1C
    [21E230BD]{delphicoreide260.bpl} PropInspManage.TDesignerPropSelection.SelectionChanged (Line 584, "PropInspManage.pas" + 4) + $6
    [21070F53]{designide260.bpl} ComponentDesigner.DesignNotificationSelectionChanged (Line 8832, "ComponentDesigner.pas" + 5) + $A
    [2106C5F8]{designide260.bpl} ComponentDesigner.TComponentDesigner.SetSelection (Line 7021, "ComponentDesigner.pas" + 20) + $5
    [2106CB7E]{designide260.bpl} ComponentDesigner.TComponentDesigner.UpdateSelections (Line 7089, "ComponentDesigner.pas" + 19) + $C
    [2106C315]{designide260.bpl} ComponentDesigner.TComponentDesigner.RootActivated (Line 6941, "ComponentDesigner.pas" + 5) + $2
    [52860C2E]{vcldesigner260.bpl} VCLFormDesigner.TVCLRootDesigner.Activate (Line 344, "VCLFormDesigner.pas" + 4) + $1E
    [52850DDA]{vcldesigner260.bpl} VCLSurface.TVclDesignSurface.IsDesignMsg (Line 3655, "VCLSurface.pas" + 114) + $A
    [50D1AC5C]{vcl260.bpl  } Vcl.Controls.TWinControl.WMWindowPosChanging (Line 10758, "Vcl.Controls.pas" + 11) + $6
    [5005FC12]{rtl260.bpl  } System.@IsClass (Line 18044, "System.pas" + 1) + $8
    [50D15017]{vcl260.bpl  } Vcl.Controls.TControl.WndProc (Line 7333, "Vcl.Controls.pas" + 4) + $21
    [218C5147]{vclactnband260.bpl} Vcl.ActnMenus.CallWindowHook (Line 757, "Vcl.ActnMenus.pas" + 20) + $F
    [50067A1C]{rtl260.bpl  } System.@IntfClear (Line 38276, "System.pas" + 10) + $0
    [5006404C]{rtl260.bpl  } System.@FinalizeArray (Line 32929, "System.pas" + 144) + $0
    [50067A1C]{rtl260.bpl  } System.@IntfClear (Line 38276, "System.pas" + 10) + $0
    [5006404C]{rtl260.bpl  } System.@FinalizeArray (Line 32929, "System.pas" + 144) + $0
    [098925E2]{themeloader260.bpl} Idetheme.Stylemanager.TIDEThemeStyleEngine.UnRegisterSysStyleHook + $106
    [50D197BC]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10122, "Vcl.Controls.pas" + 10) + $48
    [50D19D47]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10278, "Vcl.Controls.pas" + 166) + $6
    [50060980]{rtl260.bpl  } System.TMonitor.TryEnter (Line 19547, "System.pas" + 10) + $0
    [189AACC5]{uniGUI26Core.bpl} Uniguibaseclasses.TUniGUIBaseControl.VCLWndProc + $19
    [50D19314]{vcl260.bpl  } Vcl.Controls.TWinControl.MainWndProc (Line 9977, "Vcl.Controls.pas" + 3) + $6
    [50179C9C]{rtl260.bpl  } System.Classes.StdWndProc (Line 17959, "System.Classes.pas" + 11) + $2
    [218C5147]{vclactnband260.bpl} Vcl.ActnMenus.CallWindowHook (Line 757, "Vcl.ActnMenus.pas" + 20) + $F
    [50D1CADB]{vcl260.bpl  } Vcl.Controls.TWinControl.SetZOrderPosition (Line 12226, "Vcl.Controls.pas" + 26) + $12
    [50D1CB16]{vcl260.bpl  } Vcl.Controls.TWinControl.SetZOrder (Line 12243, "Vcl.Controls.pas" + 6) + $4
    [50D13CA3]{vcl260.bpl  } Vcl.Controls.TControl.BringToFront (Line 6489, "Vcl.Controls.pas" + 1) + $6
    [50D7B982]{vcl260.bpl  } Vcl.ComCtrls.TPageControl.ChangeActivePage (Line 6528, "Vcl.ComCtrls.pas" + 16) + $2
    [50D7BEB6]{vcl260.bpl  } Vcl.ComCtrls.TPageControl.SetActivePage (Line 6726, "Vcl.ComCtrls.pas" + 5) + $5
    [50D7C553]{vcl260.bpl  } Vcl.ComCtrls.TPageControl.SetTabIndex (Line 6957, "Vcl.ComCtrls.pas" + 5) + $16
    [50D7BA7F]{vcl260.bpl  } Vcl.ComCtrls.TPageControl.DeleteTab (Line 6556, "Vcl.ComCtrls.pas" + 7) + $6
    [50D7B3AA]{vcl260.bpl  } Vcl.ComCtrls.TTabSheet.SetTabShowing (Line 6341, "Vcl.ComCtrls.pas" + 10) + $B
    [50D7BE08]{vcl260.bpl  } Vcl.ComCtrls.TPageControl.RemovePage (Line 6702, "Vcl.ComCtrls.pas" + 3) + $4
    [50D7B169]{vcl260.bpl  } Vcl.ComCtrls.TTabSheet.Destroy (Line 6233, "Vcl.ComCtrls.pas" + 4) + $8
    [5005F928]{rtl260.bpl  } System.TObject.Free (Line 17586, "System.pas" + 1) + $4
    [189ABC0A]{uniGUI26Core.bpl} Uniguibaseclasses.TUniGUIBaseControl + $46
    [189B1F67]{uniGUI26Core.bpl} Uniguiclasses.TUniControl + $2B7
    [5005A264]{rtl260.bpl  } System.@FreeMem (Line 4878, "System.pas" + 20) + $0
    [5005F830]{rtl260.bpl  } System.TObject.FreeInstance (Line 17523, "System.pas" + 2) + $2
    [189BD91D]{uniGUI26Core.bpl} Uniguiclasses.TUniContainer + $11
    [18AC3910]{uniGUI26.bpl} Unipanel.TUniCustomPanel + $1C
    [18ACBF62]{uniGUI26.bpl} Unipagecontrol.TUniCustomTabSheet + $22
    [5005F928]{rtl260.bpl  } System.TObject.Free (Line 17586, "System.pas" + 1) + $4
    [210669DA]{designide260.bpl} ComponentDesigner.TComponentRoot.DeleteSelection (Line 5139, "ComponentDesigner.pas" + 44) + $2
    [21081E33]{designide260.bpl} Surface.TDesignSurface.DeleteSelection (Line 208, "Surface.pas" + 0) + $7
    [21024B7B]{designide260.bpl} Designer.TDesigner.DeleteSelection (Line 789, "Designer.pas" + 2) + $5
    [210273BB]{designide260.bpl} Designer.TDesigner.Key (Line 1607, "Designer.pas" + 4) + $3
    [528502BC]{vcldesigner260.bpl} VCLSurface.KeyEvent (Line 3420, "VCLSurface.pas" + 8) + $1E
    [52850BD6]{vcldesigner260.bpl} VCLSurface.TVclDesignSurface.IsDesignMsg (Line 3602, "VCLSurface.pas" + 61) + $6
    [50067A1C]{rtl260.bpl  } System.@IntfClear (Line 38276, "System.pas" + 10) + $0
    [5006404C]{rtl260.bpl  } System.@FinalizeArray (Line 32929, "System.pas" + 144) + $0
    [5005FC12]{rtl260.bpl  } System.@IsClass (Line 18044, "System.pas" + 1) + $8
    [50D15017]{vcl260.bpl  } Vcl.Controls.TControl.WndProc (Line 7333, "Vcl.Controls.pas" + 4) + $21
    [50D19D47]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10278, "Vcl.Controls.pas" + 166) + $6
    [50E652E1]{vcl260.bpl  } Vcl.Forms.TCustomForm.WndProc (Line 4652, "Vcl.Forms.pas" + 209) + $5
    [50060980]{rtl260.bpl  } System.TMonitor.TryEnter (Line 19547, "System.pas" + 10) + $0
    [500604A0]{rtl260.bpl  } System.TMonitor.Enter (Line 19208, "System.pas" + 4) + $2
    [5285A023]{vcldesigner260.bpl} VCLFormContainer.TControlSizer.ControlWndProc (Line 379, "VCLFormContainer.pas" + 33) + $C
    [5006030C]{rtl260.bpl  } System.TMonitor.CheckOwningThread (Line 19122, "System.pas" + 2) + $0
    [5006062E]{rtl260.bpl  } System.TMonitor.Exit (Line 19312, "System.pas" + 1) + $2
    [5006068A]{rtl260.bpl  } System.TMonitor.Exit (Line 19334, "System.pas" + 2) + $7
    [50CF65D7]{vcl260.bpl  } Vcl.Graphics.FreeMemoryContexts (Line 7138, "Vcl.Graphics.pas" + 12) + $8
    [50D19314]{vcl260.bpl  } Vcl.Controls.TWinControl.MainWndProc (Line 9977, "Vcl.Controls.pas" + 3) + $6
    [50D19329]{vcl260.bpl  } Vcl.Controls.TWinControl.MainWndProc (Line 9980, "Vcl.Controls.pas" + 6) + $0
    [50067A1C]{rtl260.bpl  } System.@IntfClear (Line 38276, "System.pas" + 10) + $0
    [5006404C]{rtl260.bpl  } System.@FinalizeArray (Line 32929, "System.pas" + 144) + $0
    [098925E2]{themeloader260.bpl} Idetheme.Stylemanager.TIDEThemeStyleEngine.UnRegisterSysStyleHook + $106
    [50D197BC]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10122, "Vcl.Controls.pas" + 10) + $48
    [50D19D47]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10278, "Vcl.Controls.pas" + 166) + $6
    [50E652E1]{vcl260.bpl  } Vcl.Forms.TCustomForm.WndProc (Line 4652, "Vcl.Forms.pas" + 209) + $5
    [5285A023]{vcldesigner260.bpl} VCLFormContainer.TControlSizer.ControlWndProc (Line 379, "VCLFormContainer.pas" + 33) + $C
    [50D19314]{vcl260.bpl  } Vcl.Controls.TWinControl.MainWndProc (Line 9977, "Vcl.Controls.pas" + 3) + $6
    [50179C9C]{rtl260.bpl  } System.Classes.StdWndProc (Line 17959, "System.Classes.pas" + 11) + $2
    [50E6ECCF]{vcl260.bpl  } Vcl.Forms.TApplication.ProcessMessage (Line 10747, "Vcl.Forms.pas" + 23) + $1
    [50E6ED12]{vcl260.bpl  } Vcl.Forms.TApplication.HandleMessage (Line 10777, "Vcl.Forms.pas" + 1) + $4
    [50E6F045]{vcl260.bpl  } Vcl.Forms.TApplication.Run (Line 10915, "Vcl.Forms.pas" + 26) + $3
    [0051D06E]{bds.exe     } bds.bds (Line 214, "" + 7) + $7

     

    bds_eZQfHD2woZ.png


  5. Hi

    When i delete a pages from a uniPageControl i got this error, see attachment. THis only occurs using uniGui, not in vcl application
    I even created a new form, copied the uniPageControl to it, deleted page and again the same error

    I use :

    - Delphi RIO 10.3.3 (also appears in 10.3.3)
    - uniGui 1.90.0.1511 but also happends in 1.90.0.1514

    Did compleet reinstall from uniGui, cleaned files/registry

    Any suggestions ?

     

     

    Quote

    (04243483){bds.exe     } [04244483]
    [2441ADCE]{uniGUI26Core.bpl} Uniguiclasses.TUniControl.IsClientEventsStored + $E
    [501262F2]{rtl260.bpl  } System.TypInfo.IsStoredPropRTTI (Line 2565, "System.TypInfo.pas" + 19) + $5
    [5012697F]{rtl260.bpl  } System.TypInfo.IsStoredProp (Line 2731, "System.TypInfo.pas" + 2) + $1
    [2102F61A]{designide260.bpl} DesignEditors.TPropertyEditor.GetIsDefault (Line 1175, "DesignEditors.pas" + 13) + $5
    [500A330F]{rtl260.bpl  } System.SysUtils.Supports (Line 26935, "System.SysUtils.pas" + 1) + $D
    [2125E498]{vclide260.bpl} PropBox.TCustomPropListBox.DrawPropItem (Line 1072, "PropBox.pas" + 263) + $5
    [2125EDEA]{vclide260.bpl} PropBox.TCustomPropListBox.CNDrawItem (Line 1312, "PropBox.pas" + 12) + $2E
    [50D15292]{vcl260.bpl  } Vcl.Controls.TControl.WndProc (Line 7420, "Vcl.Controls.pas" + 91) + $6
    [5005FE0F]{rtl260.bpl  } System.TObject.Dispatch (Line 18426, "System.pas" + 11) + $0
    [09A99252]{themeloader260.bpl} Idetheme.Vclstylehooks.TIDEStyleHook.WndProc + $7A
    [09A99BF8]{themeloader260.bpl} Idetheme.Vclstylehooks.TMouseTrackControlIDEStyleHook.WndProc + $0
    [09AA362C]{themeloader260.bpl} Idetheme.Vclstylehooks.TScrollingIDEStyleHook.WndProc + $0
    [50067A1C]{rtl260.bpl  } System.@IntfClear (Line 38276, "System.pas" + 10) + $0
    [09A98D0B]{themeloader260.bpl} Idetheme.Vclstylehooks.TIDEStyleHook.HandleMessage + $B7
    [50067A1C]{rtl260.bpl  } System.@IntfClear (Line 38276, "System.pas" + 10) + $0
    [5006404C]{rtl260.bpl  } System.@FinalizeArray (Line 32929, "System.pas" + 144) + $0
    [09AD25E2]{themeloader260.bpl} Idetheme.Stylemanager.TIDEThemeStyleEngine.UnRegisterSysStyleHook + $106
    [50D197BC]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10122, "Vcl.Controls.pas" + 10) + $48
    [50D19D47]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10278, "Vcl.Controls.pas" + 166) + $6
    [50D3E7C9]{vcl260.bpl  } Vcl.StdCtrls.TCustomListBox.WndProc (Line 7274, "Vcl.StdCtrls.pas" + 55) + $5
    [50D14ECC]{vcl260.bpl  } Vcl.Controls.TControl.Perform (Line 7198, "Vcl.Controls.pas" + 10) + $8
    [50D19EAB]{vcl260.bpl  } Vcl.Controls.DoControlMsg (Line 10347, "Vcl.Controls.pas" + 12) + $11
    [50D1AA4E]{vcl260.bpl  } Vcl.Controls.TWinControl.WMDrawItem (Line 10673, "Vcl.Controls.pas" + 1) + $8
    [50D15292]{vcl260.bpl  } Vcl.Controls.TControl.WndProc (Line 7420, "Vcl.Controls.pas" + 91) + $6
    [50EECCEF]{vcl260.bpl  } Vcl.CaptionedDockTree.TCaptionedDockTree.WndProc (Line 260, "Vcl.CaptionedDockTree.pas" + 28) + $4
    [50D22806]{vcl260.bpl  } Vcl.Controls.TDockTree.WindowProc (Line 15726, "Vcl.Controls.pas" + 0) + $2
    [50D19DDA]{vcl260.bpl  } Vcl.Controls.TWinControl.DefaultHandler (Line 10306, "Vcl.Controls.pas" + 17) + $10
    [09AD3EBD]{themeloader260.bpl} System.Generics.Collections. + $15
    [50067A1C]{rtl260.bpl  } System.@IntfClear (Line 38276, "System.pas" + 10) + $0
    [5006404C]{rtl260.bpl  } System.@FinalizeArray (Line 32929, "System.pas" + 144) + $0
    [09AD25E2]{themeloader260.bpl} Idetheme.Stylemanager.TIDEThemeStyleEngine.UnRegisterSysStyleHook + $106
    [50D197BC]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10122, "Vcl.Controls.pas" + 10) + $48
    [50D19D47]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10278, "Vcl.Controls.pas" + 166) + $6
    [50D19314]{vcl260.bpl  } Vcl.Controls.TWinControl.MainWndProc (Line 9977, "Vcl.Controls.pas" + 3) + $6
    [50179C9C]{rtl260.bpl  } System.Classes.StdWndProc (Line 17959, "System.Classes.pas" + 11) + $2
    [218C5147]{vclactnband260.bpl} Vcl.ActnMenus.CallWindowHook (Line 757, "Vcl.ActnMenus.pas" + 20) + $F
    [50D19E56]{vcl260.bpl  } Vcl.Controls.TWinControl.DefaultHandler (Line 10319, "Vcl.Controls.pas" + 30) + $19
    [50D1A057]{vcl260.bpl  } Vcl.Controls.TWinControl.PaintWindow (Line 10402, "Vcl.Controls.pas" + 9) + $4
    [50D19F11]{vcl260.bpl  } Vcl.Controls.TWinControl.PaintHandler (Line 10362, "Vcl.Controls.pas" + 4) + $14
    [50D1A6F8]{vcl260.bpl  } Vcl.Controls.TWinControl.WMPaint (Line 10563, "Vcl.Controls.pas" + 6) + $5
    [50067A1C]{rtl260.bpl  } System.@IntfClear (Line 38276, "System.pas" + 10) + $0
    [5006404C]{rtl260.bpl  } System.@FinalizeArray (Line 32929, "System.pas" + 144) + $0
    [09AD25E2]{themeloader260.bpl} Idetheme.Stylemanager.TIDEThemeStyleEngine.UnRegisterSysStyleHook + $106
    [50D197BC]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10122, "Vcl.Controls.pas" + 10) + $48
    [50D19D47]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10278, "Vcl.Controls.pas" + 166) + $6
    [50D3EC1C]{vcl260.bpl  } Vcl.StdCtrls.TCustomListBox.WMPaint (Line 7458, "Vcl.StdCtrls.pas" + 6) + $6
    [50D15292]{vcl260.bpl  } Vcl.Controls.TControl.WndProc (Line 7420, "Vcl.Controls.pas" + 91) + $6
    [09A99252]{themeloader260.bpl} Idetheme.Vclstylehooks.TIDEStyleHook.WndProc + $7A
    [50E652E1]{vcl260.bpl  } Vcl.Forms.TCustomForm.WndProc (Line 4652, "Vcl.Forms.pas" + 209) + $5
    [09A98D0B]{themeloader260.bpl} Idetheme.Vclstylehooks.TIDEStyleHook.HandleMessage + $B7
    [50D14ECC]{vcl260.bpl  } Vcl.Controls.TControl.Perform (Line 7198, "Vcl.Controls.pas" + 10) + $8
    [5005FE0F]{rtl260.bpl  } System.TObject.Dispatch (Line 18426, "System.pas" + 11) + $0
    [09A99252]{themeloader260.bpl} Idetheme.Vclstylehooks.TIDEStyleHook.WndProc + $7A
    [09A99BF8]{themeloader260.bpl} Idetheme.Vclstylehooks.TMouseTrackControlIDEStyleHook.WndProc + $0
    [09AA362C]{themeloader260.bpl} Idetheme.Vclstylehooks.TScrollingIDEStyleHook.WndProc + $0
    [50067A1C]{rtl260.bpl  } System.@IntfClear (Line 38276, "System.pas" + 10) + $0
    [09A98D0B]{themeloader260.bpl} Idetheme.Vclstylehooks.TIDEStyleHook.HandleMessage + $B7
    [50067A1C]{rtl260.bpl  } System.@IntfClear (Line 38276, "System.pas" + 10) + $0
    [5006404C]{rtl260.bpl  } System.@FinalizeArray (Line 32929, "System.pas" + 144) + $0
    [09AD25E2]{themeloader260.bpl} Idetheme.Stylemanager.TIDEThemeStyleEngine.UnRegisterSysStyleHook + $106
    [50D197BC]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10122, "Vcl.Controls.pas" + 10) + $48
    [50D19D47]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10278, "Vcl.Controls.pas" + 166) + $6
    [50D3E7C9]{vcl260.bpl  } Vcl.StdCtrls.TCustomListBox.WndProc (Line 7274, "Vcl.StdCtrls.pas" + 55) + $5
    [50D19314]{vcl260.bpl  } Vcl.Controls.TWinControl.MainWndProc (Line 9977, "Vcl.Controls.pas" + 3) + $6
    [50179C9C]{rtl260.bpl  } System.Classes.StdWndProc (Line 17959, "System.Classes.pas" + 11) + $2
    [218C5147]{vclactnband260.bpl} Vcl.ActnMenus.CallWindowHook (Line 757, "Vcl.ActnMenus.pas" + 20) + $F
    [50D1CCE9]{vcl260.bpl  } Vcl.Controls.TWinControl.Update (Line 12330, "Vcl.Controls.pas" + 1) + $12
    [50D1CD01]{vcl260.bpl  } Vcl.Controls.TWinControl.Repaint (Line 12336, "Vcl.Controls.pas" + 2) + $4
    [50D14022]{vcl260.bpl  } Vcl.Controls.TControl.Refresh (Line 6661, "Vcl.Controls.pas" + 0) + $2
    [2125D16B]{vclide260.bpl} PropBox.TCustomPropListBox.ItemsChanged (Line 551, "PropBox.pas" + 3) + $2
    [50161CE9]{rtl260.bpl  } System.Classes.TStringList.Changing (Line 7284, "System.Classes.pas" + 1) + $0
    [5016279F]{rtl260.bpl  } System.Classes.TStringList.SetUpdateState (Line 7665, "System.Classes.pas" + 1) + $2
    [501603C1]{rtl260.bpl  } System.Classes.TStrings.GetUpdating (Line 6629, "System.Classes.pas" + 0) + $1
    [2125EFCA]{vclide260.bpl} PropBox.TCustomPropListBox.Reset (Line 1376, "PropBox.pas" + 25) + $9
    [21266144]{vclide260.bpl} IDEInspListBox.TInspListBox.Reset (Line 1557, "IDEInspListBox.pas" + 3) + $2
    [2125F92B]{vclide260.bpl} PropBox.TCustomPropListBox.SetSelection (Line 1616, "PropBox.pas" + 3) + $4
    [209F2C19]{coreide260.bpl} PropInsp.TPropertyInspector.Refresh (Line 1873, "PropInsp.pas" + 47) + $12
    [209F2FC0]{coreide260.bpl} PropInsp.TPropertyInspector.Modified (Line 1931, "PropInsp.pas" + 0) + $0
    [20953B64]{coreide260.bpl} PropInspServices.TPropInspManager.NotifyModified (Line 81, "PropInspServices.pas" + 4) + $5
    [2103C645]{designide260.bpl} ToolUtils.ForEach (Line 99, "ToolUtils.pas" + 5) + $F
    [20953AC5]{coreide260.bpl} PropInspServices.TPropInspManager.Modified (Line 58, "PropInspServices.pas" + 1) + $B
    [20953FD3]{coreide260.bpl} PropInspServices.TPropInspManager.SetSelection (Line 159, "PropInspServices.pas" + 10) + $2
    [21E23984]{delphicoreide260.bpl} PropInspManage.TDesignerPropSelection.UpdatePropertyList (Line 730, "PropInspManage.pas" + 43) + $1C
    [21E230BD]{delphicoreide260.bpl} PropInspManage.TDesignerPropSelection.SelectionChanged (Line 584, "PropInspManage.pas" + 4) + $6
    [21070F53]{designide260.bpl} ComponentDesigner.DesignNotificationSelectionChanged (Line 8832, "ComponentDesigner.pas" + 5) + $A
    [2106C5F8]{designide260.bpl} ComponentDesigner.TComponentDesigner.SetSelection (Line 7021, "ComponentDesigner.pas" + 20) + $5
    [2106CB7E]{designide260.bpl} ComponentDesigner.TComponentDesigner.UpdateSelections (Line 7089, "ComponentDesigner.pas" + 19) + $C
    [2106C315]{designide260.bpl} ComponentDesigner.TComponentDesigner.RootActivated (Line 6941, "ComponentDesigner.pas" + 5) + $2
    [52860C2E]{vcldesigner260.bpl} VCLFormDesigner.TVCLRootDesigner.Activate (Line 344, "VCLFormDesigner.pas" + 4) + $1E
    [52850C98]{vcldesigner260.bpl} VCLSurface.TVclDesignSurface.IsDesignMsg (Line 3622, "VCLSurface.pas" + 81) + $A
    [1453DF58]{IDEFixPack.dll} VCLDesignerGuideLinesHideFix.IsDesignMsg (Line 76, "VCLDesignerGuideLinesHideFix.pas" + 25) + $6
    [50D15017]{vcl260.bpl  } Vcl.Controls.TControl.WndProc (Line 7333, "Vcl.Controls.pas" + 4) + $21
    [50D1F17F]{vcl260.bpl  } Vcl.Controls.TWinControl.InvalidateDockHostSite (Line 13677, "Vcl.Controls.pas" + 24) + $D
    [50D1AE51]{vcl260.bpl  } Vcl.Controls.TWinControl.WMKillFocus (Line 10849, "Vcl.Controls.pas" + 3) + $4
    [50D15292]{vcl260.bpl  } Vcl.Controls.TControl.WndProc (Line 7420, "Vcl.Controls.pas" + 91) + $6
    [50067A1C]{rtl260.bpl  } System.@IntfClear (Line 38276, "System.pas" + 10) + $0
    [5006404C]{rtl260.bpl  } System.@FinalizeArray (Line 32929, "System.pas" + 144) + $0
    [09AD25E2]{themeloader260.bpl} Idetheme.Stylemanager.TIDEThemeStyleEngine.UnRegisterSysStyleHook + $106
    [5005FC12]{rtl260.bpl  } System.@IsClass (Line 18044, "System.pas" + 1) + $8
    [50E61A6E]{vcl260.bpl  } Vcl.Forms.GetRealParentForm (Line 2617, "Vcl.Forms.pas" + 3) + $8
    [50D19D47]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10278, "Vcl.Controls.pas" + 166) + $6
    [09AD25E2]{themeloader260.bpl} Idetheme.Stylemanager.TIDEThemeStyleEngine.UnRegisterSysStyleHook + $106
    [50D197BC]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10122, "Vcl.Controls.pas" + 10) + $48
    [50D19D47]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10278, "Vcl.Controls.pas" + 166) + $6
    [50E652E1]{vcl260.bpl  } Vcl.Forms.TCustomForm.WndProc (Line 4652, "Vcl.Forms.pas" + 209) + $5
    [50060980]{rtl260.bpl  } System.TMonitor.TryEnter (Line 19547, "System.pas" + 10) + $0
    [5285A023]{vcldesigner260.bpl} VCLFormContainer.TControlSizer.ControlWndProc (Line 379, "VCLFormContainer.pas" + 33) + $C
    [50D19314]{vcl260.bpl  } Vcl.Controls.TWinControl.MainWndProc (Line 9977, "Vcl.Controls.pas" + 3) + $6
    [50179C9C]{rtl260.bpl  } System.Classes.StdWndProc (Line 17959, "System.Classes.pas" + 11) + $2
    [218C5147]{vclactnband260.bpl} Vcl.ActnMenus.CallWindowHook (Line 757, "Vcl.ActnMenus.pas" + 20) + $F
    [5284DCD6]{vcldesigner260.bpl} VCLSurface.TVclDesignSurface.Activate (Line 2579, "VCLSurface.pas" + 4) + $9
    [52850DE0]{vcldesigner260.bpl} VCLSurface.TVclDesignSurface.IsDesignMsg (Line 3656, "VCLSurface.pas" + 115) + $3
    [1453DF58]{IDEFixPack.dll} VCLDesignerGuideLinesHideFix.IsDesignMsg (Line 76, "VCLDesignerGuideLinesHideFix.pas" + 25) + $6
    [50D15017]{vcl260.bpl  } Vcl.Controls.TControl.WndProc (Line 7333, "Vcl.Controls.pas" + 4) + $21
    [50D15292]{vcl260.bpl  } Vcl.Controls.TControl.WndProc (Line 7420, "Vcl.Controls.pas" + 91) + $6
    [50060980]{rtl260.bpl  } System.TMonitor.TryEnter (Line 19547, "System.pas" + 10) + $0
    [500604A0]{rtl260.bpl  } System.TMonitor.Enter (Line 19208, "System.pas" + 4) + $2
    [5005FA58]{rtl260.bpl  } System.TObject.GetInterface (Line 17934, "System.pas" + 8) + $A
    [5005FAA1]{rtl260.bpl  } System.TObject.GetInterface (Line 17941, "System.pas" + 15) + $10
    [5005FA58]{rtl260.bpl  } System.TObject.GetInterface (Line 17934, "System.pas" + 8) + $A
    [50067A1C]{rtl260.bpl  } System.@IntfClear (Line 38276, "System.pas" + 10) + $0
    [5006404C]{rtl260.bpl  } System.@FinalizeArray (Line 32929, "System.pas" + 144) + $0
    [09AD25E2]{themeloader260.bpl} Idetheme.Stylemanager.TIDEThemeStyleEngine.UnRegisterSysStyleHook + $106
    [50D197BC]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10122, "Vcl.Controls.pas" + 10) + $48
    [50D19D47]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10278, "Vcl.Controls.pas" + 166) + $6
    [24416355]{uniGUI26Core.bpl} Uniguiclasses.TUniControl.WndProc + $9
    [50D19314]{vcl260.bpl  } Vcl.Controls.TWinControl.MainWndProc (Line 9977, "Vcl.Controls.pas" + 3) + $6
    [50179C9C]{rtl260.bpl  } System.Classes.StdWndProc (Line 17959, "System.Classes.pas" + 11) + $2
    [218C5147]{vclactnband260.bpl} Vcl.ActnMenus.CallWindowHook (Line 757, "Vcl.ActnMenus.pas" + 20) + $F
    [50D1CADB]{vcl260.bpl  } Vcl.Controls.TWinControl.SetZOrderPosition (Line 12226, "Vcl.Controls.pas" + 26) + $12
    [50D1CB16]{vcl260.bpl  } Vcl.Controls.TWinControl.SetZOrder (Line 12243, "Vcl.Controls.pas" + 6) + $4
    [50D13CA3]{vcl260.bpl  } Vcl.Controls.TControl.BringToFront (Line 6489, "Vcl.Controls.pas" + 1) + $6
    [24413A8E]{uniGUI26Core.bpl} Uniguiclasses.TUniControl.BringToFront + $E
    [1F48BF96]{uniGUI26VCL.bpl} Unixpagecontrol.TVCLTabSheet._OnShow + $E
    [50D7B1C1]{vcl260.bpl  } Vcl.ComCtrls.TTabSheet.DoShow (Line 6252, "Vcl.ComCtrls.pas" + 2) + $A
    [50D7B481]{vcl260.bpl  } Vcl.ComCtrls.TTabSheet.CMShowingChanged (Line 6382, "Vcl.ComCtrls.pas" + 5) + $7
    [50D15292]{vcl260.bpl  } Vcl.Controls.TControl.WndProc (Line 7420, "Vcl.Controls.pas" + 91) + $6
    [218C5147]{vclactnband260.bpl} Vcl.ActnMenus.CallWindowHook (Line 757, "Vcl.ActnMenus.pas" + 20) + $F
    [50067A1C]{rtl260.bpl  } System.@IntfClear (Line 38276, "System.pas" + 10) + $0
    [5006404C]{rtl260.bpl  } System.@FinalizeArray (Line 32929, "System.pas" + 144) + $0
    [09AD25E2]{themeloader260.bpl} Idetheme.Stylemanager.TIDEThemeStyleEngine.UnRegisterSysStyleHook + $106
    [50D197BC]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10122, "Vcl.Controls.pas" + 10) + $48
    [50D19D47]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10278, "Vcl.Controls.pas" + 166) + $6
    [2440BF01]{uniGUI26Core.bpl} Uniguibaseclasses.TUniGUIBaseControl.VCLWndProc + $19
    [50D14ECC]{vcl260.bpl  } Vcl.Controls.TControl.Perform (Line 7198, "Vcl.Controls.pas" + 10) + $8
    [50D190BD]{vcl260.bpl  } Vcl.Controls.TWinControl.UpdateShowing (Line 9900, "Vcl.Controls.pas" + 19) + $C
    [50D191CC]{vcl260.bpl  } Vcl.Controls.TWinControl.UpdateControlState (Line 9935, "Vcl.Controls.pas" + 21) + $3
    [50D1BF0A]{vcl260.bpl  } Vcl.Controls.TWinControl.CMVisibleChanged (Line 11726, "Vcl.Controls.pas" + 3) + $2
    [50D15292]{vcl260.bpl  } Vcl.Controls.TControl.WndProc (Line 7420, "Vcl.Controls.pas" + 91) + $6
    [218C5147]{vclactnband260.bpl} Vcl.ActnMenus.CallWindowHook (Line 757, "Vcl.ActnMenus.pas" + 20) + $F
    [50D19D47]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10278, "Vcl.Controls.pas" + 166) + $6
    [2440BF01]{uniGUI26Core.bpl} Uniguibaseclasses.TUniGUIBaseControl.VCLWndProc + $19
    [50D14ECC]{vcl260.bpl  } Vcl.Controls.TControl.Perform (Line 7198, "Vcl.Controls.pas" + 10) + $8
    [50D138EA]{vcl260.bpl  } Vcl.Controls.TControl.SetVisible (Line 6224, "Vcl.Controls.pas" + 5) + $C
    [50D7B98B]{vcl260.bpl  } Vcl.ComCtrls.TPageControl.ChangeActivePage (Line 6529, "Vcl.ComCtrls.pas" + 17) + $4
    [50D7BEB6]{vcl260.bpl  } Vcl.ComCtrls.TPageControl.SetActivePage (Line 6726, "Vcl.ComCtrls.pas" + 5) + $5
    [50D7C553]{vcl260.bpl  } Vcl.ComCtrls.TPageControl.SetTabIndex (Line 6957, "Vcl.ComCtrls.pas" + 5) + $16
    [50D7BA7F]{vcl260.bpl  } Vcl.ComCtrls.TPageControl.DeleteTab (Line 6556, "Vcl.ComCtrls.pas" + 7) + $6
    [50D7B3AA]{vcl260.bpl  } Vcl.ComCtrls.TTabSheet.SetTabShowing (Line 6341, "Vcl.ComCtrls.pas" + 10) + $B
    [50D7BE08]{vcl260.bpl  } Vcl.ComCtrls.TPageControl.RemovePage (Line 6702, "Vcl.ComCtrls.pas" + 3) + $4
    [50D7B169]{vcl260.bpl  } Vcl.ComCtrls.TTabSheet.Destroy (Line 6233, "Vcl.ComCtrls.pas" + 4) + $8
    [5005F928]{rtl260.bpl  } System.TObject.Free (Line 17586, "System.pas" + 1) + $4
    [2440CE46]{uniGUI26Core.bpl} Uniguibaseclasses.TUniGUIBaseControl + $46
    [244137E3]{uniGUI26Core.bpl} Uniguiclasses.TUniControl + $2B7
    [5005A264]{rtl260.bpl  } System.@FreeMem (Line 4878, "System.pas" + 20) + $0
    [5005F830]{rtl260.bpl  } System.TObject.FreeInstance (Line 17523, "System.pas" + 2) + $2
    [2441F285]{uniGUI26Core.bpl} Uniguiclasses.TUniContainer + $11
    [24A0A250]{uniGUI26.bpl} Unipanel.TUniCustomPanel + $1C
    [24A3F326]{uniGUI26.bpl} Unipagecontrol.TUniCustomTabSheet + $22
    [5005F928]{rtl260.bpl  } System.TObject.Free (Line 17586, "System.pas" + 1) + $4
    [210669DA]{designide260.bpl} ComponentDesigner.TComponentRoot.DeleteSelection (Line 5139, "ComponentDesigner.pas" + 44) + $2
    [1453AA06]{IDEFixPack.dll} PageControlTabSheetCompDropFix.DeleteSelection (Line 187, "PageControlTabSheetCompDropFix.pas" + 34) + $7
    [21081E33]{designide260.bpl} Surface.TDesignSurface.DeleteSelection (Line 208, "Surface.pas" + 0) + $7
    [21024B7B]{designide260.bpl} Designer.TDesigner.DeleteSelection (Line 789, "Designer.pas" + 2) + $5
    [210273BB]{designide260.bpl} Designer.TDesigner.Key (Line 1607, "Designer.pas" + 4) + $3
    [528502BC]{vcldesigner260.bpl} VCLSurface.KeyEvent (Line 3420, "VCLSurface.pas" + 8) + $1E
    [52850BD6]{vcldesigner260.bpl} VCLSurface.TVclDesignSurface.IsDesignMsg (Line 3602, "VCLSurface.pas" + 61) + $6
    [50067A1C]{rtl260.bpl  } System.@IntfClear (Line 38276, "System.pas" + 10) + $0
    [1453DF58]{IDEFixPack.dll} VCLDesignerGuideLinesHideFix.IsDesignMsg (Line 76, "VCLDesignerGuideLinesHideFix.pas" + 25) + $6
    [50D15017]{vcl260.bpl  } Vcl.Controls.TControl.WndProc (Line 7333, "Vcl.Controls.pas" + 4) + $21
    [50D19D47]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10278, "Vcl.Controls.pas" + 166) + $6
    [50E652E1]{vcl260.bpl  } Vcl.Forms.TCustomForm.WndProc (Line 4652, "Vcl.Forms.pas" + 209) + $5
    [50060980]{rtl260.bpl  } System.TMonitor.TryEnter (Line 19547, "System.pas" + 10) + $0
    [500604A0]{rtl260.bpl  } System.TMonitor.Enter (Line 19208, "System.pas" + 4) + $2
    [5285A023]{vcldesigner260.bpl} VCLFormContainer.TControlSizer.ControlWndProc (Line 379, "VCLFormContainer.pas" + 33) + $C
    [5006030C]{rtl260.bpl  } System.TMonitor.CheckOwningThread (Line 19122, "System.pas" + 2) + $0
    [5006062E]{rtl260.bpl  } System.TMonitor.Exit (Line 19312, "System.pas" + 1) + $2
    [5006068A]{rtl260.bpl  } System.TMonitor.Exit (Line 19334, "System.pas" + 2) + $7
    [50CF65D7]{vcl260.bpl  } Vcl.Graphics.FreeMemoryContexts (Line 7138, "Vcl.Graphics.pas" + 12) + $8
    [50D19314]{vcl260.bpl  } Vcl.Controls.TWinControl.MainWndProc (Line 9977, "Vcl.Controls.pas" + 3) + $6
    [50D19329]{vcl260.bpl  } Vcl.Controls.TWinControl.MainWndProc (Line 9980, "Vcl.Controls.pas" + 6) + $0
    [50067A1C]{rtl260.bpl  } System.@IntfClear (Line 38276, "System.pas" + 10) + $0
    [5006404C]{rtl260.bpl  } System.@FinalizeArray (Line 32929, "System.pas" + 144) + $0
    [09AD25E2]{themeloader260.bpl} Idetheme.Stylemanager.TIDEThemeStyleEngine.UnRegisterSysStyleHook + $106
    [50D197BC]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10122, "Vcl.Controls.pas" + 10) + $48
    [50D19D47]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10278, "Vcl.Controls.pas" + 166) + $6
    [50E652E1]{vcl260.bpl  } Vcl.Forms.TCustomForm.WndProc (Line 4652, "Vcl.Forms.pas" + 209) + $5
    [5285A023]{vcldesigner260.bpl} VCLFormContainer.TControlSizer.ControlWndProc (Line 379, "VCLFormContainer.pas" + 33) + $C
    [50D19314]{vcl260.bpl  } Vcl.Controls.TWinControl.MainWndProc (Line 9977, "Vcl.Controls.pas" + 3) + $6
    [50179C9C]{rtl260.bpl  } System.Classes.StdWndProc (Line 17959, "System.Classes.pas" + 11) + $2
    [50E6ECCF]{vcl260.bpl  } Vcl.Forms.TApplication.ProcessMessage (Line 10747, "Vcl.Forms.pas" + 23) + $1
    [50E6ED12]{vcl260.bpl  } Vcl.Forms.TApplication.HandleMessage (Line 10777, "Vcl.Forms.pas" + 1) + $4
    [50E6F045]{vcl260.bpl  } Vcl.Forms.TApplication.Run (Line 10915, "Vcl.Forms.pas" + 26) + $3
    [0051D06E]{bds.exe     } bds.bds (Line 214, "" + 7) + $7


     

    bds_TMKDRyGY5C.png


  6. Hi

    Dominique certainly has a good point and describes what is currently happening and what
    he, -and I certainly think others here on the forum, experience.

    New functionalities is nice, but more important is a stable platform and where bug fixing 
    should receive attention. Several signals have already been issued on the forum about the 
    long stay-out of fixes, up-to-date documentation and a roadmap, - the last update is from 
    February I think.

    In any case, I don't know what Farshad's ambition is with uniGui because he responds
    fairly rarely to this type of message. A shame because it is a signal that is being delivered
    by its users of the product and I think you should do something with it.

    I am uniGui user from the first hour and I still think it is a very nice product and a great 
    achievement that Farshad has achieved, we all agree with that. We have all developed 
    one or more applications in uniGui and maybe even sold them. That would not have been 
    possible without uniGui. But it does not stop there and the developments in the market,
    the demand of the users continues. Today's applications must be multi-device if you
    like it or not. The application must have the same look and feel on both mobile and
    desktop / tablet ... responsive

    But just like Dominique I am increasingly worried about the future / continuity of 
    uniGui .. why ... because there is insufficient communication, bug fixing is too slow, 
    you have to use work-arounds to realize things that you do not like structural solution. 
    Finally my biggest concern is that I think Farshad is still the only developer. 
    Points that have already been mentioned in previous post but have not provided clarity.

    A framework such as uniGui has a lot of potential, but then more development capacity 
    must become available, bug fixing must go faster and communication must be improved.

    It is not about which framework is better, that everyone must determine for themselves 
    and another cannot do for you. Also not with examples of what the one framework can 
    or cannot do. Every framework has its own specific characteristics and use, and also 
    everyone uses it in its own way and for its own application.

    What you do see is that there are new frameworks that will certainly develop faster
    and meet the current needs of our customers, yes they are still in their infancy, 
    but are quickly moving to a higher level with a growing number of users.

    Regards Peter


  7. Hi,

    I used it on Win32 applications which was running on a vps server. We stored the report which
    are created with Fastreport in the database so everyone could use them. One of the issues is the grow
    of you're database.

    When the use images in a report and don't limit the size of the image than a report becomes large and also the database.
    When they use a image which is 4 MB, then you're database is also growin with 4 MB. And with lot's of records...it grows hard.

    Then you also have to load the database records...which also cost performanance.
     

    Now with uniGui i also save  uploaded records on disk..it's cheap and fast..the same way Mohammed describes.

    But..if you would like to store files in a database...this is what i used. Store files in a database requires a blob field.
    When you use MySQL then use a LargeBlob field. The code below is used for the FastReport i used

     

       if dmDocument.Doc.State in [dsBrowse] then begin
            dmDocument.Doc.Edit;
       end;
         try
           MemStream := TMemoryStream.Create;
           Stream := dmDocument.Doc.CreateBlobStream(dmDocument.Doc.FieldByName('Report'), bmReadWrite);
           frxReport.SaveToStream(MemStream);
           MemStream.Position := 0;
           Stream.CopyFrom(MemStream, MemStream.Size);
           if dmDocument.Doc.State in [dsInsert,dsEdit] then begin
              dmDocument.Doc.Post;
           end;
         finally
           MemStream.Free;
           Stream.Free;
         end;


    A old example using a Win32 application with a DBISAM database. I save the file into a blob field and don;t forget to save the file+extension also in the database:

    procedure TFormMain.FileLoad;
    var
      fileInfo: _WIN32_FILE_ATTRIBUTE_DATA;
      TotalSize: int64;
    begin
      FormMain.OpenDialog.Title:='Select file';
      if FormMain.OpenDialog.Execute then begin
         GetFileAttributesEx(PChar(FormMain.OpenDialog.FileName), GetFileExInfoStandard, @fileInfo);
         TotalSize := fileInfo.nFileSizeHigh shl 32 or fileInfo.nFileSizeLow;
         if TotalSize>6000000 then begin
            Application.MessageBox('This file can't be saved into the database it's larger then 6MB.', 'Warning', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
            Abort;
         end;
         if TotalSize<6000000 then begin
            if dmDocument.Doc.State in [dsBrowse] then begin
               dmDocument.Doc.Edit;
            end;
            Bstream := dmDocument.Doc.CreateBlobStream(dmTables.Document.FieldByName('FileContent'),bmWrite);
            try
               Bstream.Seek(0, soFromBeginning);
               Fstream := TFileStream.Create(FormMain.OpenDialog.FileName, fmOpenRead or fmShareDenyWrite);
               try
                  Bstream.CopyFrom(Fstream, Fstream.Size)
               finally
                  Fstream.Free
               end;
            finally
               Bstream.Free
            end;
            dmDocument.Doc.FieldByName('FileContent').Value:=ExtractFileName(FormMain.OpenDialog.FileName);
            
         end;
     end;

    Saving the file to disk

     if dmDocument.Doc.FieldByName('FileContent').Value='' then begin
        Application.MessageBox('There's no file available!.', 'Message', MB_OK+MB_ICONEXCLAMATION+MB_DEFBUTTON1+MB_APPLMODAL);
        Abort;
     end;
     if dmDocument.Doc.FieldByName('FileContent').Value<>'' then begin
        FormMain.SaveDialog.Title:='Save file';
        sFile:=dmDocument.Doc.FieldByName('FileName').AsString;
        SaveDialog.FileName:=cBestand;
        if FormMain.SaveDialog.Execute then begin
           Bstream := dmDocument.Doc.CreateBlobStream(dmDocument.Doc.FieldByName('FileContent'), bmRead);
           try
               Bstream.Seek(0, soFromBeginning);
               with TFileStream.Create(SaveDialog.FileName,fmCreate) do
                try
                       CopyFrom(Bstream,Bstream.Size)
                   finally
                       Free
                   end;
           finally
              Bstream.Free;
           end;
         end;
      end;

     


  8. i


    Would be nice if this could be implemented as standard properties after 4 years:

    http://forums.unigui.com/index.php?/topic/6727-pagecontrol-properties/&tab=comments#comment-34202

    additional properties :

    • tabAlginment
    • TabHeight
    • TabMargin
    • TabPosition (top, left, right, bottom)
    • TabSpace (space between tabs)
    • TabWidth (set width of tabs)
       

    Nice to have :

    • Hottrack
    • Hottrack Color
    • HotTrackStyle (tab, tekst or current tab where the 'tab draws a nice colored line at the top of the tab)
    • Like 1

  9. Hi

    I don't think you can use my example because I save the designed reports in a database.

    When a label or wristband is printed, the report is looked up in the database and loaded and then printed.
    Printing is then done in the same way as you normally do when it is loaded from disk. The printer on which
    this report should be printed is also stored in the database because I often use 9 printers at the same time, each
    with its own color wristband.

    // Set options    
    FormMain.frxReport.PrintOptions.ShowDialog: = False;    
    FormMain.frxReport.PrintOptions.Copies: = 0;    

    // Set correct printer    
    FormMain.frxReport.PrintOptions.Printer: = dmMain.Scan.FieldByName ('showConfigIDPrinterName'). AsString;    

    // Prepaire report    
    FormMain.frxReport.PrepareReport;  

     // Print report    
    FormMain.frxReport.print;


  10. Hi,

    If you have installed the windows drivers for this printer you can just print like you normally do on a laserprinter with A4 paper.
    Just create you label design with fastreport (which i use) and you can print. I print on several therminal TSC label printers wristbands,
    labels or tickets. All based on a design with in fastreport.

    Regards Peter

     

     


  11. Hi

    I found a solution...what did i do :

    •  the field color contains the correct color for the bullet
    •  i created a calculated field called 'bullet'
    •  in the onCalcFields i added this code : dmStatus.StatusBooking.FieldByName('Bullet').value := '=';
    •  i added the field 'bullet' as a extra column to the uniDBgrid
    •  change the font.name for this column to 'webdings'        <== important because now you got a nice big bullet
    • change the font.size for this column to 20                           <== then you got a nice big button
    •  uniDBgrid.OnDrawColumnCell i added this code
      • if ACol=1 then begin
          Attribs.Font.Color  := uniDBgrid.Datasource.Dataset.FieldByName('Color').value;
        end;

     

    ApplicationFrameHost_fWLZsP4UiT.png


  12. Hi Sherzod

    Thank you for the examples but I prefer not to work with images. You should also always include this with the installation
    and you have to make translation for the selected color and which image it it.

    Is there no other way. I am thinking, for example, of the use of ALT codes.
    Every new record receives this ALT code, which then has a standard white color.
    In the dbgrid the font size and color are adjusted to the value in the 'Color' field

    But no idea if that's possible and i solution

    Or is there a solution to based on a separate table which contains colored images / color code
    from the bullets and showing them in a dblookupcombobox...which is not possible i think?

    Regards Peter


  13. hi

    I have a table called 'Status' with the following rows:

    - StatusID (autoinc)
    - Name (var)
    - Color (var)

    The user has to select a color for a certain status. Let say the follow status :

    - In progress = yellow
    - Done = green

    The selected color is saved in the field 'Color' and contains the color colde like '$0000B9FF'

    Now i would like to show in a DBgrid, see attachment:

    - the name
    - a big dot with the
    corresponding color from the field 'Color'

    How can i do this ?

     

     

     

    dgrid with bullet.jpg


  14. Hi

    I use mysql server with devart component. Easy to host and built mirroring.

    I have a out 30 customers using the application and every customers has own database environment.

    Every database environment has via own database backup/restore possibility which we manage.

    Using a SQL script it is easy to update or change tables. Yes hou have to do it several times but thats easy to automate. But restoring database for one customer can be tricky when eveything is in 1 environments. 

    See also

    https://digitalguardian.com/blog/saas-single-tenant-vs-multi-tenant-whats-difference

×