ViCagCan commented 4 years ago

Buenas tardes Fernando:

Te adjunto uno de los ejemplos que hay aquí, el e015.prg, al cual sólo le he añadido una línea más que es READONLY { .T., .F., .T., .F.} ;

Tenga o no tenga esa línea... el ejecutable te permite poder modificar todas y cada una de las celdas del grid independientemente de que le hayas indicado que columna no podría editar.

Por si te sirve... lo estoy utilizando bajo un W10 64bytes actualizado a la última versión. La versión que uso de ooHG es la bajada el día 6/12/2019.

Un saludo.

fyurisich commented 4 years ago

@ViCagCan por favor adjunta el PRG ya modificado a esta issue.

ViCagCan commented 4 years ago

Buenas tardes Fernando... creí que habia adjuntado un zip con un proyecto... te lo copio aqui...

/*

Ejemplo Grid n° 15
Autor: Fernando Yurisich fernando.yurisich@gmail.com
Licenciado bajo The Code Project Open License (CPOL) 1.02
Ver http://www.codeproject.com/info/cpol10.aspx
Este ejemplo muestra cómo un Grid puede editarse en forma
similar a Excel. Si mientras se digitan caracteres en una
celda se oprime una tecla de movimiento del cursor, se
guarda la cadena ingresada y se mueve al cursor a la celda
que corresponda (cláusula EDITLIKEEXCEL). Lo mismo ocurre
cuando se hace clic fuera de la celda de edición (cláusula
NOMODALEDIT). En lugar de habilitar este comportamiento
para todo el Grid, es posible habilitarlo control por
control. Note como el comportamiento del método EditGrid
es diferente del comportamiento del método EditCell. Para
habilitar la edición completa de la celda oprima F2 (como
en Excel).
Visítenos en https://github.com/fyurisich/OOHG_Samples o en
http://oohg.wikia.com/wiki/Object_Oriented_Harbour_GUI_Wiki */

include "oohg.ch"

FUNCTION Main

LOCAL aRows, oForm, oGrid

SET DATE BRITISH SET CENTURY ON

aRows := { {01, 'Simpson',   1234.56, ctod('01/01/2000')}, ;
           {02, 'Mulder',    5897.55, ctod('02/02/2001')}, ;
           {03, 'Smart',     6972.44, ctod('03/03/2002')}, ;
           {04, 'Grillo',    4546.44, ctod('04/04/2003')}, ;
           {05, 'Kirk',      1123.12, ctod('05/05/2004')}, ;
           {06, 'Barriga',   9877.67, ctod('06/06/2005')}, ;
           {07, 'Flanders',  5487.32, ctod('07/07/2006')}, ;
           {08, 'Smith',     5467.65, ctod('08/08/2007')}, ;
           {09, 'Pedemonti', 2344.65, ctod('09/09/2008')}, ;
           {10, 'Gomez',     1097.79, ctod('10/10/2009')}, ;
           {11, 'Fernandez', 7656.99, ctod('11/11/2010')}, ;
           {12, 'Borges',    9873.44, ctod('12/12/2011')}, ;
           {13, 'Alvarez',   9854.32, ctod('13/01/2012')}, ;
           {14, 'Gonzalez',  8321.88, ctod('14/02/2013')}, ;
           {15, 'Batistuta', 5465.87, ctod('15/03/2014')}, ;
           {16, 'Vinazzi',   9833.55, ctod('16/04/2015')}, ;
           {17, 'Pedemonti', 6697.09, ctod('17/05/2016')}, ;
           {18, 'Samarbide', 1234.81, ctod('18/06/2017')}, ;
           {19, 'Pradon',    3674.25, ctod('19/07/2018')}, ;
           {20, 'Reyes',     2546.01, ctod('20/08/2019')} }

DEFINE WINDOW Form_1 OBJ oForm ; AT 0, 0 ; WIDTH 640 ; HEIGHT 420 ; TITLE 'Grid que se comporta como Excel' ; MAIN

/ Formato en COLUMNCONTROLS: {'TEXTBOX', cType, cPicture, cFunction, nOnFocusPos, lButtons, aImages, lLikeExcel, cEditKey, lNoModal} {'MEMO', cTitle, lCleanCRLF} {'DATEPICKER', lUpDown, lShowNone, lButtons, aImages, lNoModal} {'COMBOBOX', aItems, aValues, cRetValType, lButtons, aImages, lNoModal} {'COMBOBOXTEXT', aItems, lIncremental, lWinSize, lButtons, aImages, lNoModal} {'SPINNER', nRangeMin, nRangeMax, lButtons, aImages, lNoModal} {'CHECKBOX', cTrue, cFalse, lButtons, aImages, lNoModal} {'IMAGELIST', lButtons, aImages, lNoModal} {'IMAGEDATA', oData, lButtons, aImages, lNoModal} {'LCOMBOBOX', cTrue, cFalse, lButtons, aImages, lNoModal} /

  @ 20, 20 GRID Grid_1 OBJ oGrid ;
     WIDTH oForm:ClientWidth - 40 ;
     HEIGHT oForm:ClientHeight - 130 ;
     HEADERS {'Col.1', 'Col.2', 'Col.3', 'Col.4'} ;
     WIDTHS {80, 140, 140, 130} ;
     COLUMNCONTROLS { {'TEXTBOX', 'NUMERIC'}, ;
                      {'TEXTBOX', 'CHARACTER'}, ;
                      {'TEXTBOX', 'NUMERIC', '9,999.99'}, ;
                      {'TEXTBOX', 'DATE'} } ;
     ITEMS aRows ;
     READONLY { .T., .F., .T., .F.} ;
     APPEND ;
     DELETE ;
     EDIT INPLACE ;
     FULLMOVE ;
     NAVIGATEBYCELL ;
     EDITLIKEEXCEL ;
     NOMODALEDIT

  @ oForm:ClientHeight - 90, 20 LABEL Label_1 ;
     VALUE "Vea lo que sucede cuando, mientras edita una celda, " + ;
           "oprime una tecla de movimiento del cursor o hace clic" + ;
           "fuera de la ventana de edición. La edición puede " + ;
           "iniciarse con Intro, Dobleclic, F2 y los botones." ;
     WIDTH oForm:ClientWidth - 40 ;
     HEIGHT 30

  @ oForm:ClientHeight - 44, oForm:ClientWidth - 120 BUTTON Button_1 ;
     CAPTION "Edita Una Celda" ;
     WIDTH 100 ;
     HEIGHT 24 ;
     ACTION ( oGrid:SetFocus(), oGrid:EditCell() )

  @ oForm:ClientHeight - 44, oForm:ClientWidth - 230 BUTTON Button_2 ;
     CAPTION "Edita El Grid" ;
     WIDTH 100 ;
     HEIGHT 24 ;
     ACTION ( oGrid:SetFocus(), oGrid:EditGrid() )

  ON KEY ESCAPE ACTION oForm:Release()
  ON KEY F2 ACTION oGrid:EditCell()

END WINDOW

oForm:Center() oForm:Activate()

RETURN NIL

/*

EOF */

fyurisich commented 4 years ago

@ViCagCan debes actualizar la librería desde GitHub. Este problema fue corregido el día 17/12/19. Ver #185 Saludos

oohg / core

Posible error en Grid con la clausula READONLY #198

include "oohg.ch"