On 15/gen/08, at 21:43, Enrico a Libero wrote:
Scusate ma pensavo di non averlo fatto...così va bene?
Sempre un saluto a tutti
Vorrei poter inserire a piacere una immagine in una windows
trascinandola da
una cartella (es la cartella immagini)
ho inserito in una window un oggetto IMAGEWELL e seguendo da
manuale ho
immesso i seguenti controlli :
Nella OPEN :
Me.AcceptPictureDrop
Me.AcceptFileDrop("image/x-jpg")
Nel DropObject
If Obj.PictureAvailable then
Me.Image=Obj.Picture
elseif Obj.FolderItemAvailable then
Me.Image=Obj. FolderItem.OpenAsPicture
End if
Nel MouseDown
Dim d as DragItem
d= NewDragItem( Me.left, Me.top, Me.width, Me.height)
d.picture= Me.Image
d.Drag //Allow the drag
Ma non riesco a vedere l'iimagine trascinata.
Sempre un grazie a tutti
Enrico
Il controllo ImageWell ha qualche limitazione nel tipo di immagini
che può mostrare. In particolare, se non è presente QuickTime può
mostrare solo file PICT su Mac, mentre su Windows solo BMP e PNG.
Ma versioni vecchie di RB, se ricordo bene, erano limitate anche con
QuickTime installato.
Comunque nell'aiuto in linea di RB è scritto tutto (come sempre).
Massimo Valle
|