Out of resources with AdvToolBarPager

Had the new version which lists it will fix the high dpi issues that I reported but when compiling my project gave a Out of system resources error message.


So i've created a new project. Dropped a AdvToolBarPager component and then a AdvToolBarOfficeStyler.  

Linked the 2 and when I changed the style from Office2019Gray to Office2019Black i get the same error message. 

[50CF177B]{vcl260.bpl  } Vcl.Graphics.OutOfResources (Line 4356, "Vcl.Graphics.pas" + 1) + $1C
[50CF181E]{vcl260.bpl  } Vcl.Graphics.GDIError (Line 4382, "Vcl.Graphics.pas" + 13) + $0
[50067A1C]{rtl260.bpl  } System.@IntfClear (Line 38276, "System.pas" + 10) + $0
[52850FD2]{vcldesigner260.bpl} VCLSurface.TVclDesignSurface.IsDesignMsg (Line 3727, "VCLSurface.pas" + 186) + $28
[50D14ECC]{vcl260.bpl  } Vcl.Controls.TControl.Perform (Line 7198, "Vcl.Controls.pas" + 10) + $8
[50D1CC61]{vcl260.bpl  } Vcl.Controls.TWinControl.CMInvalidate (Line 12315, "Vcl.Controls.pas" + 3) + $13
[50D15292]{vcl260.bpl  } Vcl.Controls.TControl.WndProc (Line 7420, "Vcl.Controls.pas" + 91) + $6
[5006404C]{rtl260.bpl  } System.@FinalizeArray (Line 32929, "System.pas" + 144) + $0
[0B1C25E2]{themeloader260.bpl} Idetheme.Stylemanager.TIDEThemeStyleEngine.UnRegisterSysStyleHook + $106
[50060980]{rtl260.bpl  } System.TMonitor.TryEnter (Line 19547, "System.pas" + 10) + $0
[50CF65D7]{vcl260.bpl  } Vcl.Graphics.FreeMemoryContexts (Line 7138, "Vcl.Graphics.pas" + 12) + $8
[50067A1C]{rtl260.bpl  } System.@IntfClear (Line 38276, "System.pas" + 10) + $0
[5006404C]{rtl260.bpl  } System.@FinalizeArray (Line 32929, "System.pas" + 144) + $0
[0B1C25E2]{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
[5006062E]{rtl260.bpl  } System.TMonitor.Exit (Line 19312, "System.pas" + 1) + $2
[5006068A]{rtl260.bpl  } System.TMonitor.Exit (Line 19334, "System.pas" + 2) + $7
[5015E776]{rtl260.bpl  } System.Classes.TInterfaceList.GetCount (Line 5503, "System.Classes.pas" + 5) + $11
[50067A1C]{rtl260.bpl  } System.@IntfClear (Line 38276, "System.pas" + 10) + $0
[50CF184F]{vcl260.bpl  } Vcl.Graphics.GDICheck (Line 4387, "Vcl.Graphics.pas" + 1) + $4
[50CF7013]{vcl260.bpl  } Vcl.Graphics.CopyBitmap (Line 7701, "Vcl.Graphics.pas" + 27) + $17
[28230B6C]{TMSVCLUIPackPkgDXE12.bpl} Advgrid. + $0
[5006037C]{rtl260.bpl  } System.TMonitor.Destroy (Line 19144, "System.pas" + 0) + $0
[5005F9BD]{rtl260.bpl  } System.TObject.CleanupInstance (Line 17782, "System.pas" + 23) + $0
[5005A264]{rtl260.bpl  } System.@FreeMem (Line 4878, "System.pas" + 20) + $0
[5005F830]{rtl260.bpl  } System.TObject.FreeInstance (Line 17523, "System.pas" + 2) + $2
[500600CA]{rtl260.bpl  } System.@ClassDestroy (Line 18910, "System.pas" + 0) + $2
[50CF6909]{vcl260.bpl  } Vcl.Graphics.TBitmapImage.Destroy (Line 7361, "Vcl.Graphics.pas" + 16) + $6
[50CF68A0]{vcl260.bpl  } Vcl.Graphics.TSharedImage.Release (Line 7337, "Vcl.Graphics.pas" + 7) + $2
[50CF8B56]{vcl260.bpl  } Vcl.Graphics.TBitmap.NewImage (Line 9015, "Vcl.Graphics.pas" + 36) + $5
[50CF79F3]{vcl260.bpl  } Vcl.Graphics.TBitmap.CopyImage (Line 8056, "Vcl.Graphics.pas" + 13) + $F
[50CF9B6F]{vcl260.bpl  } Vcl.Graphics.TBitmap.SetSize (Line 9831, "Vcl.Graphics.pas" + 10) + $9
[50CF93C7]{vcl260.bpl  } Vcl.Graphics.TBitmap.SetHeight (Line 9421, "Vcl.Graphics.pas" + 1) + $A
[288AD3A3]{TMSVCLUIPackPkgDXE12.bpl} Advtoolbar.TAdvToolBarPager.UpdateCaptionButtons + $867
[50D14ECC]{vcl260.bpl  } Vcl.Controls.TControl.Perform (Line 7198, "Vcl.Controls.pas" + 10) + $8
[288AC53F]{TMSVCLUIPackPkgDXE12.bpl} Advtoolbar.TAdvToolBarPager.UpdateMe + $313
[288ADB99]{TMSVCLUIPackPkgDXE12.bpl} Advtoolbar.TAdvToolBarPager.SetWin7ScenicRibbon + $AD
[288A028C]{TMSVCLUIPackPkgDXE12.bpl} Advtoolbar.TAdvToolBarPager.SetOfficeTones + $E4
[288D2ACA]{TMSVCLUIPackPkgDXE12.bpl} Advtoolbarstylers.TAdvToolBarOfficeStyler.SetToolBarStyle + $E6F2
[50126A52]{rtl260.bpl  } System.TypInfo.SetOrdProp (Line 2878, "System.TypInfo.pas" + 37) + $0
[2102EC36]{designide260.bpl} DesignEditors.TPropertyEditor.SetOrdValue (Line 840, "DesignEditors.pas" + 2) + $E
[2102FD7B]{designide260.bpl} DesignEditors.TEnumProperty.SetValue (Line 1409, "DesignEditors.pas" + 5) + $4
[212644DB]{vclide260.bpl} IDEInspListBox.TInspListBox.SetPropValue (Line 869, "IDEInspListBox.pas" + 38) + $19
[21265B54]{vclide260.bpl} IDEInspListBox.TInspListBox.ListAccept (Line 1390, "IDEInspListBox.pas" + 6) + $7
[2125A6DA]{vclide260.bpl} IDEListBtns.TListButton.CloseUp (Line 849, "IDEListBtns.pas" + 14) + $12
[21258FBC]{vclide260.bpl} IDEListBtns.TPopupListBox.WMLButtonUp (Line 176, "IDEListBtns.pas" + 2) + $2D
[50D15292]{vcl260.bpl  } Vcl.Controls.TControl.WndProc (Line 7420, "Vcl.Controls.pas" + 91) + $6
[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
[0B19240D]{themeloader260.bpl} Idetheme.Vclstylehooks.TScrollingIDEStyleHook.PaintScroll + $21
[0B192967]{themeloader260.bpl} Idetheme.Vclstylehooks.TScrollingIDEStyleHook.WMLButtonUp + $1B3
[50067A1C]{rtl260.bpl  } System.@IntfClear (Line 38276, "System.pas" + 10) + $0
[5005FE0F]{rtl260.bpl  } System.TObject.Dispatch (Line 18426, "System.pas" + 11) + $0
[0B189252]{themeloader260.bpl} Idetheme.Vclstylehooks.TIDEStyleHook.WndProc + $7A
[0B189BF8]{themeloader260.bpl} Idetheme.Vclstylehooks.TMouseTrackControlIDEStyleHook.WndProc + $0
[50067A1C]{rtl260.bpl  } System.@IntfClear (Line 38276, "System.pas" + 10) + $0
[0B188D0B]{themeloader260.bpl} Idetheme.Vclstylehooks.TIDEStyleHook.HandleMessage + $B7
[50067A1C]{rtl260.bpl  } System.@IntfClear (Line 38276, "System.pas" + 10) + $0
[50D19503]{vcl260.bpl  } Vcl.Controls.TWinControl.IsControlMouseMsg (Line 10033, "Vcl.Controls.pas" + 1) + $9
[0B1C25E2]{themeloader260.bpl} Idetheme.Stylemanager.TIDEThemeStyleEngine.UnRegisterSysStyleHook + $106
[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
[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


Thanks


I cannot reproduce this.
Is this a clean setup of the IDE and our components?
Did you try any of our demos?

I uninstalled the previous version and then installed the new version. I managed to get it to work by removing the pages then the caption is available but when moving to the 4k screen the caption went transparent and then stayed transparent until the program got terminated.


Cannot use the components in my source as it gives system out of resources.

IDE was updated last week 10.3.3 Rio. 


TMS updated this morning.

What about our demos? Did you test these?

Didnt see a demo for the advtoolbarpager

There are several demos in the subfolder AdvToolBar under demos

I've opened up the AdvToolBarDemo and thats ok. If i drop a AdvToolBarPager on it and apply the styler Out of System Resources appears again.


When loading up Customizer i'm getting

AdvToolBarOfficeStyler1.captioncolor : Property CaptionColor does not exist.

DynRibbonToolbar opens and runs. 


If I change the uRibbonFrame OfficeStyler to Office2019Black it seems ok and runs all ok. 

But adding a new AdvToolBarPager component it doesnt work, but copying the officestyler and advtoolbarpager from the uribbonframe onto the mainform appears correctly on the IDE. 

But when compiling 

First chance exception at $00865D80. Exception class $C00000FD with message 'stack overflow at 0x00865d80'. Process DynRibbonToolBar.exe (20860)
First chance exception at $77CE8136. Exception class $C0000005 with message 'access violation at 0x77ce8136: write of address 0x000a0d2c'. Process DynRibbonToolBar.exe (20860)

Office2007Demo - gives invalid typecast.

First chance exception at $77AB35D2. Exception class EInvalidCast with message 'Invalid class typecast'. Process Office2007Demo.exe (12072)
Tracked the code to
      {$IFDEF DELPHIXE10_LVL}
      (IniFile as TMemIniFile).AutoSave := true;
      {$ENDIF}





We have internally already fixed this. Contact us by email for an incremental source update.

Email sent. 


Thanks

Still getting out of resources. 


Any ideas how I can
fix it please.  I tried rolling back the installation to the October
release and everything is fine.  Reinstalled the latest version again this
morning and its still doing it.<o:p></o:p>

 


For now this is the only such problem report we received and we have not been able to replicate this.
Do you have another machine where you can test this?

No. One license of Rad Studio linked to one laptop unfortunately.

Annoyingly, just uninstalled Rad Studio 10.3.2  Installed 10.3.3 then added all my components back manually with installation and did not use migration wizard.


Out of system resources once again.

in TAdvToolBarPager.DrawMetroCaption procedure


R:= GetCaptionRect;

R.top is 0
R.bottom is 1

So BMP.height = R.Bottom - R.Top - 3;

So its reporting -2 

If that helps narrowing down the problem. I sent replies to your emails too showing that the caption appears all ok in the IDE.

Thanks


Problem seems to occur when you make the Form a TAdvToolBarForm class


TfrmDatabases = class(TForm)

to

TfrmDatabases = class(TAdvToolBarForm)


Hi, any ideas please ?


We have sent an incremental source update by email for your review.