[Gambas-user] Cliboard-Problem - Solved

[Norarg]

Les Hardy schrieb:
> 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
>
>
> ------------------------------------------------------------------------------
> Return on Information:
> Google Enterprise Search pays you back
> Get the facts.
> http://p.sf.net/sfu/google-dev2dev
> _______________________________________________
> Gambas-user mailing list
> Gambas-user at lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/gambas-user
>
>
>   
Thanks a lot, perfect
Regards
Norarg