Hi Peter
Please run the following code:
procedure TfrmMain.Button2Click(Sender: TObject);
begin
ImageEnView1.MouseInteractGeneral := [miSelect];
ImageEnView1.MouseInteractLayers := [mlEditLayerPoints];
if ( ImageEnView1.MouseInteractLayers <> [mlEditLayerPoints]) or
( ImageEnView1.MouseInteractGeneral <> [miSelect]) then
raise Exception.create( 'Not Beta 10305' );
end;
Do you get an exception?
Note: You won't be able to set the interactions at *Design* time unless you recompile your packages.
Nigel
Xequte Software
www.imageen.com