Compilacion OOHG Ver. 2024.09.21.rc1 por Miguel
202 views
Skip to first unread message
Miguel Ingles
Oct 11, 2024, 11:36:04 AM10/11/24
to oo...@googlegroups.com
Hola a todos
He realizado una compilacion con las modificaciones hasta septiembre de 2024 de oohg
espero que les sea de utilidad y puedan hacer sus pruebas.
OOHG Ver. 2024.09.21.rc1, realizada por Miguel
MinGW GNU C 14.2 (32-bit) - Harbour 3.2.0dev (r2410070940) - OOHG Ver. 2024.09.21.rc1 (32 bits)
MinGW GNU C 14.2 (64-bit) - Harbour 3.2.0dev (r2410070940) - OOHG Ver. 2024.09.21.rc1 (64 bits)
MinGW GNU C 14.2 (64-bit) - Harbour 3.2.0dev (r2410070940) - OOHG Ver. 2024.09.21.rc1 (64 bits)
Saludos
Miguel
Rosario Giuffré
Oct 12, 2024, 10:52:04 AM10/12/24
to oo...@googlegroups.com
Gracias Miguel por el trabajo.
Acabo de bajarlo. Lo probaré con mis sistemas y comento.
Saludos
Rosario Giuffré
SoftSar Sistemas
--
Has recibido este mensaje porque estás suscrito al grupo "[oohg]" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a oohg+uns...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/oohg/CADSbtg64HxQ81AqMUNdv0x6ef90k_ebeO1K5mCw55-SqKx%3DcQw%40mail.gmail.com.
Roberto Quiroz Calle
Oct 12, 2024, 11:16:46 AM10/12/24
to oo...@googlegroups.com
Buenos dias.
Gracias Miguel.
Lo he probado, todo ok.
Saludos
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/oohg/CAANhh_zz%2B9Vq%3DFzF_EGFUPYuuR9UFXG5vZvPgsqB4__X_vxhZQ%40mail.gmail.com.
Paola Bruccoleri
Oct 12, 2024, 11:39:53 AM10/12/24
to oo...@googlegroups.com
Hola Miguel
Por casualidad, ese harbour que tenés. ya tiene las librerías creadas para ADS 11 (Advantage database server), curl, etc (conexión a webservices, envíos de emails) ?
Hace tiempo que quiero actualizar a versiones más nuevas, pero un verano de licencia, cuando tuve más tiempo, lo intenté pero eran mil problemas... y lo dejé como lo tengo ahora.
SAludos!
De: "Miguel Ingles" <miguels...@gmail.com>
Para: oo...@googlegroups.com
Enviados: Viernes, 11 de Octubre 2024 12:35:52
Asunto: [oohg] Compilacion OOHG Ver. 2024.09.21.rc1 por Miguel
Para: oo...@googlegroups.com
Enviados: Viernes, 11 de Octubre 2024 12:35:52
Asunto: [oohg] Compilacion OOHG Ver. 2024.09.21.rc1 por Miguel
David Tato Jiménez
Oct 14, 2024, 3:28:51 PM10/14/24
to oo...@googlegroups.com
Hola, después de bajar la compilación de Miguel y compilar una
aplicación, observo que de mi versión anterior a la nueva
compilación de Miguel, hay cambio de color en la linea azul que
corresponde a linea seleccionada o donde esta activo el cursor.
Abajo ejemplo con diferencia.
¿Alguna idea por que ocurre esto? No he cambiado nada en el
fuente. Por si sirve de algo, el ordenador donde estoy ejecutando
la aplicación es un Windows 11.
Con versión anterior que tenia.
Con versión Miguel aquí abajo
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/oohg/CALpAn%2BHz3HU-QTsfwGOzNEk6DZorj9JTQgST62S-pSkpF1WNTg%40mail.gmail.com.
Rosario Giuffré
Oct 14, 2024, 7:18:54 PM10/14/24
to oo...@googlegroups.com
Que tal David.
A mi siempre me ha salido del color de la versión nueva, salvo que uno lo haya definido de otra forma, tanto en WIN10 como 11.
Saludos a todos.
Rosario Giuffré
SoftSar Sistemas
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/oohg/4d1f7721-b48f-4f97-87ea-d14d7b2b4b4d%40gmail.com.
Miguel Ingles
Oct 17, 2024, 1:41:50 PM10/17/24
to oo...@googlegroups.com
Hola Paola
De momento he compilado el HARBOUR sin las contribuciones, esto lo dejo para más adelante.
Saludos
Miguel
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/oohg/1911456860.1231014.1728747580837.JavaMail.zimbra%40vera.com.uy.
José Quintas
Nov 13, 2024, 6:36:42 AM11/13/24
to [oohg]
Alguien puede ayudar a crear todo automático ?
Ya lo tengo listo para mi uso, alguien necessitará ajustarlo para uso oficial.
José M. C. Quintas
José Francisco Orozco Murillo
Dec 18, 2024, 8:47:28 PM12/18/24
to [oohg]
Buenas noches,, actualmente estoy usando oohg+hb34(32bit) , me gustaría poder compilar en 64 bit.. es posible y que debo hacer o descargar¿
Miguel Ingles
Dec 24, 2024, 7:00:56 AM12/24/24
to oo...@googlegroups.com
Buenos días José
Tienes que descargar el fichero del primer email, descomprimirlo, y modificar las rutar cunado compiles para MinGW64, harbour64 y oohg64
Saludos
Miguel
--
Has recibido este mensaje porque estás suscrito al grupo "[oohg]" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a oohg+uns...@googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/oohg/f88c51a1-ccaf-475c-bdd4-723e805694c5n%40googlegroups.com.
Antonio Cardinaux
Dec 26, 2024, 9:53:44 AM12/26/24
to oo...@googlegroups.com
Hola. Cuando quiero bajar el oohg de http://www.teycen.com/pages/minigui/programas_harbour.php, o sea el OOHG Ver. 2024.09.21.rc1, me aparece el siguiente mensaje:
Brave ha bloqueado esta descarga porque el sitio no utiliza una conexión segura y es posible que el archivo se haya manipulado
También me pasa lo mismo si lo quiero hacer desde Chrome
Brave ha bloqueado esta descarga porque el sitio no utiliza una conexión segura y es posible que el archivo se haya manipulado
También me pasa lo mismo si lo quiero hacer desde Chrome
Para ver este debate, visita https://groups.google.com/d/msgid/oohg/CADSbtg7U5b8sOh1zGcmNvN6w-CTy2XjP644UQ%2B57s_HVkQOqhw%40mail.gmail.com.
Antonio Cardinaux - Lanús - Pcia.
de Buenos Aires - Argentina
Miguel Ingles
Dec 27, 2024, 8:39:35 AM12/27/24
to oo...@googlegroups.com
Hola Antonio
El navegador dice que PUEDE estar manipulado, puedes estar tranquilo, el fichero lo he creado yo y no esta manipulado.
Si sigues teniendo problemas, envíame un email por privado.
Saludos
Miguel
Para ver este debate, visita https://groups.google.com/d/msgid/oohg/CAHAYtuctRy8JwZTZdwCj%3DE-9qtHfHZX4ekCA-10raA7DE%3D%2B9bA%40mail.gmail.com.
Antonio Cardinaux
Dec 27, 2024, 8:51:44 AM12/27/24
to oo...@googlegroups.com
Listo Miguel, ahi lo descargue. Voy a probarlo en breve, luego te comento si encuentro algún problema. Muchas gracias por tu trabajo
Para ver este debate, visita https://groups.google.com/d/msgid/oohg/CADSbtg58fMh5LUBnd6%3DMWbUpzcMU7kB-_YvZPsNZ1jVZLYcjqQ%40mail.gmail.com.
José Francisco Orozco Murillo
Jan 5, 2025, 3:26:15 AM1/5/25
to oo...@googlegroups.com
pero recuerda que estoy usando harbour 3.4.
Para ver este debate, visita https://groups.google.com/d/msgid/oohg/CADSbtg7U5b8sOh1zGcmNvN6w-CTy2XjP644UQ%2B57s_HVkQOqhw%40mail.gmail.com.
 | José Francisco Orozco Murillo Técnologo en Sistemas   |
