Web forum is in read-only mode. Login as active registered customer for write access
  Forum Search   New Posts New Posts

Out of resources with AdvToolBarPager

 Post Reply Post Reply
Author
Griffiths Richard View Drop Down
New Member
New Member
Avatar

Joined: 05 Jul 2019
Posts: 31
Post Options Post Options   Quote Griffiths Richard Quote  Post ReplyReply Direct Link To This Post Topic: Out of resources with AdvToolBarPager
    Posted: 02 Dec 2019 at 10:58am
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


Back to Top
Bruno Fierens View Drop Down
TMS Support
TMS Support
Avatar

Joined: 11 May 2010
Posts: 8601
Post Options Post Options   Quote Bruno Fierens Quote  Post ReplyReply Direct Link To This Post Posted: 02 Dec 2019 at 12:15pm
I cannot reproduce this.
Is this a clean setup of the IDE and our components?
Did you try any of our demos?
Back to Top
Griffiths Richard View Drop Down
New Member
New Member
Avatar

Joined: 05 Jul 2019
Posts: 31
Post Options Post Options   Quote Griffiths Richard Quote  Post ReplyReply Direct Link To This Post Posted: 02 Dec 2019 at 12:26pm
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.
Back to Top
Griffiths Richard View Drop Down
New Member
New Member
Avatar

Joined: 05 Jul 2019
Posts: 31
Post Options Post Options   Quote Griffiths Richard Quote  Post ReplyReply Direct Link To This Post Posted: 02 Dec 2019 at 12:27pm
IDE was updated last week 10.3.3 Rio. 

TMS updated this morning.

Back to Top
Bruno Fierens View Drop Down
TMS Support
TMS Support
Avatar

Joined: 11 May 2010
Posts: 8601
Post Options Post Options   Quote Bruno Fierens Quote  Post ReplyReply Direct Link To This Post Posted: 02 Dec 2019 at 4:09pm
What about our demos? Did you test these?
Back to Top
Griffiths Richard View Drop Down
New Member
New Member
Avatar

Joined: 05 Jul 2019
Posts: 31
Post Options Post Options   Quote Griffiths Richard Quote  Post ReplyReply Direct Link To This Post Posted: 02 Dec 2019 at 5:30pm
Didnt see a demo for the advtoolbarpager
Back to Top
Bruno Fierens View Drop Down
TMS Support
TMS Support
Avatar

Joined: 11 May 2010
Posts: 8601
Post Options Post Options   Quote Bruno Fierens Quote  Post ReplyReply Direct Link To This Post Posted: 02 Dec 2019 at 5:56pm
There are several demos in the subfolder AdvToolBar under demos
Back to Top
Griffiths Richard View Drop Down
New Member
New Member
Avatar

Joined: 05 Jul 2019
Posts: 31
Post Options Post Options   Quote Griffiths Richard Quote  Post ReplyReply Direct Link To This Post Posted: 03 Dec 2019 at 9:17am
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.

Back to Top
Griffiths Richard View Drop Down
New Member
New Member
Avatar

Joined: 05 Jul 2019
Posts: 31
Post Options Post Options   Quote Griffiths Richard Quote  Post ReplyReply Direct Link To This Post Posted: 03 Dec 2019 at 9:29am
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)

Back to Top
Griffiths Richard View Drop Down
New Member
New Member
Avatar

Joined: 05 Jul 2019
Posts: 31
Post Options Post Options   Quote Griffiths Richard Quote  Post ReplyReply Direct Link To This Post Posted: 03 Dec 2019 at 9:42am
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}





Back to Top
Bruno Fierens View Drop Down
TMS Support
TMS Support
Avatar

Joined: 11 May 2010
Posts: 8601
Post Options Post Options   Quote Bruno Fierens Quote  Post ReplyReply Direct Link To This Post Posted: 03 Dec 2019 at 9:43am
We have internally already fixed this. Contact us by email for an incremental source update.
Back to Top
Griffiths Richard View Drop Down
New Member
New Member
Avatar

Joined: 05 Jul 2019
Posts: 31
Post Options Post Options   Quote Griffiths Richard Quote  Post ReplyReply Direct Link To This Post Posted: 03 Dec 2019 at 10:02am
Email sent. 

Thanks
Back to Top
Griffiths Richard View Drop Down
New Member
New Member
Avatar

Joined: 05 Jul 2019
Posts: 31
Post Options Post Options   Quote Griffiths Richard Quote  Post ReplyReply Direct Link To This Post Posted: 05 Dec 2019 at 9:10am
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.

 


Back to Top
Bruno Fierens View Drop Down
TMS Support
TMS Support
Avatar

Joined: 11 May 2010
Posts: 8601
Post Options Post Options   Quote Bruno Fierens Quote  Post ReplyReply Direct Link To This Post Posted: 05 Dec 2019 at 9:12am
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?
Back to Top
Griffiths Richard View Drop Down
New Member
New Member
Avatar

