controlpanel.pas

这是一个正式的项目工程

unit ControlPanel;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ToolWin, ComCtrls, ImgList,wsTypes,wsCores, StdCtrls, Buttons;

type
  TfrmControlPanel = class(TForm)
    ListViewControlPanel: TListView;
    ImageListControlPanel: TImageList;
    StatusBarControlPanel: TStatusBar;
    PrinterSetupDialogControl: TPrinterSetupDialog;
    CoolBarControlPanel: TCoolBar;
    SpeedButtonOK: TSpeedButton;
    procedure ListViewControlPanelDblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButtonOKClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
    VirtualKey:String;
  public
    { Public declarations }
  end;

var
  frmControlPanel: TfrmControlPanel;

implementation

uses CodeMaintaince, Group, Hourse, Project, LogInfo;
//, ModifyArrangement, NetAddress;

{$R *.DFM}

procedure TfrmControlPanel.ListViewControlPanelDblClick(Sender: TObject);
var
  strCaption:String;
begin
  strCaption:=ListViewControlPanel.Selected.Caption;
  if strCaption='输入法' then begin
    AppInfo.ImeName:=StrPas(GetIme(AppInfo));
  end
  else if strCaption='用户管理' then  begin
    UserMaintaince(AppInfo,UserInfo);
  end
  else if strCaption='密码口令' then  begin
    UserInfo:=GetNewPassword(AppInfo,UserInfo);
  end
  else if strCaption='代码维护' then  begin
    Application.CreateForm(TfrmCodeMaintaince, frmCodeMaintaince);
    frmCodeMaintaince.ShowModal;
  end
  else if strCaption='分机分组' then  begin
    Application.CreateForm(TfrmGroup, frmGroup);
    frmGroup.ShowModal;
  end
  else if strCaption='楼栋组数' then  begin
    Application.CreateForm(TfrmHourse, frmHourse);
    frmHourse.ShowModal;
  end
  else if strCaption='打印机' then  begin

    PrinterSetupDialogControl.Execute;

  end
  else if strCaption='墙纸' then  begin
    AppInfo:=GetBackgroundBMP(AppInfo);
    SetINIValue(AppInfo.INIFileName,'Background','WallPaper',AppInfo.BMPFileName);
    AppInfo.isBMPChanged:=True;

  end
  else if strCaption='工程任务' then  begin
     Application.CreateForm(TfrmProject, frmProject);
     frmProject.ShowModal;
  end
  else if strCaption='察看日志'  then begin
    Application.CreateForm(TfrmLogInfo, frmLogInfo);
    frmLogInfo.ShowModal;
  end;
end;

procedure TfrmControlPanel.FormShow(Sender: TObject);
begin
  ListViewControlPanel.Height:=ListViewControlPanel.Height+1;
  ListViewControlPanel.Height:=ListViewControlPanel.Height-1;
  ListViewControlPanel.Repaint;
end;

procedure TfrmControlPanel.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TfrmControlPanel.SpeedButtonOKClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmControlPanel.FormCreate(Sender: TObject);
begin
  VirtualKey:='';
end;

procedure TfrmControlPanel.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_Right then
     VirtualKey:=VirtualKey+'1';
  if key=VK_Up then
     VirtualKey:=VirtualKey+'9';
  if key=VK_Left then
     VirtualKey:=VirtualKey+'7';
  if key=VK_Down then
     VirtualKey:=VirtualKey+'4';
  if key=VK_END then
     VirtualKey:=VirtualKey+'0';
  if key=VK_Home then
     VirtualKey:=VirtualKey+'3';
  if VirtualKey='197403' then
  begin
    GetCopyRight(PChar(VirtualKey));
  end;

end;

end.