[Gambas-user] Issue 575 in gambas: Clipboard change

[gambas at ...2524...]

Status: New
Owner: ----
Labels: Version Type-Bug Priority-Medium OpSys-Any Dist-Any Arch-Any  
Desktop-Any GUI-Any

New issue 575 by flynetin... at ...626...: Clipboard change
https://code.google.com/p/gambas/issues/detail?id=575

1) clipboard returns a different object to that returned in previous  
versions

2) [System]
Gambas=3.6.90
OperatingSystem=Linux
Kernel=3.13.0-38-generic
Architecture=x86
Distribution=Ubuntu 14.04.1 LTS
Desktop=GNOME
Theme=QGtk
Language=es_AR.UTF-8
Memory=3781M
[Libraries]
Cairo=libcairo.so.2.11301.0
Curl=libcurl.so.4.3.0
DBus=libdbus-1.so.3.7.6
GStreamer=libgstreamer-0.10.so.0.30.0
GStreamer=libgstreamer-1.0.so.0.204.0
GTK+3=libgtk-3.so.0.1000.8
GTK+=libgtk-x11-2.0.so.0.2400.23
OpenGL=libGL.so.1.2.0
Poppler=libpoppler.so.13.0.0
Poppler=libpoppler.so.19.0.0
Poppler=libpoppler.so.44.0.0
Poppler=libpoppler.so.5.0.0
Qt4=libQtCore.so.4.8.6
SDL=libSDL-1.2.so.0.11.4

3)
Public Sub leerdelpp(rejilla As TableView, Optional titulos As Boolean =  
False)
   'rejilla: es el tableview donde se van a escribir los datos
   'titulos: 0: sin titulo, -1 titulo contiene la 1o fila

   Dim lineas As String[]
   Dim linea_procesada As String
   Dim columnas As String[]
   Dim a As Integer
   Dim c As Integer
   Dim portapapeles As String
   Dim finlinea As String
   Dim fincolumna As String

   rejilla.Clear()
   rejilla.Rows.Count = 0
   finlinea = "\n" 'retorno de carro (separa las filas)
   fincolumna = "\t" 'tabulador (separa las colunas)
   portapapeles = Clipboard.Paste()
   lineas = Split(portapapeles, finlinea)
   rejilla.Rows.Count = lineas.Max
   For a = 0 To lineas.Max - 1
     linea_procesada = lineas[a]
     columnas = Split(linea_procesada, fincolumna)
     For c = 0 To columnas.Max
       If a = 0 And titulos Then
         rejilla.Columns[c].Title = columnas[c]
       Else
         If titulos Then
           rejilla[a - 1, c].Text = columnas[c]
         Else
           rejilla[a, c].Text = columnas[c]
         Endif
       Endif
     Next 'c
   Next 'a

End

4)

5) The above function work properly on a tableview pasting clipboard  
contents obtained from a table in a spreadsheet in previous versions. Since  
the new version returns error. Required string obtained object in  
Clipboard.Paste()


-- 
You received this message because this project is configured to send all  
issue notifications to this address.
You may adjust your notification preferences at:
https://code.google.com/hosting/settings