unitfrmout.pas

oracle基础知识讲义

unit unitFrmOut;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, ExtCtrls, fcClearPanel,
  fcButtonGroup, fcOutlookBar, fcImgBtn, ImgList, fcOutlookList, fcButton,
  fcShapeBtn, Menus, fcImager;

type
  TForm1 = class(TForm)
    outfcOutlookBar1: TfcOutlookBar;
    outfcOutlookBar1OutlookList1: TfcOutlookList;
    outfcOutlookBar1fcShapeBtn1: TfcShapeBtn;
    outfcOutlookBar1OutlookList2: TfcOutlookList;
    outfcOutlookBar1fcShapeBtn2: TfcShapeBtn;
    outfcOutlookBar1OutlookList3: TfcOutlookList;
    outfcOutlookBar1fcShapeBtn3: TfcShapeBtn;
    pmPopupMenu1: TPopupMenu;
    mmiN1: TMenuItem;
    mmiN2: TMenuItem;
    ilImageList1: TImageList;
    chkSetAutoDown: TCheckBox;
    procedure outfcOutlookBar1OutlookList1ItemClick(
      OutlookList: TfcCustomOutlookList; Item: TfcOutlookListItem);
    procedure outfcOutlookBar1fcShapeBtn1MouseMove(Sender: TObject;
      Shift: TShiftState; X, Y: Integer);
    procedure outfcOutlookBar1fcShapeBtn2MouseMove(Sender: TObject;
      Shift: TShiftState; X, Y: Integer);
    procedure outfcOutlookBar1fcShapeBtn3MouseMove(Sender: TObject;
      Shift: TShiftState; X, Y: Integer);
    procedure pmPopupMenu1Popup(Sender: TObject);
  private
    { Private declarations }
    procedure SetAutoDown(AShapebtn: TfcCustomShapeBtn);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.outfcOutlookBar1OutlookList1ItemClick(
  OutlookList: TfcCustomOutlookList; Item: TfcOutlookListItem);
begin
  ShowMessage(Item.Text);
end;

procedure TForm1.outfcOutlookBar1fcShapeBtn1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  SetAutoDown((sender as TfcCustomShapeBtn));
end;

procedure TForm1.SetAutoDown(AShapebtn: TfcCustomShapeBtn);
begin

  if not AShapebtn.Down and chkSetAutoDown.Checked then
    AShapebtn.Down := true;
end;

procedure TForm1.outfcOutlookBar1fcShapeBtn2MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  SetAutoDown((sender as TfcCustomShapeBtn));
end;

procedure TForm1.outfcOutlookBar1fcShapeBtn3MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  SetAutoDown((sender as TfcCustomShapeBtn));
end;

procedure TForm1.pmPopupMenu1Popup(Sender: TObject);
begin
  if (Sender as TPopupMenu).PopupComponent.Name = 'outfcOutlookBar1OutlookList1'
    then
  begin
    mmiN1.Enabled := true;
    mmiN2.Enabled := true;
  end
  else
  begin
    mmiN1.Enabled := false;
    mmiN2.Enabled := false;
  end;
end;
end.