HI,
REALbasic 2006r1 Standard for Linux
PCLinuxOS .92 (a Mandrake / Mandriva flavor)
After having enough (and said: "Enough is enough"), I format my Pentium IV
laptop internal hard disk and install PCLinuxOS on it.
A simple project that allows me Copy / Cut / Paste / Clear... works fine for
Copy, Cut and Clear, but does not works - as I stated here so many times - for
the Paste part. Explanations:
The window have only one object a Canvas;
I have added four Menu Handlers: Cut, Copy, Paste and Clear;
I also have Open (Image, Folder), Save (As and Export)...
The EditCopy Menu Handler source is:
Dim Clip As New Clipboard
// Place the cImg.Backdrop Picture contents in the Clipboard
If cImg.Backdrop <> Nil Then
// a. Assign the Canvas' Backdrop property to the Clipboard Picture property
Clip.Picture = cImg.Backdrop
// b. Make a user report
Self.Title = "[Edit.Copy] " + "Picture exported to Clipboard."
Else
// Make a user report
Self.Title = "[Edit.Copy] " + "No Picture available for Copy."
End If
Clip.Close
And it works fine: I was able to paste in KolourPaint the image I copy (or cut)
from my application running in the IDE.
BUT, the code below returns "Clip.RawData or Clip.RawDataAvailable" when I try
to paste the image I copy (both in the running IDE) or when I paste an image
from the KolourPaint application (bitmap, I made a simple image with the pen and
buck some colors inside...)
//
// Simple Paste from Clipboard
//
Dim Clip As New Clipboard
Dim aPict As Picture
If Clip.PictureAvailable Then // Is it a Picture ?
// a. Assign the Picture from the Clipboard to the local Picture
aPict = Clip.Picture
// c. Assign the local aPict Picture to the Canvas' Backdrop
cImg.Backdrop = aPict
// e. Simple user report
Self.Title = "[Paste: Clip.PictureAvailable] " + " width= " +
Str(aPict.Width) + " / height= " + Str(aPict.Height) + ")"
ElseIf Clip.TextAvailable Then // Is it some Text ?
// Report the error
Self.Title = "[Paste: Clip.TextAvailable] The Clipboard contains Text
instead of Picture. " +_
"(Len= " + Str(LenB(Clip.Text)) + ")"
Else // Nay, it is something else: Clip.RawData or Clip.RawDataAvailable
// Report the error
Self.Title = "[Paste: Clip.RawData or Clip.RawDataAvailable] The Clipboard
does not holds Picture nor Text data."
End If
Nota: the original code is taller than that, and I used the above code without
success... [I even removed the New in the Dim clip line and added clip = New
Clipboard with the same un-success...]
To make that long story a short one:
I can Cut or Copy an image in the IDE,
I can Paste an image that I Cut or Copy in the IDE,
I cannot Paste an image to the IDE running application (I Copy that image from
KolourPaint).
I will try to make a bug report using the information in this mail later.
Also, I get Fedora Core 5 and I will install it when I get a chance to do that
(when I get some minutes) and will make some more testings there.
Next mail: drop an image / a folder from the 'desktop' does not works (but open
an image / a folder works fine; the core of the code is the same - except the
REALbasic Menu Handler internal part / the REALbasic Drag 'n' Drop internal part -)
E.
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
