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