How can I display the chevron button for toolbar?

How can I display the chevron button for toolbar?
Friends,

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):

type
  TSMRebarBandInfo = packed record
    cbSize: UINT;
    fMask: UINT;
    fStyle: UINT;
    clrFore: TColorRef;
    clrBack: TColorRef;
    lpText: PAnsiChar;
    cch: UINT;
    iImage: Integer;
    hwndChild: HWnd;
    cxMinChild: UINT;
    cyMinChild: UINT;
    cx: UINT;
    hbmBack: HBitmap;
    wID: UINT;
    cyChild: UINT;
    cyMaxChild: UINT;
    cyIntegral: UINT;
    cxIdeal: UINT;
    lParam: LPARAM;
    cxHeader: UINT;
  end;

procedure TForm1.FormCreate(Sender: TObject);
const
  RBBS_NOGRIPPER  = $00000100;  // never show the gripper
  RBBS_USECHEVRON = $00000200;
  RBBIM_IDEALSIZE = $00000200;
var
  i: Integer;
  rbi: TSMRebarBandInfo;
  R: Trect;
begin
  inherited;

  {if somebuttons in toolbar are invisible, add chevron}
  rbi.cbSize := SizeOf(rbi);
  rbi.fMask := RBBIM_STYLE or RBBIM_IDEALSIZE;

  for i := 1 to yourCoolBar.Bands.Count do
  begin
    if not Assigned(yourCoolBar.Bands[i-1].Control) or
       not (yourCoolBar.Bands[i-1].Control is TToolbar) then continue;

    SendMessage(yourCoolBar.Handle, RB_GETBANDINFO, i-1, LongInt(@rbi));
    rbi.fStyle := rbi.fStyle or RBBS_USECHEVRON;
    rbi.fStyle := rbi.fStyle and not RBBS_NOGRIPPER;
    with TToolbar(yourCoolBar.Bands[i-1].Control) do
      if ButtonCount <> 0 then
        with Buttons[ButtonCount-1] do
          rbi.cxIdeal := Left + Width + 5;
    SendMessage(yourCoolBar.Handle, RB_SETBANDINFO, i-1, LongInt(@rbi));
  end;
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.

Python网络爬虫与推荐算法新闻推荐平台:网络爬虫:通过Python实现新浪新闻的爬取,可爬取新闻页面上的标题、文本、图片、视频链接(保留排版) 推荐算法:权重衰减+标签推荐+区域推荐+热点推荐.zip项目工程资源经过严格测试可直接运行成功且功能正常的情况才上传,可轻松复刻,拿到资料包后可轻松复现出一样的项目,本人系统开发经验充足(全领域),有任何使用问题欢迎随时与我联系,我会及时为您解惑,提供帮助。 【资源内容】:包含完整源码+工程文件+说明(如有)等。答辩评审平均分达到96分,放心下载使用!可轻松复现,设计报告也可借鉴此项目,该资源内项目代码都经过测试运行成功,功能ok的情况下才上传的。 【提供帮助】:有任何使用问题欢迎随时与我联系,我会及时解答解惑,提供帮助 【附带帮助】:若还需要相关开发工具、学习资料等,我会提供帮助,提供资料,鼓励学习进步 【项目价值】:可用在相关项目设计中,皆可应用在项目、毕业设计、课程设计、期末/期中/大作业、工程实训、大创等学科竞赛比赛、初期项目立项、学习/练手等方面,可借鉴此优质项目实现复刻,设计报告也可借鉴此项目,也可基于此项目来扩展开发出更多功能 下载后请首先打开README文件(如有),项目工程可直接复现复刻,如果基础还行,也可在此程序基础上进行修改,以实现其它功能。供开源学习/技术交流/学习参考,勿用于商业用途。质量优质,放心下载使用。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值