Where can I find a movable toolbar demo? - delphi

At the top of the Delphi IDE is a toolbar with buttons grouped together on little movable trays. I'm trying to implement something like that, but not having much success. I've found TToolbar, but I can't figure out how to set up the movable trays. Does anyone know where I could find a simple demo app that shows how it's done?

I believe the webbrows.dpr located in the cool stuff demo directory (and included in all installs of Delphi since around Delphi 6 or so) contains just the demo you are looking for. This gives you the effect your looking for using only CodeGear supplied components. You add multiple bands and set the fixed size to false for the bands you want to allow to be movable.

You can try the Toolbar2000 Component from Jordan Russell or the TBX package wich is an extension for Toolbar2000 components.
Toolbar2000 is a set of components for CodeGear Delphi and C++Builder designed to mimic the Office 2000 look and behavior. It includes draggable and dockable toolbars and menus.
alt text http://www.indasoftware.com/_files/img/fordev/office2003/small_classic.png
you can see these links.
Office2003 Theme for TBX
Mac OSX Theme for TBX
TBX themes
Bye.

You can put your toolbars in a standard VCL TCoolBar or TControlBar. AFAIR this can get a bit messy sometimes. For an example, have a look at the CoolStuff demo, as skamradt suggested.

Related

How to disable Delphi XE3 theme over TMS CurvyEdit component

Help pls. The theme option in Delphi XE3 is great. Unfortunately something goes wrong when I try to use component – TMS CurvyEdit. When I'm applying bright theme on Form everything is OK. When the theme is dark TMS CurvyEdit looks quite ugly. This component is similar to standard Delphi ButtonedEdit though it looks quite nice here. The problem is that the area between buttons looks awful. I unsuccessfully tried different methods to disable applying themes over the above mentioned component. I need TMS CurvyEdit component to be always white no matter which theme is active. Any suggestions pls.?

Delphi XE2 modern looking MainMenu

I am trying to modernize the look of our older Delphi 7 application now that we are using Delphi XE-2. I experimented with the TRibbon, and although I like it, it probably is not the correct solution since we currently use a TMainMenu and make many runtime changes to it - our users can modify the main menu. But the default Mainmenu looks old, especially compared to the image shown.
What I am trying to do is something very close to the attached image, especially with the background color, but I don't quite understand how this was done. Can anyone tell me if this example (the File/View/Insert section) uses a TMainMenu, or is it Buttons on a Toolbar ? If we require a customizable main menu, do you think the example shown is an option ?
This example image comes from DevExpress Print Sample library.
Edit : I am new here so I can't include the image. Here is the link :
http://www.devexpress.com/Products/VCL/ExPrintingSystem/gallery.xml
The second image, the green one that says "Print Preview".
You could use the TActionMainMenuBar but the simpler solution for you is to Use Vcl styles, pick a theme, modify the graphical properties of a MainMenu component and then use StyleHooks to force the style just for the MainMenu component without using it for the whole application.

Delphi: create menu (tabs) like in FineReader 11

Can I create a menu like in Fine Reader 11 in Delphi XE (also using 3d party controls)? What do I need to make an effect like on pictures below? Thanks.
Some other examples:
TMS have a similar menu in their Advanced Toolbars & Menus components
UPDATE:
TMS Advanced Toolbars & Menus include TAdvPolyMenu, which you can customize as your preferred style.
You may use AdvOfficePager from Tms Components :
You can get some very similar results using the JvNavPanel controls in the Jedi JVCL component set.

SysListView32 like mouse selection rectangle

Can I make a mouse selection rectangle in a List View like in a SysListView32?
Is there a way to work with a SysListView32 and use it in Delphi?
Thanks!
You need to set LVS_EX_DOUBLEBUFFER style of the list view (only applicable with comctl32.dll version 6.0 (XP) and later):
[...] This extended style also enables alpha-blended marquee selection on
systems where it is supported.
uses
commctrl;
..
ListView_SetExtendedListViewStyle(ListView1.Handle, LVS_EX_DOUBLEBUFFER);
It also works with the TShellListView component included as a demo. See this answer to find out how to find and install the shell controls.
(PS: Don't forget to set Multiselect to true)
The site appears to be down currently, but there's a Delphi ListView component available for free from Mustangpeak that has this feature and more that are found in the modern Windows list view.

Delphi TListBox contents overflow when selecting (Win7, 32bit, themed)

I've a TListBox on a Windows form with 966 elements in it. When I click a button on my form, a subset of these strings are selected (roughly 200 of them).
If I now unfocus my application by clicking somewhere on the task bar, the entries from my TListBox bleed upward, so as they are visible above the boundaries of the TListBox. They are thankfully bleeding out behind the TGroupBox component which is directly above them - however this still looks extrememly unpolished.
I'm able to reproduce this only on one Win 7 x64 machine using the Aero theme (I've another Win 7 x64 laptop which doesn't exhibit the same problem with the same theme setting).
I've tried issuing a PostMessage( Self.Handle, WM_PAINT, 0, 0) directly after changing the select status, preceded by a ListBox.Refresh. This doesn't help.
Any help would be much appreciated. Please advise if you need more details.
Cheers, Duncan
Are you using the XPManifest unit, or have you enabled themes for your app? If so, try not using it to see what happens. It can be very bad if you dont have a good video card.
My 2 cents? Avoid using themes at all. It simple does not work very well.

Resources