Cúcuta, ColombiaMiguel Ingles
Jan 7, 2025, 11:51:04 AM1/7/25
to oo...@googlegroups.com
Hola José
No lo tengo compilado para harbour 3.4, y voy muy justo de tiempo, disculpa.
Saludos
Miguel
Para ver este debate, visita https://groups.google.com/d/msgid/oohg/CAJoGojQEL3NAy8A4mVabsKLVT6hLeVTJPUyWaSCStYnHdDMEQQ%40mail.gmail.com.
Antonio Cardinaux
Dec 12, 2025, 9:33:00 AM12/12/25
to oo...@googlegroups.com
Estaba viendo este correo y se me ocurrió querer bajar esa versión de OOHG desde el link que aparece al lado de "realizada por Miguel", pero veo que ya el archivo no está a hoy, 12/12/2025. ¿Puede ser que esté en algún otro sitio?. Gracias
Para ver este debate, visita https://groups.google.com/d/msgid/oohg/CADSbtg4rWXF_ZDXfyqsbD69fmjZ1r-PPBo7Ah3C-kLSBzcaUtw%40mail.gmail.com.
Antonio Cardinaux
Lanús
Buenos Aires
Argentina
Miguel Ingles
Dec 15, 2025, 5:35:27 AM12/15/25
to oo...@googlegroups.com
Hola Antonio
He probado el enlace y funciona, te paso la descarga directa:http://www.teycen.com/media/minigui/oohg_miguel_24-09_20241009.7z
Saludos
Miguel
Para ver este debate, visita https://groups.google.com/d/msgid/oohg/CAHAYtueNonJTwirg8T_HDFWY3LSUZErrqLGHa_T_YNH2DzBOBQ%40mail.gmail.com.
Antonio Cardinaux
Dec 15, 2025, 6:07:40 AM12/15/25
to oo...@googlegroups.com
Hola Miguel. Recién probé el link y aparece 404 page not found. Por las dudas adjunto la pantalla que aparece. Quizás tenga que ver el Kapersky, el problema es que donde lo estoy bajando es un equipo del trabajo, y el kapersky lo maneja el administrador de la red, igual por el mensaje que aparece no creo que tenga que ver con un bloqueo del kapersky...., en fin es medio raro esto
Para ver este debate, visita https://groups.google.com/d/msgid/oohg/CADSbtg75JP5EebseNbKS01NnEw0si4JYXuJnQgAfn0EuvjKk9Q%40mail.gmail.com.
Antonio Cardinaux
Feb 4, 2026, 9:44:53 AMFeb 4
to [oohg]
Ayer encontré otra falla. Si compilo este ejemplo:
/*
* Tree Sample # 1
* Author: Fernando Yurisich <fyur...@oohg.org>
* Licensed under The Code Project Open License (CPOL) 1.02
* See <http://www.codeproject.com/info/cpol10.aspx>
*
* This sample shows how to drag and drop between two Tree
* controls, how to get the visible items and the items
* currently shown in the control's window, and how to get
* the reference numbers of the visible items and the reference
* numbers of the items currently shown in the control's window.
* It also shows how to use methods EditLabel, Expand,
* FirstVisible, IsItemExpanded, IsItemValid, IsItemVisible,
* ItemCount, ItemDraggable, ItemEnabled, ItemHeight,
* ItemVisible, LastVisible, NextVisible, Value, SelectionID
* and VisibleCount.
*
* Visit us at https://github.com/oohg/samples
*
*
* You can download the resource file and the images from:
* https://github.com/oohg/samples/tree/main/Tree
*/
#include "oohg.ch"
FUNCTION Main()
LOCAL oForm, oTree1, oTree2, oTree
DEFINE WINDOW Form_1 OBJ oForm ;
AT 0,0 ;
WIDTH 640 ;
HEIGHT 530 ;
TITLE 'Tree Control - Drag/Drop and other things' ;
MAIN
DEFINE TREE Tree_1 OBJ oTree1 ;
AT 10,10 ;
WIDTH 300 ;
HEIGHT 202 ;
ENABLEDRAG ;
ENABLEDROP ;
EDITLABELS ;
TARGET { {|| oTree1 }, {|| oTree2 } } ;
NODEIMAGES {"WINDOW", "WATCH"} ;
ITEMIMAGES {"LED_OFF", "LED_ON"} ;
SELBOLD ;
INDENT 25 ;
VALUE 1
ON KEY F2 OF (oTree1) ACTION {|| Form_1.Tree_1.EditLabel }
FOR i := 1 TO 4
NODE 'T1 Item ' + LTRIM(STR(i))
FOR j := 1 TO 3
NODE 'T1 Item ' + LTRIM(STR(i)) + '.' + LTRIM(STR(j))
FOR k := 1 TO 5
TREEITEM 'T1 Item ' + ;
LTRIM(STR(i)) + '.' + ;
LTRIM(STR(j)) + '.' + ;
LTRIM(STR(k))
NEXT
END NODE
NEXT
END NODE
NEXT
END TREE
FOR i := 1 TO Form_1.Tree_1.ItemCount
Form_1.Tree_1.Expand(i)
NEXT
oTree1:ItemVisible(oTree1:Value)
Form_1.Tree_1.ItemDraggable(3, .F.)
Form_1.Tree_1.ItemDraggable(4, .F.)
Form_1.Tree_1.ItemEnabled(5, .F.)
Form_1.Tree_1.ItemEnabled(6, .F.)
DEFINE TREE Tree_2 OBJ oTree2 ;
AT 10,320 ;
WIDTH 300 ;
HEIGHT 200 ;
ENABLEDRAG ;
ENABLEDROP ;
EDITLABELS ;
TARGET { {|| oTree1 }, {|| oTree2 } } ;
NODEIMAGES {"WATCH", "WINDOW"} ;
ITEMIMAGES {"LED_OFF", "LED_ON"} ;
VALUE 1 ;
SELBOLD ;
INDENT 25
ON KEY F2 OF (oTree2) ACTION {|| Form_1.Tree_2.EditLabel }
FOR i := 1 TO 4
NODE 'T2 Item ' + LTRIM(STR(i))
FOR j := 1 TO 3
NODE 'T2 Item ' + LTRIM(STR(i)) + '.' + LTRIM(STR(j))
FOR k := 1 TO 5
TREEITEM 'T2 Item ' + ;
LTRIM(STR(i)) + '.' + ;
LTRIM(STR(j)) + '.' + ;
LTRIM(STR(k))
NEXT
END NODE
NEXT
END NODE
NEXT
END TREE
FOR i := 1 TO Form_1.Tree_2.ItemCount
Form_1.Tree_2.Expand(i)
NEXT
Form_1.Tree_2.ItemDraggable(3, .F.)
Form_1.Tree_2.ItemDraggable(4, .F.)
Form_1.Tree_2.ItemEnabled(5, .F.)
Form_1.Tree_2.ItemEnabled(6, .F.)
@ 250,10 BUTTON Button_1 ;
CAPTION 'Is Expanded' ;
ACTION IsExpanded(oTree) ;
WIDTH 140
@ 250,160 BUTTON Button_2 ;
CAPTION 'First Visible' ;
ACTION AutoMsgBox(oTree:FirstVisible()) ;
WIDTH 140
@ 250,310 BUTTON Button_3 ;
CAPTION 'Visible Items' ;
ACTION VisibleItems(oTree) ;
WIDTH 140
@ 250,460 BUTTON Button_4 ;
CAPTION 'Show Item' ;
ACTION ShowItem( oTree ) ;
WIDTH 140
@ 280,10 BUTTON Button_5 ;
CAPTION 'Change ID of Sel. Item' ;
ACTION ChangeID(oTree) ;
WIDTH 140
@ 280,160 BUTTON Button_6 ;
CAPTION 'Visible Count' ;
ACTION AutoMsgBox(oTree:VisibleCount()) ;
WIDTH 140
@ 280,310 BUTTON Button_7 ;
CAPTION 'Items in Window' ;
ACTION ItemsInWindow(oTree) ;
WIDTH 140
@ 280,460 BUTTON Button_8 ;
CAPTION 'Item Height' ;
ACTION AutoMsgBox( ;
oTree:ItemHeight( ;
VAL(InputBox('New Item Height')))) ;
WIDTH 140
@ 310,10 BUTTON Button_9 ;
CAPTION 'Is In Window' ;
ACTION IsVisible(oTree) ;
WIDTH 140
@ 310,160 BUTTON Button_10 ;
CAPTION 'Last Visible' ;
ACTION AutoMsgBox(oTree:LastVisible()) ;
WIDTH 140
@ 345,400 LABEL Lbl_1 ;
VALUE "Apply to:" ;
WIDTH 60
@ 342,460 COMBOBOX Cmb_1 ;
ITEMS {"Tree1", "Tree2"} ;
WIDTH 140 ;
VALUE 1 ;
ON CHANGE oTree := if(Form_1.Cmb_1.Value == 1, oTree1, oTree2)
oTree := oTree1
ON KEY ESCAPE OF (oForm) ACTION oForm:Release()
END WINDOW
ACTIVATE WINDOW Form_1
RETURN NIL
/*
* Items that are visible now or that will be visible
* when the control is scrolled up or down.
*/
FUNCTION VisibleItems(oTree)
LOCAL i, Item, lFound
i := 1
Item := oTree:FirstVisible()
lFound := .F.
DO WHILE Item # 0
AutoMsgBox(Item)
i ++
lFound := .T.
Item := oTree:NextVisible(Item)
ENDDO
IF ! lFound
MsgBox("Tree has no visible items !!!")
ENDIF
RETURN NIL
/* Items that are visible now.
* The second parameter in IsItemVisible indicates if the method
* is going to consider visible an item partially shown.
*/
FUNCTION ItemsInWindow(oTree)
LOCAL i, Item, Partial, lFound
i := 1
Item := oTree:FirstVisible()
lFound := .F.
DO WHILE Item # 0 .AND. oTree:IsItemVisible(Item, .F.)
AutoMsgBox({Item, IF(oTree:IsItemVisible(Item, .T.), ;
"whole", "partial")})
i ++
lFound := .T.
Item := oTree:NextVisible(Item)
ENDDO
IF ! lFound
MsgBox("Tree's window shows no item !!!")
ENDIF
RETURN NIL
FUNCTION ShowItem( oTree )
LOCAL uItem
uItem := VAL(InputBox('Item To Show'))
IF oTree:IsItemValid( uItem )
AutoMsgBox( oTree:ItemVisible( uItem ) )
ELSE
MsgStop( "Invalid item !!!" )
ENDIF
RETURN NIL
/* In trees without ITEMID clause you can use
* oTree:SelectionID := Nil to clear the item ID.
*
* Doing this in trees with ITEMID clause will rise a runtime error.
*
* Note that oTree:SelectionID() retrives the ID of the selected item,
* while oTree:SelectionID(Nil) will try to clear it's ID.
*/
FUNCTION ChangeID( oTree )
LOCAL newID
// we are assuming character IDs
newID := InputBox('Change ID from ' + ;
AutoType( oTree:SelectionID() ) + ' to:')
// to use numeric IDs uncomment next line an adapt validation
// newID := VAL(newID)
// to use mixed IDs you must develop and use you own capture function
IF EMPTY(newID)
MsgStop("ID can't be empty !!!")
ELSE
AutoMsgBox(oTree:SelectionID(newID))
ENDIF
RETURN NIL
FUNCTION IsVisible( oTree )
LOCAL uItem
uItem := VAL(InputBox('Item To Check'))
IF oTree:IsItemValid( uItem )
AutoMsgBox( oTree:IsItemVisible( uItem ) )
ELSE
MsgStop( "Invalid item !!!" )
ENDIF
RETURN NIL
FUNCTION IsExpanded( oTree )
LOCAL uItem
uItem := VAL(InputBox('Item To Check'))
IF oTree:IsItemValid( uItem )
AutoMsgBox( oTree:IsItemExpanded( uItem ) )
ELSE
MsgStop( "Invalid item !!!" )
ENDIF
RETURN NIL
/*
* EOF
*/
Con esta versión de OOHG los ítems del árbol (tree), están como inhabilitados (disabled). Pero si uso la versión previa a esta de OOHG, funcionan normalmente.
/*
* Tree Sample # 1
* Author: Fernando Yurisich <fyur...@oohg.org>
* Licensed under The Code Project Open License (CPOL) 1.02
* See <http://www.codeproject.com/info/cpol10.aspx>
*
* This sample shows how to drag and drop between two Tree
* controls, how to get the visible items and the items
* currently shown in the control's window, and how to get
* the reference numbers of the visible items and the reference
* numbers of the items currently shown in the control's window.
* It also shows how to use methods EditLabel, Expand,
* FirstVisible, IsItemExpanded, IsItemValid, IsItemVisible,
* ItemCount, ItemDraggable, ItemEnabled, ItemHeight,
* ItemVisible, LastVisible, NextVisible, Value, SelectionID
* and VisibleCount.
*
* Visit us at https://github.com/oohg/samples
*
*
* You can download the resource file and the images from:
* https://github.com/oohg/samples/tree/main/Tree
*/
#include "oohg.ch"
FUNCTION Main()
LOCAL oForm, oTree1, oTree2, oTree
DEFINE WINDOW Form_1 OBJ oForm ;
AT 0,0 ;
WIDTH 640 ;
HEIGHT 530 ;
TITLE 'Tree Control - Drag/Drop and other things' ;
MAIN
DEFINE TREE Tree_1 OBJ oTree1 ;
AT 10,10 ;
WIDTH 300 ;
HEIGHT 202 ;
ENABLEDRAG ;
ENABLEDROP ;
EDITLABELS ;
TARGET { {|| oTree1 }, {|| oTree2 } } ;
NODEIMAGES {"WINDOW", "WATCH"} ;
ITEMIMAGES {"LED_OFF", "LED_ON"} ;
SELBOLD ;
INDENT 25 ;
VALUE 1
ON KEY F2 OF (oTree1) ACTION {|| Form_1.Tree_1.EditLabel }
FOR i := 1 TO 4
NODE 'T1 Item ' + LTRIM(STR(i))
FOR j := 1 TO 3
NODE 'T1 Item ' + LTRIM(STR(i)) + '.' + LTRIM(STR(j))
FOR k := 1 TO 5
TREEITEM 'T1 Item ' + ;
LTRIM(STR(i)) + '.' + ;
LTRIM(STR(j)) + '.' + ;
LTRIM(STR(k))
NEXT
END NODE
NEXT
END NODE
NEXT
END TREE
FOR i := 1 TO Form_1.Tree_1.ItemCount
Form_1.Tree_1.Expand(i)
NEXT
oTree1:ItemVisible(oTree1:Value)
Form_1.Tree_1.ItemDraggable(3, .F.)
Form_1.Tree_1.ItemDraggable(4, .F.)
Form_1.Tree_1.ItemEnabled(5, .F.)
Form_1.Tree_1.ItemEnabled(6, .F.)
DEFINE TREE Tree_2 OBJ oTree2 ;
AT 10,320 ;
WIDTH 300 ;
HEIGHT 200 ;
ENABLEDRAG ;
ENABLEDROP ;
EDITLABELS ;
TARGET { {|| oTree1 }, {|| oTree2 } } ;
NODEIMAGES {"WATCH", "WINDOW"} ;
ITEMIMAGES {"LED_OFF", "LED_ON"} ;
VALUE 1 ;
SELBOLD ;
INDENT 25
ON KEY F2 OF (oTree2) ACTION {|| Form_1.Tree_2.EditLabel }
FOR i := 1 TO 4
NODE 'T2 Item ' + LTRIM(STR(i))
FOR j := 1 TO 3
NODE 'T2 Item ' + LTRIM(STR(i)) + '.' + LTRIM(STR(j))
FOR k := 1 TO 5
TREEITEM 'T2 Item ' + ;
LTRIM(STR(i)) + '.' + ;
LTRIM(STR(j)) + '.' + ;
LTRIM(STR(k))
NEXT
END NODE
NEXT
END NODE
NEXT
END TREE
FOR i := 1 TO Form_1.Tree_2.ItemCount
Form_1.Tree_2.Expand(i)
NEXT
Form_1.Tree_2.ItemDraggable(3, .F.)
Form_1.Tree_2.ItemDraggable(4, .F.)
Form_1.Tree_2.ItemEnabled(5, .F.)
Form_1.Tree_2.ItemEnabled(6, .F.)
@ 250,10 BUTTON Button_1 ;
CAPTION 'Is Expanded' ;
ACTION IsExpanded(oTree) ;
WIDTH 140
@ 250,160 BUTTON Button_2 ;
CAPTION 'First Visible' ;
ACTION AutoMsgBox(oTree:FirstVisible()) ;
WIDTH 140
@ 250,310 BUTTON Button_3 ;
CAPTION 'Visible Items' ;
ACTION VisibleItems(oTree) ;
WIDTH 140
@ 250,460 BUTTON Button_4 ;
CAPTION 'Show Item' ;
ACTION ShowItem( oTree ) ;
WIDTH 140
@ 280,10 BUTTON Button_5 ;
CAPTION 'Change ID of Sel. Item' ;
ACTION ChangeID(oTree) ;
WIDTH 140
@ 280,160 BUTTON Button_6 ;
CAPTION 'Visible Count' ;
ACTION AutoMsgBox(oTree:VisibleCount()) ;
WIDTH 140
@ 280,310 BUTTON Button_7 ;
CAPTION 'Items in Window' ;
ACTION ItemsInWindow(oTree) ;
WIDTH 140
@ 280,460 BUTTON Button_8 ;
CAPTION 'Item Height' ;
ACTION AutoMsgBox( ;
oTree:ItemHeight( ;
VAL(InputBox('New Item Height')))) ;
WIDTH 140
@ 310,10 BUTTON Button_9 ;
CAPTION 'Is In Window' ;
ACTION IsVisible(oTree) ;
WIDTH 140
@ 310,160 BUTTON Button_10 ;
CAPTION 'Last Visible' ;
ACTION AutoMsgBox(oTree:LastVisible()) ;
WIDTH 140
@ 345,400 LABEL Lbl_1 ;
VALUE "Apply to:" ;
WIDTH 60
@ 342,460 COMBOBOX Cmb_1 ;
ITEMS {"Tree1", "Tree2"} ;
WIDTH 140 ;
VALUE 1 ;
ON CHANGE oTree := if(Form_1.Cmb_1.Value == 1, oTree1, oTree2)
oTree := oTree1
ON KEY ESCAPE OF (oForm) ACTION oForm:Release()
END WINDOW
ACTIVATE WINDOW Form_1
RETURN NIL
/*
* Items that are visible now or that will be visible
* when the control is scrolled up or down.
*/
FUNCTION VisibleItems(oTree)
LOCAL i, Item, lFound
i := 1
Item := oTree:FirstVisible()
lFound := .F.
DO WHILE Item # 0
AutoMsgBox(Item)
i ++
lFound := .T.
Item := oTree:NextVisible(Item)
ENDDO
IF ! lFound
MsgBox("Tree has no visible items !!!")
ENDIF
RETURN NIL
/* Items that are visible now.
* The second parameter in IsItemVisible indicates if the method
* is going to consider visible an item partially shown.
*/
FUNCTION ItemsInWindow(oTree)
LOCAL i, Item, Partial, lFound
i := 1
Item := oTree:FirstVisible()
lFound := .F.
DO WHILE Item # 0 .AND. oTree:IsItemVisible(Item, .F.)
AutoMsgBox({Item, IF(oTree:IsItemVisible(Item, .T.), ;
"whole", "partial")})
i ++
lFound := .T.
Item := oTree:NextVisible(Item)
ENDDO
IF ! lFound
MsgBox("Tree's window shows no item !!!")
ENDIF
RETURN NIL
FUNCTION ShowItem( oTree )
LOCAL uItem
uItem := VAL(InputBox('Item To Show'))
IF oTree:IsItemValid( uItem )
AutoMsgBox( oTree:ItemVisible( uItem ) )
ELSE
MsgStop( "Invalid item !!!" )
ENDIF
RETURN NIL
/* In trees without ITEMID clause you can use
* oTree:SelectionID := Nil to clear the item ID.
*
* Doing this in trees with ITEMID clause will rise a runtime error.
*
* Note that oTree:SelectionID() retrives the ID of the selected item,
* while oTree:SelectionID(Nil) will try to clear it's ID.
*/
FUNCTION ChangeID( oTree )
LOCAL newID
// we are assuming character IDs
newID := InputBox('Change ID from ' + ;
AutoType( oTree:SelectionID() ) + ' to:')
// to use numeric IDs uncomment next line an adapt validation
// newID := VAL(newID)
// to use mixed IDs you must develop and use you own capture function
IF EMPTY(newID)
MsgStop("ID can't be empty !!!")
ELSE
AutoMsgBox(oTree:SelectionID(newID))
ENDIF
RETURN NIL
FUNCTION IsVisible( oTree )
LOCAL uItem
uItem := VAL(InputBox('Item To Check'))
IF oTree:IsItemValid( uItem )
AutoMsgBox( oTree:IsItemVisible( uItem ) )
ELSE
MsgStop( "Invalid item !!!" )
ENDIF
RETURN NIL
FUNCTION IsExpanded( oTree )
LOCAL uItem
uItem := VAL(InputBox('Item To Check'))
IF oTree:IsItemValid( uItem )
AutoMsgBox( oTree:IsItemExpanded( uItem ) )
ELSE
MsgStop( "Invalid item !!!" )
ENDIF
RETURN NIL
/*
* EOF
*/
Con esta versión de OOHG los ítems del árbol (tree), están como inhabilitados (disabled). Pero si uso la versión previa a esta de OOHG, funcionan normalmente.
Reply all
Reply to author
Forward
0 new messages