Addadd chevron to TToolbar if some buttons are invisible

I sure you saw the cool feature of toolbar in all products of Microsoft (Internet Explorer, MS Office, Outlook Express etc) - when width of toolbar is less than total width of all buttons, then in right side of toolbar you see the new button with arrows (chevron sigh) and list of invisible buttons opened like popup menu by click on chevron.

Today I want to show how to add the chevron button in standard Delphi application and don't use the third-party components.

Please note that most components from third-party companies don't use this feature of common control in Windows - they created own control and draws everything (all buttons, sll bars etc) self.

As I prefer to use standard controls only (for future compartibility), I use the standard TCoolbar and TToolbar from Win32 palette in Delphi IDE which are wrappers for common controls in published library (like TEdit, TButton, TTreeView, TListView etc)

So lets's start.
You must drop the TCoolbar control to your form, add the TToolbar to some band of coolbar and add some other bands for coolbar (note that you must have a few bands for correct work of chevron).

For your TToolbar you may add any number of buttons and don't forget to set the AutoSize property in False.

The next code you may call in OnCreate event of form or in OnResize event (form or coolbar):

  1. type
  2.    TSMRebarBandInfo = packed record
  3.      cbSize: UINT;
  4.      fMask: UINT;
  5.      fStyle: UINT;
  6.      clrFore: TColorRef;
  7.      clrBack: TColorRef;
  8.      lpText: PAnsiChar;
  9.      cch: UINT;
  10.      iImage: Integer;
  11.      hwndChild: HWnd;
  12.      cxMinChild: UINT;
  13.      cyMinChild: UINT;
  14.      cx: UINT;
  15.      hbmBack: HBitmap;
  16.      wID: UINT;
  17.      cyChild: UINT;
  18.      cyMaxChild: UINT;
  19.      cyIntegral: UINT;
  20.      cxIdeal: UINT;
  21.      lParam: LPARAM;
  22.      cxHeader: UINT;
  23.    end;
  25. procedure TForm1.FormCreate(Sender: TObject);
  26. const
  27.    RBBS_NOGRIPPER  = $00000100;  // never show the gripper
  28.    RBBS_USECHEVRON = $00000200;
  29.    RBBIM_IDEALSIZE = $00000200;
  30. var
  31.    i: Integer;
  32.    rbi: TSMRebarBandInfo;
  33.    R: Trect;
  34. begin
  35.    inherited;
  37.    {if somebuttons in toolbar are invisible, add chevron}
  38.    rbi.cbSize := SizeOf(rbi);
  39.    rbi.fMask := RBBIM_STYLE or RBBIM_IDEALSIZE;
  41.    for i := 1 to yourCoolBar.Bands.Count do
  42.    begin
  43.      if not Assigned(yourCoolBar.Bands[i-1].Control) or
  44.         not (yourCoolBar.Bands[i-1].Control is TToolbar) then continue;
  46.      SendMessage(yourCoolBar.Handle, RB_GETBANDINFO, i-1, LongInt
  47. (@rbi));
  48.      rbi.fStyle := rbi.fStyle or RBBS_USECHEVRON;
  49.      rbi.fStyle := rbi.fStyle and not RBBS_NOGRIPPER;
  50.      with TToolbar(yourCoolBar.Bands[i-1].Control) do
  51.        if ButtonCount  0 then
  52.          with Buttons[ButtonCount-1] do
  53.            rbi.cxIdeal := Left + Width + 5;
  54.      SendMessage(yourCoolBar.Handle, RB_SETBANDINFO, i-1, LongInt
  55. (@rbi));
  56.    end;
  57. end;

Of course, if some buttons change the state (visible=true/false in run-time from your code), you must call this function after every change because you must recalculate the width for "ideal" width

Now if you'll run your project and play with widths of the bands in coolbar, you'll see the standard chevron button for band where toolbar is.

Please note that you may display such chevron for every band in coolbar if width of band is less than child control. For example, you have some panel in band of coolbar with list of control and you may display this chevron if some controls are invisible on panel.

PS: in the next tip I'll publish the code how to display the popup menu with invisible buttons of toolbar by click on chevron button.

With best regards, Mike Shkolnik
  • Author:
  • URL:
  • Date added:
    26 April, 2006
  • Views:
Latest News
Submit News Form Past News
Latest Forum Entries