Internet Explorer Pager Control

Environment: VC6

Hi, I was 14 years old when I wrote this control (almost when it came up to IE5.5) when I saw it for first time I said to myself: "I will make my own" because:

  1. I like it
  2. I haven't been able to find it.
That is the story of the control.

How to Use:

1. Projects->Add to Project->Files->SpawnFrameWnd.h/.cpp;IEPagerCtrl.h/.cpp;MenuSpawn.h/.cpp

2. MainFrm.h changes:

#include "IEPagerCtrl.h"
#include "SpawnFrameWnd.h"
----------------------------------------------------
//General message map functions
protected:
//AFX_MSG(CMainFrame)
//add this:
  afx_msg void OnArrow();
-----------------------------------------------------
  • Replace "CFrameWnd" with "CSpawnFrameWnd"
  • Replace "CToolBar m_wndToolBar" with "CIEPagerCtrl m_wndToolBar"

3. View->Resource Symbols->New->Name: ID_ARROW -> OK

4. MainFrm.cpp changes:

BEGIN _MESSAGE_MAP(........)
  ON_COMMAND(ID_ARROW, OnArrow)
  .
  .
  .
  .
  .

5. Replace "CFrameWnd" with "CSpawnFrameWnd"(everywhere, try with replace action from the edit menu and replace all)

6. Add message handler to WM_SIZE, and add this code to the message.
Replace the OnSize with that:

void CMainFrame::OnSize(UINT nType, int cx, int cy) 
{
  if ( nType == SIZE_MINIMIZED )
  {
     cx1 = cx;cy1 = cy;
  }
  else
  if ( nType == SIZE_RESTORED && cx1 != 0 && cy1 != 0)
  {
     m_wndToolBar.SetSize(cx1);
  }

  m_wndToolBar.SetSize(cx);
  Invalidate();
  CSpawnFrameWnd::OnSize(nType, cx, cy);
}

and then add that before it: "int cx1 = 0,cy1 = 0;" as global variables.

7. Add this source code to the MainFrm.cpp

void CMainFrame::OnArrow() 
{
  HMENU lMenu;
  CPoint pPoint;
  lMenu = ::CreatePopupMenu();
  if ( lMenu != NULL )
  {
    BUTTONSINFO butInfo[100];
    int nButtons = 
          m_wndToolBar.GetHiddenButtonsInfo ( butInfo );
    for ( int i = 0; i < nButtons; i++ )
    {
      if ( butInfo[i].nStyle == TBSTYLE_SEP &&
        i == 0 ) {}
      else
        ::AppendMenu(lMenu, MF_ENABLED | MF_STRING ,
                     butInfo[i].nID,
                     butInfo[i].strToolTip );
    }
    CMenu *pMenu;
    pMenu = pMenu->FromHandle ( lMenu );
    CRect rect;	
    m_wndToolBar.GetToolBarCtrl().GetRect(ID_ARROW , &rect);
    m_wndToolBar.ClientToScreen(&rect);
    m_wndToolBar.GetToolBarCtrl().PressButton( ID_ARROW );
    pMenu->TrackPopupMenu ( TPM_LEFTBUTTON,
                            rect.left,
                            rect.bottom,
                            this,
                            NULL );
    m_wndToolBar.GetToolBarCtrl().PressButton( ID_ARROW,
                                               FALSE );
  }
  else
    TRACE0("ERROR: lMenu = NULL");
}

8. Add this source code to the CMainFrame construction:

cSpawn.LoadToolBarResource( IDR_MAINFRAME );

9. Add the bitmaps IDB_ARROW and IDB_MENUCHK

That's it!!!

Special thanks for the Spawn class - it gives me the ability of settings bitmaps for the Menus!!! I hope you like what I did!

Downloads

Download Demo Project - 59.9 Kb
Download Source Code - 10.5 Kb


Comments

  • it is very good

    Posted by lupy on 05/16/2006 09:16pm

    good code,thank you

    Reply
  • Why not use a Rebar, that has the chevron (>>) functionality

    Posted by Legacy on 01/21/2002 12:00am

    Originally posted by: John Smith

    So my question is

    Why not use a Rebar, that has the chevron (>>) functionality ?

    Why re-invent the wheel ?

    By the way (the arrows >>) are called chevrons !!!!

    Reply
  • What is this!

    Posted by Legacy on 01/18/2002 12:00am

    Originally posted by: h.s jang

    I can't understand this program..

    Reply
  • Good Job!

    Posted by Legacy on 01/17/2002 12:00am

    Originally posted by: Brian


    Thanks.

    Bri

    Reply
  • Another project made of myself .... WindowsManager

    Posted by Legacy on 01/17/2002 12:00am

    Originally posted by: Svetosav Chakaroff

    Hi, i got a Windows Manager, which i made, tell me if there is some interest to post it here in code guru...

    Reply
  • Not a pager

    Posted by Legacy on 01/17/2002 12:00am

    Originally posted by: Le Ridder Noir

    This is not a pager control, it's just a chevron a pager is something else see:

    http://www.codeproject.com/miscctrl/controls_pager.asp

    Reply
  • Was also wondering what was "new" and how it related to IE.

    Posted by Legacy on 01/16/2002 12:00am

    Originally posted by: Steve

    You may want to explain what an "Internet Explorer Pager Control" is and how your program provides the same functionality.

    The graphic of your program does not look much different than many other programs. I could not find anything "new" just by looking at it. You may want to point out the >> in the upper right corner of the toolbar works the same as IE. Many programs use the >> in their toolbars, not just IE.

    Reply
  • um, wtf does this do?

    Posted by Legacy on 01/16/2002 12:00am

    Originally posted by: uhh

    it doesn't do anything.........


    downloaded the demo project, it's just an empty MFC shell..

    Reply
Leave a Comment
  • Your email address will not be published. All fields are required.

Top White Papers and Webcasts

  • Download the Information Governance Survey Benchmark Report to gain insights that can help you further establish business value in your Records and Information Management (RIM) program and across your entire organization. Discover how your peers in the industry are dealing with this evolving information lifecycle management environment and uncover key insights such as: 87% of organizations surveyed have a RIM program in place 8% measure compliance 64% cannot get employees to "let go" of information for …

  • The latest release of SugarCRM's flagship product gives users new tools to build extraordinary customer relationships. Read an in-depth analysis of SugarCRM's enhanced ability to help companies execute their customer-facing initiatives from Ovum, a leading technology research firm.

Most Popular Programming Stories

More for Developers

Latest Developer Headlines

RSS Feeds