no se si esto es un bug o es un comportamiento normal en la nueva version HMG 3.0.32, pero por las dudas te lo comento,
en el GRID la propiedad COLUMNWHEN aparentemente no soporta NIL como parametro, dale una mirada al ejemplo.
Con HMG 3.0.29 este ejemplo se ejecuta perfecto, pero con 3.0.31 y 3.0.32 da error al ingresar los datos al GRID.
Por otro lado, cunado clicas en la barra del SCROOLBAR vertical de un GRID desaparecen las lineas horizontales que
separan las filas del GRID con HMG 3.0.32 pero en 3.0.29 funciona perfectamente (comprobalo por ejemplo con SAMPLES\GRID.06)
Saludos,
Claudio Soto
Code: Select all
#include "hmg.ch"
Function Main
PRIVATE aSudoku_txt := {{"R1","","","","","","","","",""},;
{"R2","","","","","","","","",""},;
{"R3","","","","","","","","",""},;
{"R4","","","","","","","","",""},;
{"R5","","","","","","","","",""},;
{"R6","","","","","","","","",""},;
{"R7","","","","","","","","",""},;
{"R8","","","","","","","","",""},;
{"R9","","","","","","","","",""}}
DEFINE WINDOW Form_1;
AT 0,0;
WIDTH 750;
HEIGHT 550;
MAIN
PRIVATE bValid := {|| IF (This.CellValue <> "0",.T.,(This.CellValue :=" ",.T.))}
DEFINE GRID Grid_1
ROW 100
COL 100
WIDTH 510
HEIGHT 250
HEADERS {"","C1","C2","C3","C4","C5","C6","C7","C8","C9"}
WIDTHS {50,50,50,50,50,50,50,50,50,50}
JUSTIFY {1,2,2,2,2,2,2,2,2,2}
ALLOWEDIT .T.
ITEMS aSudoku_txt
COLUMNCONTROLS {{"TEXTBOX","CHARACTER","XX"},{"TEXTBOX","CHARACTER","9"},{"TEXTBOX","CHARACTER","9"},{"TEXTBOX","CHARACTER","9"},{"TEXTBOX","CHARACTER","9"},{"TEXTBOX","CHARACTER","9"},{"TEXTBOX","CHARACTER","9"},{"TEXTBOX","CHARACTER","9"},{"TEXTBOX","CHARACTER","9"},{"TEXTBOX","CHARACTER","9"}}
* Este COLUMNWHEN funciona con la version HMG 3.0.29, pero da ERROR al ingresar datos con HMG 3.0.31 y 3.0.32
COLUMNWHEN {{||.F.},NIL,NIL,NIL,NIL,NIL,NIL,NIL,NIL,NIL}
* Este COLUMNWHEN funciona con las tres version antes mencionadas
// COLUMNWHEN {{||.F.},{||.T.},{||.T.},{||.T.},{||.T.},{||.T.},{||.T.},{||.T.},{||.T.},{||.T.}}
COLUMNVALID {NIL, bValid, bValid, bValid, bValid, bValid, bValid, bValid, bValid, bValid}
FONTNAME "Arial"
FONTSIZE 15
CELLNAVIGATION .t.
END GRID
END WINDOW
Form_1.CENTER
Form_1.ACTIVATE
Return