void __fastcall TForm1::FormMouseDown(TObject *Sender,TMouseButton Button,TShiftState Shift,int X,int Y)

enum Classes_1{ssShift,ssAlt,ssCtrl,ssRight,ssMiddle,ssDouble};

typedef SetTShiftSTate;

ShiftKey->Checked=Shift.Contains(ssShift);

ControlKey->Checked=Shift.Contains(ssCtrl);

LeftButton->Checked=Shift.Contains(ssLeft);

RightButton->Checked=Shift.Contains(ssRight);

TShiftState LeftShift;

LeftShift<

///////////////////////////////////////

// File: Main.cpp

// Project: SetExp

// Creator: Copyright 1998 by Charlie Calvert

//

#include

#pragma hdrstop

#include "Main.h"

#pragma resource "*.dfm"

TForm1 *Form1;

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

void TForm1::CheckState(TShiftState Shift)

{

ShiftKey->Checked = Shift.Contains(ssShift);

ControlKey->Checked = Shift.Contains(ssCtrl);

LeftButton->Checked = Shift.Contains(ssLeft);

RightButton->Checked = Shift.Contains(ssRight);

}

void __fastcall TForm1::UnionClick(TObject *Sender)

{

AnsiString Operators[3] = {"+", "*", "-"};

TShiftState FinalSet;

TShiftState LeftShift;

TShiftState LeftCtrl;

LeftShift << ssLeft << ssShift;

LeftCtrl << ssLeft << ssCtrl;

switch (TOptType(dynamic_cast (Sender)->Tag))

{

case otUnion:

FinalSet = LeftShift + LeftCtrl;

break;

case otIntersection:

FinalSet = LeftShift * LeftCtrl;

break;

case otDifference:

FinalSet = LeftShift - LeftCtrl;

break;

}

CheckState(FinalSet);

Label2->Caption = Operators[dynamic_cast(Sender)->Tag];

}

void __fastcall TForm1::Label4MouseDown(TObject *Sender, TMouseButton Button,

TShiftState Shift, int X, int Y)

{

CheckState(Shift);

}