

HeartWare
Members-
Content Count
9 -
Joined
-
Last visited
Community Reputation
0 Neutral-
TDateTimeHelper from D11 that can be used in D10.4?
HeartWare replied to David Schwartz's topic in RTL and Delphi Object Pascal
They have, and they can: TYPE TMyClassHelper = CLASS HELPER(TAncestorHelper) FOR TAncestor However, RECORD HELPERS cannot be inherited... -
wuppdi Welcome Page for Delphi 11 Alexandria?
HeartWare replied to PeterPanettone's topic in Delphi IDE and APIs
How do you make a sub-folder to an already existing folder in Favorite branch? Ie. I have a Favorite folder "Utils" under which I want to sub-divide my projects in "GUI" and "CLI", f.ex. When I click the "+" button, it always creates the new folder directly under Favorites. And when I try to Drag'n'Drop it into the correct folder, it just drags it to another position within the Favorites branch. Also, when I use Drag'n'Drop (after enabling it) from one favorite folder to another, it doesn't operate on the project I'm dragging, but always takes the top one from the source folder. Also, when Drag'n'Dropping, it should MOVE the project instead of COPYing it (unless you hold down Ctrl when you drag - then it is a COPY operation, as per the standard Windows Drag'n'Drop). I'm really getting to like this extension, but it still has a few rough edges 🙂 -
wuppdi Welcome Page for Delphi 11 Alexandria?
HeartWare replied to PeterPanettone's topic in Delphi IDE and APIs
A possible explanation: If I have the "Close Welcome screen when opening a new project" enabled, the error occurs. If the Welcome screen is open when I select "Close All Files", it doesn't. -
wuppdi Welcome Page for Delphi 11 Alexandria?
HeartWare replied to PeterPanettone's topic in Delphi IDE and APIs
When I try to "Close All Files", I get an exception: [308BDA88]{WP.gksoftPlugin280.bpl} WP.gksoftPlugIn.View.Gksoftplugin.View.TWPFileNotifier.FileNotification (Line 1659, "WP.gksoftPlugIn.View.pas" + 12) + $3 [2F233D50]{EurekaLogCore280.bpl} Especificdelphi.IsCppExceptionCode + $20 [2F3C18DA]{EurekaLogCore280.bpl} Eexceptioninfocpp.ECppException + $35A [2F3C63E8]{EurekaLogCore280.bpl} Eexceptioninfobcb.EBCPPStdException.GetStdException + $278 [2F3C7BE4]{EurekaLogCore280.bpl} Eexceptioninfollvm.EBCPPStdException.GetStdException + $214 [2F3CA492]{EurekaLogCore280.bpl} Eexceptioninfomsvc.EMSCppStdException.GetStdException + $222 [79A21033]{rtl280.bpl } System.@HandleAnyException (Line 20992, "System.pas" + 13) + $0 [79A29D87]{rtl280.bpl } System.TInterfacedObject.QueryInterface (Line 39725, "System.pas" + 1) + $8 [79A1FF56]{rtl280.bpl } System.TObject.GetInterface (Line 18385, "System.pas" + 7) + $9 [79A29D87]{rtl280.bpl } System.TInterfacedObject.QueryInterface (Line 39725, "System.pas" + 1) + $8 [308BDA19]{WP.gksoftPlugin280.bpl} WP.gksoftPlugIn.View.Gksoftplugin.View.TWPFileNotifier.FileNotification (Line 1650, "WP.gksoftPlugIn.View.pas" + 3) + $7 [79A29D87]{rtl280.bpl } System.TInterfacedObject.QueryInterface (Line 39725, "System.pas" + 1) + $8 [78C52FC5]{coreide280.bpl} IDEServices.TIDEServices.SendFileNotification (Line 5331, "IDEServices.pas" + 😎 + $10 [78C536FA]{coreide280.bpl} IDEServices.FileNotification (Line 5592, "IDEServices.pas" + 1) + $9 [78951B9F]{coreide280.bpl} ProjectGroup.TProjectGroup.BeforeDestruction (Line 920, "ProjectGroup.pas" + 4) + $10 [79A20529]{rtl280.bpl } System.@BeforeDestruction (Line 19336, "System.pas" + 10) + $0 [78951B26]{coreide280.bpl} ProjectGroup.TProjectGroup.Destroy (Line 901, "ProjectGroup.pas" + 0) + $2 [79A1FDF4]{rtl280.bpl } System.TObject.Free (Line 17991, "System.pas" + 1) + $4 [789584F6]{coreide280.bpl} ProjectGroup.TProjectGroupWrapper.Close (Line 2848, "ProjectGroup.pas" + 2) + $5 [00EE7B0F]{bds.exe } AppMain.TAppBuilder.DestroyProjectGroup (Line 2841, "AppMain.pas" + 21) + $9 [00EE7C68]{bds.exe } AppMain.TAppBuilder.CloseProjectGroup (Line 2863, "AppMain.pas" + 4) + $2 [00EE8B49]{bds.exe } AppMain.TAppBuilder.FileCloseAll (Line 3156, "AppMain.pas" + 😎 + $2 [79B349D3]{rtl280.bpl } System.Classes.TBasicAction.Execute (Line 17981, "System.Classes.pas" + 3) + $7 [795CFAC2]{vcl280.bpl } Vcl.ActnList.TCustomAction.Execute (Line 284, "Vcl.ActnList.pas" + 19) + $35 [79B34827]{rtl280.bpl } System.Classes.TBasicActionLink.Execute (Line 17892, "System.Classes.pas" + 2) + $7 [7743664D]{vclactnband280.bpl} Vcl.ActnMenus.TCustomActionMenuBar.ExecAction (Line 1099, "Vcl.ActnMenus.pas" + 6) + $D [77437F08]{vclactnband280.bpl} Vcl.ActnMenus.TCustomActionMenuBar.TrackMenu (Line 1869, "Vcl.ActnMenus.pas" + 19) + $15 [7743BA5E]{vclactnband280.bpl} Vcl.ActnMenus.TCustomActionMainMenuBar.TrackMenu (Line 3739, "Vcl.ActnMenus.pas" + 5) + $3 [774361CC]{vclactnband280.bpl} Vcl.ActnMenus.TCustomActionMenuBar.CMItemClicked (Line 969, "Vcl.ActnMenus.pas" + 2) + $11 [774361D5]{vclactnband280.bpl} Vcl.ActnMenus.TCustomActionMenuBar.CMItemClicked (Line 970, "Vcl.ActnMenus.pas" + 3) + $4 [795E7F46]{vcl280.bpl } Vcl.Controls.TControl.WndProc (Line 7584, "Vcl.Controls.pas" + 91) + $6 [795ED0F1]{vcl280.bpl } Vcl.Controls.TWinControl.WndProc (Line 10631, "Vcl.Controls.pas" + 170) + $6 [795E7B7C]{vcl280.bpl } Vcl.Controls.TControl.Perform (Line 7362, "Vcl.Controls.pas" + 10) + $8 [795EC6F9]{vcl280.bpl } Vcl.Controls.GetControlAtPos (Line 10332, "Vcl.Controls.pas" + 2) + $78 [795ECF7D]{vcl280.bpl } Vcl.Controls.TWinControl.WndProc (Line 10579, "Vcl.Controls.pas" + 118) + $1D [795ED0F1]{vcl280.bpl } Vcl.Controls.TWinControl.WndProc (Line 10631, "Vcl.Controls.pas" + 170) + $6 [7743803B]{vclactnband280.bpl} Vcl.ActnMenus.TCustomActionMenuBar.WndProc (Line 1913, "Vcl.ActnMenus.pas" + 25) + $4 [795EC5FC]{vcl280.bpl } Vcl.Controls.TWinControl.MainWndProc (Line 10308, "Vcl.Controls.pas" + 3) + $6 [79B3580C]{rtl280.bpl } System.Classes.StdWndProc (Line 18490, "System.Classes.pas" + 😎 + $0 [7973417F]{vcl280.bpl } Vcl.Forms.TApplication.ProcessMessage (Line 11460, "Vcl.Forms.pas" + 23) + $1 [797341C2]{vcl280.bpl } Vcl.Forms.TApplication.HandleMessage (Line 11490, "Vcl.Forms.pas" + 1) + $4 [79734501]{vcl280.bpl } Vcl.Forms.TApplication.Run (Line 11629, "Vcl.Forms.pas" + 27) + $3 [00F38082]{bds.exe } bds.bds (Line 227, "" + 16) + $2 and I am unable to continue other than hard-killing BDS. -
wuppdi Welcome Page for Delphi 11 Alexandria?
HeartWare replied to PeterPanettone's topic in Delphi IDE and APIs
Okay - think I've figured it out. The "Favourites" can't be populated - only branches below that one. And the "+" cannot create sub-branches other than in Favourites... (ie. not in "Recently Used->Projects"). -
wuppdi Welcome Page for Delphi 11 Alexandria?
HeartWare replied to PeterPanettone's topic in Delphi IDE and APIs
Okay - installed in my v11.2 and it installed okay. But I can't populate the various branches. I have clicked the "Enable Drag'n'Drop" and can start a drag operation from the plug-in's "Recently Used->Projects" but I can't drop it on the "Favourites" branch (get a "forbidden" stop sign). How am I supposed to populate the branches if not by D'n'D? Also, the "+" button above the tree doesn't do anything. How am I to create new branches under the existing ones? -
wuppdi Welcome Page for Delphi 11 Alexandria?
HeartWare replied to PeterPanettone's topic in Delphi IDE and APIs
It seems like it doesn't work with version 28.0.42600.6491 - is that right? Which version does it work with? -
I'd use TJvSplitter from Jedi VCL, set their ResizeStyle = rsUpdate, and then on Splitter2's OnMoved event, I have this: procedure TForm128.JvSplitter2Moved(Sender: TObject); begin Panel5.Width:=Panel3.Width end; and on Splitter3's OnMoved: procedure TForm128.JvSplitter3Moved(Sender: TObject); begin Panel3.Width:=Panel5.Width end; This way, not only are they updated while dragging, but also follow along each other.
-
Is it possible to control the location of a Sub-Menu off a TPopupMenu? Ie. A TPopupMenu has an item that is a sub-menu with items. I want to control where this sub-menu pops up (normally, it pops up to the right, but I want it to pop up on the left due to screen design). Or is it possible to not have the sub-menu being auto-opened with mouse hover over the sub-menu item (ie. you have to click the sub-menu item in order to open the entire sub menu)?