imepmenu.pas

DELPHI编写的商场收银POS机源代码

{*******************************************************}
{                                                       }
{       Delphi Visual Component Library                 }
{                                                       }
{       Copyright (c) 1995,97 Borland International     }
{                                                       }
{*******************************************************}

unit ImePMenu;

{$S-,W-,R-}
{$C PRELOAD}

interface

uses Windows, SysUtils, Classes, Controls, Messages, Menus, DsgnIntf;

const
  USKBLayout = '00000409';

type
  TImePopupMenu = class(TPopupMenu)
  private
    KBClosehdle: HKL;
    function SetPopupComponentIme(const ImeMd: TImeMode; const ImeNm: string): Boolean;
    procedure PhonItemClicked(Sender: TObject);
    procedure ChaJeiItemClicked(Sender: TObject);
    procedure QuickItemClicked(Sender: TObject);
    procedure IntCodeItemClicked(Sender: TObject);
    procedure RowColItemClicked(Sender: TObject);
    procedure DaYiItemClicked(Sender: TObject);
    procedure RomanItemClicked(Sender: TObject);
    procedure HanYinItemClicked(Sender: TObject);
    procedure OffItemClicked(Sender: TObject);
  protected
    procedure CreateImeMenuItems;
    procedure RemoveImeMenuItems;
    procedure WriteState(Writer: TWriter); override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    procedure Popup(X, Y: Integer); override;
  end;

implementation

uses TypInfo, StdCtrls, ComCtrls, DBCtrls, DBGrids, DBGridsX, 
     Forms, Mask, CheckLst, DBLookup, FileCtrl, CSPCtrls;

const
  PhonName = '猔