[GUFA] GRILLA CON FOTOS

Sat, 26 Apr 2014 05:46:29 -0700 

Tenés que poner un objeto container en la columna, en vez de un objeto image, 
con backstyle en 0 – transparent y en mi caso lo llame cntFoto. En mi grilla es 
la columna 2.

Después creás un par de métodos, uno llamado MostrarFoto y el otra Fake.

 

Método MostrarFoto

With ThisForm.grdSocios.column2

                With .cntFoto

                               .Addobject('OleFoto','Image')

                               .OleFoto.BorderColor = Rgb(255,255,255)

                               .OleFoto.BorderStyle = 1

                               .OleFoto.ColorSource = 0

                               .OleFoto.Height = 95

                               .OleFoto.Stretch = 2

                               .OleFoto.Visible = .T.

                EndWith

                .DynamicBackColor = 'ThisForm.Fake()'

Endwith

 

Método Fake

With ThisForm.grdSocios

                .Columns(2).cntFoto.OleFoto.Picture = Alltrim(caFoto.cPath) && 
caFoto.cPath dice la ruta donde se encuentra la foto en el disco

                Return .Backcolor

EndWith

 

Espero que te sirva

Abrazo

 

De: [email protected] [mailto:[email protected]] En nombre de Omar Bellio
Enviado el: viernes, 25 de abril de 2014 05:43 p.m.
Para: GUFA List Member
Asunto: [GUFA] GRILLA CON FOTOS

 

No estoy seguro, pero si a la columna 3 le sacaste el textbox y le agregaste un 
objeto image, me parece que el problema lo tenés cuando querés poner un 
dynamiccurrentcontrol que por un lado no hace falta y por el otro está mal 
porque parece tener la ubicación de la foto.

 

Entendí bien?

 

De: [email protected] [mailto:[email protected]] En nombre de Walter Comito
Enviado el: viernes, 25 de abril de 2014 02:59 p.m.
Para: GUFA List Member
Asunto: [GUFA] GRILLA CON FOTOS

 

Amigos como están.

Tengo un problema que no puedo ver unas fotos en una grilla.

Les dejo el código que uso para ver si me pueden dar una mano.

 

Las fotos estan en una carpeta que se llama foto_articulos.

 

 

WITH thisform.pgf.page2.GRDarticulos

      

      .ColumnCount = 10

      .FontName= "tahoma"

      .FontSize = 11

 

      .column1.header1.Caption="Locker"

      .column2.header1.Caption="Gaveta"

      .column3.header1.Caption="Foto"

      .column4.header1.Caption="OK"

      .column5.header1.Caption="Cantidad"

      .column6.header1.Caption="Rubro"

      .column7.header1.Caption="Material"

      .column8.header1.Caption="Descripcion"

      .column9.header1.Caption="Codigo"

      .column10.header1.Caption="Talle"

 

 

      .column1.width=50

      .column2.width=50

      .column3.width=60

      .column4.width=40

      .column5.width=60

      .column6.width=160

      .column7.width=160

      .column8.width=650

      .column9.width=50

      .column10.width=50

      

      .column1.FontBold = .t.

      .column2.FontBold = .t.

      .column4.FontBold = .t.

 

      .column1.FontSize=12

      .column2.FontSize=12

      .column5.FontSize=18

 

      .column5.InputMask = "99999"

 

      .column1.Alignment = 2

      .column2.Alignment = 2

      .column4.Alignment = 2

      .column5.Alignment = 2

      .column9.Alignment = 2

      .column10.Alignment = 2

 

      .column3.Sparse = .f.

      .column3.RemoveObject("Text1")

      .column3.AddObject("Img1","image")

      .column3.ControlSource = ""

      .column3.Img1.Picture  = "&foto1"

      .column3.DynamicCurrentControl= "&foto1"

      

      .RowHeight = 50

 

      .ReadOnly = .t.

      .column4.ReadOnly = .f.

      .column5.ReadOnly = .f.

ENDWITH

 

 

GRACIAS

 

 

 

Walter Cómito

 Analista de Sistemas

 MP 0397 C.P.C.I.P.C.

 

›  [email protected]

         [email protected]

 

'   +54 351 494.4667

           153.292.707

 

þ www.softram.com.ar <http://www.softram.com.ar/>

Responder a