[Gambas-user] Cliboard-Problem

[Les Hardy]

Norarg wrote:
> Hi,
> 
> I have a problem with the clipboard,
> using ubuntu 9.10, gambas 2.13
> 
> following code works ONE time:
> 
> PUBLIC SUB CLIP_B_Click()
>   DIM S AS String
>   DIM I AS Integer
>   DIM TR AS Result
>   TR = M.ReadRecord(OPVDM!tabelle, OPVDM!TBID, OPVDM!TBIDWert)
>   IF TR.Count = 0 THEN
>     Message.Info("Daten nicht gefunden", "Ok")
>     RETURN
>   ENDIF
>   Clipboard.Clear
>   S = "Datenausgabe " & OPVDM!betreff & CRLF
>   S = S & String(75, "_") & CRLF
>   S = S & Left("Feld" & String(25, " "), 25) & Left("Wert" & String(40, 
> " "), 40) & "Datentyp" & CRLF
>   S = S & String(75, "_") & CRLF
>   OPVDF.MoveFirst
>   TR.MoveFirst
>   FOR I = 1 TO OPVDF.Count
>     S = S & Left(OPVDF!feldbezeichnung & String(25, " "), 25)
>     S = S & Left(TR[OPVDF!feldname] & String(50, " "), 40)
>     S = S & OPVDF!feldtyp & CRLF
>     OPVDF.MoveNext
>   NEXT 
>   S = S & String(75, "_") & CRLF
>   Clipboard.Copy(S)
> END
> 
> I am sure there is no data-problem, the print of S is ok.
> The second time I call this procedure, I get a message in the direct-window:
> 
> *QClipboard: cannot transfer data, no data available
> *
> I hope someone can help me with this. Oh, I also tried the following, to 
> get sure nothing is wrong with the string (removed all data):
> 
> PUBLIC SUB CLIP_B_Click()
>   DIM S AS String
>   Clipboard.Clear
>   S = "Datenausgabe " & CRLF
>   S = S & String(75, "_") & CRLF
>   S = S & Left("Feld" & String(25, " "), 25) & Left("Wert" & String(40, 
> " "), 40) & "Datentyp" & CRLF
>   S = S & String(75, "_") & CRLF
>   S = S & String(75, "_") & CRLF
>   Clipboard.Copy(S)
> END
> 
> CRLF ist just CHR(10)
> 
> Same error.
> 
> Thanks in advance
> 

Just put a WAIT after Clipboard.Clear and it will be ok.

Clipboard.Clear
WAIT


Regards
Les Hardy