ksmenu.h

来自「一个以前收集的基于C/S架构的ERP客户端源代码」· C头文件 代码 · 共 169 行

//---------------------------------------------------------------------------
#ifndef KSMenuH
#define KSMenuH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Buttons.hpp>
#include <ComCtrls.hpp>
#include <Menus.hpp>
#include <Graphics.hpp>
#include "ImagePanel.hpp"
#include "container.h"
//---------------------------------------------------------------------------
class TKSSubMenu
{
private:
  TKSSet *l_DataSet;
  TPanel *l_AOwner;

public:

  __fastcall TKSSubMenu(TPanel *AOwner);
  __fastcall ~TKSSubMenu();

  void __fastcall AddMenu(AnsiString modulecode,AnsiString uppercode,
      AnsiString modulecaption,AnsiString formid,int level,int moduletype);
  void __fastcall ShowPageMenu();
  void __fastcall HidePageMenu();
  __property int PicCount  = { read=GetPicCount };

private:
  void __fastcall ShowForm(AnsiString formid);
  void __fastcall ImagePanelClick(TObject *Sender);
  void __fastcall MenuItemClick(TObject *Sender, int Index);
  int __fastcall GetPicCount();

};
class TKSNavPic
{
private:
  TKSSet *l_DataSet;
  TPanel *l_AOwner;

public:
  __fastcall TKSNavPic(TPanel *AOwner);
  __fastcall ~TKSNavPic();

  void __fastcall AddPic(AnsiString Navpicmodule,AnsiString Navpiccode,
      AnsiString NavpicForm,int top,int left,int height,int width);
  void __fastcall ShowPagePic();
  void __fastcall HidePagePic();

private:
  void __fastcall ShowForm(AnsiString formid);
  void __fastcall ImagePanelClick(TObject *Sender);
};

class TKSSubMenuItems
{
private:
  TKSSet *l_DataSet;
  TImagePanel *FOwnerPanel;
public:
  __fastcall TKSSubMenuItems();
  __fastcall ~TKSSubMenuItems();
  void __fastcall AddMenuItems(AnsiString modulecode,AnsiString uppercode,
      AnsiString modulecaption,AnsiString formid);
  void __fastcall ShowMenuItems();
  void __fastcall HideMenuItems();
  __property TImagePanel *OwnerPanel  = { read=FOwnerPanel, write=FOwnerPanel };
  
};
//---------------------------------------------------------------------------
class TKSNavArrow
{
private:
  TKSSet *l_DataSet;
  TImage *l_AOwner;

public:
  __fastcall TKSNavArrow(TImage *AOwner);
  __fastcall ~TKSNavArrow();

  void __fastcall AddArrow(AnsiString NavArrowModule,AnsiString NavArrowCode,int NavArrowStyle,  int NavArrowDir, int NavArrow3D,  int NavArrowX1, int NavArrowY1, int NavArrowX2,  int NavArrowY2,AnsiString NavArrowColor);
  void __fastcall ShowPageArrow();
  void __fastcall HidePageArrow();
};

//---------------------------------------------------------------------------
class TKSMenu
{
private:
  TKSSet *l_DataSet;
  TForm *l_AOwner;
//    更换原有ep构件为标准构件    [fengji] --2002.12.30--
  TPanel *l_Panel;
 // TSplitter *l_SplitterLeft;
  TPanel *l_ButtonPanel;
  TPanel *l_ClientPanel;
  TPageScroller *l_SubScroller;
  TPanel *l_SubPanel;

  TPanel *l_NavPanel;
  TImage *l_BakImage;
  TImage *l_NavImage;
  TSpeedButton *l_MoveUp;
  TSpeedButton *l_MoveDown;

  TSpeedButton *l_History;
  TSpeedButton *l_System;
  TSpeedButton *l_InformationCenter;
  TSpeedButton *l_QueryCenter;
//  TImage *l_ImagePa;
//
  TKSSet *ClientForms;
  int l_FirstIndex;
  int l_CurIndex;
  int l_PreIndex;
  int l_LastIndex;
public:
  __fastcall TKSMenu(TForm *AOwner);
  __fastcall ~TKSMenu();
// self-customize menu
  TPopupMenu *l_FormsMenu;
  TPopupMenu *l_SystemMenu;
  TPopupMenu *l_InfoCentMenu;


  void __fastcall AddMenu(AnsiString modulecode,AnsiString uppercode,
      AnsiString modulecaption,AnsiString formid,int level,int moduletype,int height);
  void __fastcall AddNavpic(AnsiString module,AnsiString code,AnsiString formid,
      int top,int left,int height,int width);
  void __fastcall AddNavArrow(AnsiString module,AnsiString code,int style,int dir,
      int a3d,int x1,int y1,int x2,int y2,AnsiString color);
  void __fastcall ShowPageMenu();
  void __fastcall ShowNextPageMenu();
  void __fastcall ShowPriorPageMenu();
  void __fastcall ShowSubMenu();
// 界面菜单
  void __fastcall ManageFormsMenu(TKSSet *ClientForms);
  void __fastcall ManageInforCentMenu(TKSSet *ClientForms);

  void __fastcall DownUpButtonState();

private:
  void __fastcall PanelResize(TObject *Sender);
  void __fastcall ImageClick(TObject *Sender);
  void __fastcall MoveUpClick(TObject *Sender);
  void __fastcall MoveDownClick(TObject *Sender);
  void __fastcall HistoryClick(TObject *Sender);
  void __fastcall SystemMenuClick(TObject *Sender);
  void __fastcall FormsMenuClick(TObject *Sender);

  void __fastcall FormsMenuDrawItem(TObject *Sender, TCanvas *ACanvas,
      const TRect &ARect, bool Selected);
  void __fastcall FormsMenuMeasureItem(TObject *Sender,
      TCanvas *ACanvas, int &Width, int &Height);


  void __fastcall InforCentGoodsMenuClick(TObject *Sender);
  void __fastcall InforCentClientMenuClick(TObject *Sender);
  void __fastcall InforCentSupplyerMenuClick(TObject *Sender);
  void __fastcall InforCentClick(TObject *Sender);


};
#endif