Class TForm1 (unit _tst)

Inherits from

TForm

Constructors



Functions

procedure CheckBox1Click(Sender: TObject);


procedure CheckBox2Click(Sender: TObject);


procedure CheckBox3Click(Sender: TObject);


procedure CheckBox4Click(Sender: TObject);


procedure CheckBox5Click(Sender: TObject);


procedure CheckBox6Click(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure ListView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);


procedure OnDragFinished(DropEffect : TMyDropEffect);


procedure OnDrop(DropString : string; Point : TPoint);


procedure ProcessAllowDrag(EF : TMyAllowedDropEffects; CB : TCheckBox);


procedure ProcessAllowDrop(EF : TMyAllowedDropEffects; CB : TCheckBox);


Properties

Events

Variables

CheckBox1 : TCheckBox;


CheckBox2 : TCheckBox;


CheckBox3 : TCheckBox;


CheckBox4 : TCheckBox;


CheckBox5 : TCheckBox;


CheckBox6 : TCheckBox;


GroupBox1 : TGroupBox;


GroupBox2 : TGroupBox;


ImageList1 : TImageList;


ListView1 : TListView;


Panel1 : TPanel;


Panel2 : TPanel;


DragedItem : TListItem;


MyWrapper : TMyOLEDragDropInterface;

Private declarations


Constructors


Functions


procedure CheckBox1Click(Sender: TObject);


procedure CheckBox2Click(Sender: TObject);


procedure CheckBox3Click(Sender: TObject);


procedure CheckBox4Click(Sender: TObject);


procedure CheckBox5Click(Sender: TObject);


procedure CheckBox6Click(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure ListView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);


procedure OnDragFinished(DropEffect : TMyDropEffect);


procedure OnDrop(DropString : string; Point : TPoint);


procedure ProcessAllowDrag(EF : TMyAllowedDropEffects; CB : TCheckBox);


procedure ProcessAllowDrop(EF : TMyAllowedDropEffects; CB : TCheckBox);


Properties


Events


Variables


CheckBox1 : TCheckBox;


CheckBox2 : TCheckBox;


CheckBox3 : TCheckBox;


CheckBox4 : TCheckBox;


CheckBox5 : TCheckBox;


CheckBox6 : TCheckBox;


GroupBox1 : TGroupBox;


GroupBox2 : TGroupBox;


ImageList1 : TImageList;


ListView1 : TListView;


Panel1 : TPanel;


Panel2 : TPanel;


DragedItem : TListItem;


MyWrapper : TMyOLEDragDropInterface;

Private declarations