Page 1 of 1

GRID - IMAGE

Posted: Thu Feb 14, 2019 6:23 pm
by SALINETAS24
Hola a todos.
Estoy viendo el ejemplo SAMPLES\CONTROL\GRID\GRID_19, (lo pongo más abajo), y veo que los dibujos (IMAGE) solo se muestran en la primera columna. En el Prg que estoy haciendo los necesito en la primera y en la segunda, son dos campos lógicos. ¿hay alguna forma de hacerlo con IMAGES, o se tiene que hacer a "pedal"...?

Code: Select all

/*
* HMG HeaderImages Property Test
* (c) 2008 Roberto Lopez
*/

#include "hmg.ch"

Function Main

	DEFINE WINDOW Form_1 ;
		AT 0,0 ;
		WIDTH 550 ;
		HEIGHT 400 ;
		TITLE 'Hello World!' ;
		MAIN

		DEFINE GRID Grid_1 
			ROW		10
			COL		10
			WIDTH		500 
			HEIGHT		330 
			HEADERS		{'...','Last Name','First Name','Phone'} 
			WIDTHS		{20,140,140,140}
			ITEMS		LoadItems() 
			VALUE		1
			IMAGE		{ '00.bmp' ,'01.bmp' , '02.bmp' , '03.bmp' , '04.bmp' , '05.bmp' , '06.bmp' , '07.bmp' , '08.bmp' , '09.bmp' }        // --> Estas imagenes se muestran solo en la primera columna del GRID..
					
	                JUSTIFY		{ GRID_JTFY_LEFT,GRID_JTFY_CENTER, GRID_JTFY_CENTER, GRID_JTFY_CENTER } 
		END GRID

	END WINDOW

	Form_1.Center

	Form_1.Activate

Return

Function LoadItems()
Local aRows [20] [3]

	aRows [1]	:= {0,'Simpson','Homer','555-5555'}
	aRows [2]	:= {1,'Mulder','Fox','324-6432'}
	aRows [3]	:= {2,'Smart','Max','432-5892'}
	aRows [4]	:= {3,'Grillo','Pepe','894-2332'}
	aRows [5]	:= {4,'Kirk','James','346-9873'} 
	aRows [6]	:= {5,'Barriga','Carlos','394-9654'} 
	aRows [7]	:= {6,'Flanders','Ned','435-3211'} 
	aRows [8]	:= {7,'Smith','John','123-1234'} 
	aRows [9]	:= {8,'Pedemonti','Flavio','000-0000'} 
	aRows [10]	:= {9,'Gomez','Juan','583-4832'} 
	aRows [11]	:= {0,'Fernandez','Raul','321-4332'} 
	aRows [12]	:= {1,'Borges','Javier','326-9430'}
	aRows [13]	:= {2,'Alvarez','Alberto','543-7898'}
	aRows [14]	:= {3,'Gonzalez','Ambo','437-8473'}
	aRows [15]	:= {4,'Batistuta','Gol','485-2843'}
	aRows [16]	:= {5,'Vinazzi','Amigo','394-5983'}
	aRows [17]	:= {6,'Pedemonti','Flavio','534-7984'}
	aRows [18]	:= {7,'Samarbide','Armando','854-7873'}
	aRows [19]	:= {8,'Pradon','Alejandra','???-????'}
	aRows [20]	:= {9,'Reyes','Monica','432-5836'}

Return aRows
Muchas gracias y vamos con una cervecita fresquita....

Re: GRID - IMAGE

Posted: Thu Feb 14, 2019 6:55 pm
by SALINETAS24
y con el BROWSE... ?
Estoy igual.

Re: GRID - IMAGE

Posted: Thu Feb 14, 2019 11:02 pm
by andyglezl
Prueba el Grid_26.
(Pero al ser un campo logico, solo tiene imagen "marcado" y "desmarcado"...

Re: GRID - IMAGE

Posted: Fri Feb 15, 2019 2:50 pm
by mustafa
Hola amigo SALINETAS24
Encontré en mi "extenso Almacén de Rutinas" je... je.. :lol: :roll:
Un Sample que creo puede interesar ?
ya me contaras .... je... je.. :idea:
Una abraçada amic
Mustafa

Re: GRID - IMAGE

Posted: Fri Feb 15, 2019 4:48 pm
by SALINETAS24
Hola Amic Mustafa.., no me dejas de sorprender.
Vaya presentación.., enhorabuena.
Ahora mirare lo que hay dentro.
Muchas gracias.