Joined: 05 Jul 2019
Posts: 31
Post Options Post Options   Quote Griffiths Richard Quote  Post ReplyReply Direct Link To This Post Posted: 05 Dec 2019 at 10:46am
No. One license of Rad Studio linked to one laptop unfortunately.
Back to Top
Griffiths Richard View Drop Down
New Member
New Member
Avatar

Joined: 05 Jul 2019
Posts: 31
Post Options Post Options   Quote Griffiths Richard Quote  Post ReplyReply Direct Link To This Post Posted: 05 Dec 2019 at 4:51pm
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.
Back to Top
Griffiths Richard View Drop Down
New Member
New Member
Avatar

Joined: 05 Jul 2019
Posts: 31
Post Options Post Options   Quote Griffiths Richard Quote  Post ReplyReply Direct Link To This Post Posted: 06 Dec 2019 at 10:45am
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


Back to Top
Griffiths Richard View Drop Down
New Member
New Member
Avatar

Joined: 05 Jul 2019
Posts: 31
Post Options Post Options   Quote Griffiths Richard Quote  Post ReplyReply Direct Link To This Post Posted: 06 Dec 2019 at 11:25am
Problem seems to occur when you make the Form a TAdvToolBarForm class

TfrmDatabases = class(TForm)

to

TfrmDatabases = class(TAdvToolBarForm)


Back to Top
Griffiths Richard View Drop Down
New Member
New Member
Avatar

Joined: 05 Jul 2019
Posts: 31
Post Options Post Options   Quote Griffiths Richard Quote  Post ReplyReply Direct Link To This Post Posted: 09 Dec 2019 at 3:07pm
Hi, any ideas please ?

Back to Top
Bruno Fierens View Drop Down
TMS Support
TMS Support
Avatar

Joined: 11 May 2010
Posts: 8601
Post Options Post Options   Quote Bruno Fierens Quote  Post ReplyReply Direct Link To This Post Posted: 09 Dec 2019 at 9:50pm
We have sent an incremental source update by email for your review.
Back to Top
Gjalt Vanhouwaert View Drop Down
TMS Support
TMS Support
Avatar

Joined: 28 Mar 2019
Posts: 14
Post Options Post Options   Quote Gjalt Vanhouwaert Quote  Post ReplyReply Direct Link To This Post Posted: 10 Dec 2019 at 8:28am
Originally posted by Griffiths Richard

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.
Do I understand this correct that it doesn't happen in RAD Studio 10.3.2?
Back to Top
Griffiths Richard View Drop Down
New Member
New Member
Avatar

Joined: 05 Jul 2019
Posts: 31
Post Options Post Options   Quote Griffiths Richard Quote  Post ReplyReply Direct Link To This Post Posted: 10 Dec 2019 at 9:54am
Didnt try in 10.3.2 because I had already updated a week prior.

Sent an email back to support with findings of new source update. It does not work at all with present advtoolbarpager and styler on the page. If i delete them and put new fresh components on I dont get an error and the bar appears but strange things happen when the AdvToolBarForm is moved from the 1080p 100% 96DPI screen to a 4K 250% 240DPI monitor. The caption font seems to be getting bigger and bigger and bigger when you move to the close button. 

Also if the 4k 250% 240DPI laptop is the only thing connected and signed into windows 10 then the caption font stays small but the caption bar does goto the correct height.
Back to Top
Gjalt Vanhouwaert View Drop Down
TMS Support
TMS Support
Avatar

Joined: 28 Mar 2019
Posts: 14
Post Options Post Options   Quote Gjalt Vanhouwaert Quote  Post ReplyReply Direct Link To This Post Posted: 10 Dec 2019 at 10:59am
We are not able to reproduce these issues locally.
Do you have the same problems with our Demos?
Is anything besides high DPI used?
Back to Top
Griffiths Richard View Drop Down
New Member
New Member
Avatar

Joined: 05 Jul 2019
Posts: 31
Post Options Post Options   Quote Griffiths Richard Quote  Post ReplyReply Direct Link To This Post Posted: 10 Dec 2019 at 11:06am
My Primary monitor is the 1080p 100% 96DPI and my secondary montior is 1080p 100% 96DPI and the third is 4K 250% 240DPI laptop.
Back to Top
Bruno Fierens View Drop Down
TMS Support
TMS Support
Avatar

Joined: 11 May 2010
Posts: 8601
Post Options Post Options   Quote Bruno Fierens Quote  Post ReplyReply Direct Link To This Post Posted: 10 Dec 2019 at 11:17am
Did you run our demos? Do you see the issue with our demos? When NOT, what is different in your project from our demos?
Back to Top
 Post Reply Post Reply

Forum Jump Forum Permissions View Drop Down