Autoget desde Recursos

[Marcelo Via Giglio]

Hola a todos,

tengo el siguiente problema con la clase Autoget, defininiendola desde recursos, cuando se tiene extendida la lista asociada, y se pasa el mouse por ella, se pintan los controles que están bajo la lista, una imagen explica mas:

https://app.box.com/s/fwpi8xil1lxmhcsz5xyd65xow26aocxy

No se si estoy haciendo algo mal

Saludos

Marcelo Vía

[joseluisysturiz]

Hola a todos,

tengo el siguiente problema con la clase Autoget, defininiendola desde recursos, cuando se tiene extendida la lista asociada, y se pasa el mouse por ella, se pintan los controles que están bajo la lista, una imagen explica mas:

https://app.box.com/s/fwpi8xil1lxmhcsz5xyd65xow26aocxy

No se si estoy haciendo algo mal

Saludos

Marcelo Vía

Saludos, no he usado esta clase, es mas, no la conocia, podrias colocar una pantalla de como se ve y como definir el recurso.? es decir un pequeño sample de su uso ya que aun no le veo la funcionalidad, no se si sera algo que ando buscando que es que cuando vaya escribriendo en el GET, me de despliegue como en GOOGLE, las palabras que coincidere voy a escribir, pero imagino eso habria que hacerlo desde un disccionario o desde una tabla que tenga bastante datos, en mi caso lo quiero para buscar coincidencia en busqueda de clientes o de articulos..

y la otra consulta es...se puede usar esta clase con DATASOURCE de MySql.? saludos, gracias...

[Marcelo Via Giglio]

Hola,

en la carpeta de samples existen ejemplo todos los testaget.... pero todos los ejemplos son sin recursos

Y la fuente de datos puede ser la que quieras, tu defines como filtrar y la fuente

Saludos

Marcelo Vía

[nanoespinoza]

Estimados

Existe alguna solución para el problema reportado en este chat al usar la clase Autoget desde recursos (estoy probando con FH1706). La característica de esta clase me parece muy interesante y útil, debería completarse el desarrollo.

Saludos

Fernando Espinoza A.

[karinha]

Buen dia, hay algun ejemplo simples para testes? Gracias, saludos.

[nanoespinoza]

Karinha

Aquí un ejemplo para que pruebe; primero el recurso

// RESOURCE SCRIPT generated by "Pelles C for Windows, version 7.00".

#include <windows.h>
#include <commctrl.h>
#include <richedit.h>

LANGUAGE LANG_SPANISH,SUBLANG_SPANISH_ECUADOR

AUTOGET DIALOGEX DISCARDABLE 6, 18, 210, 142
STYLE DS_SHELLFONT|WS_POPUP|DS_MODALFRAME|DS_CONTEXTHELP|DS_3DLOOK|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
CAPTION "Dialog"
FONT 8, "Tahoma", 0, 0, 1
{
CONTROL "", 101, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 12, 8, 84, 12
CONTROL "OK", IDOK, "Button", WS_TABSTOP, 160, 5, 45, 15
CONTROL "Cancel", IDCANCEL, "Button", WS_TABSTOP, 160, 23, 45, 15
}

Y el .prg sería este:

#include "FiveWin.ch"
#include "AutoGet.ch"

static aCountries := {;
{"Afghanistan", 'AF'},;
{"Åland Islands", 'AX'},;
{"Albania", 'AL'},;
{"Algeria", 'DZ'},;
{"American Samoa", 'AS'},;
{"AndorrA", 'AD'},;
{"Angola", 'AO'},;
{"Anguilla", 'AI'},;
{"Antarctica", 'AQ'},;
{"Antigua and Barbuda", 'AG'},;
{"Argentina", 'AR'},;
{"Armenia", 'AM'},;
{"Aruba", 'AW'},;
{"Australia", 'AU'},;
{"Austria", 'AT'},;
{"Azerbaijan", 'AZ'},;
{"Bahamas", 'BS'},;
{"Bahrain", 'BH'},;
{"Bangladesh", 'BD'},;
{"Barbados", 'BB'},;
{"Belarus", 'BY'},;
{"Belgium", 'BE'},;
{"Belize", 'BZ'},;
{"Benin", 'BJ'},;
{"Bermuda", 'BM'},;
{"Bhutan", 'BT'},;
{"Bolivia", 'BO'},;
{"Bosnia and Herzegovina", 'BA'},;
{"Botswana", 'BW'},;
{"Bouvet Island", 'BV'},;
{"Brazil", 'BR'},;
{"British Indian Ocean Territory", 'IO'},;
{"Brunei Darussalam", 'BN'},;
{"Bulgaria", 'BG'},;
{"Burkina Faso", 'BF'},;
{"Burundi", 'BI'},;
{"Cambodia", 'KH'},;
{"Cameroon", 'CM'},;
{"Canada", 'CA'},;
{"Cape Verde", 'CV'},;
{"Cayman Islands", 'KY'},;
{"Central African Republic", 'CF'},;
{"Chad", 'TD'},;
{"Chile", 'CL'},;
{"China", 'CN'},;
{"Christmas Island", 'CX'},;
{"Cocos (Keeling) Islands", 'CC'},;
{"Colombia", 'CO'},;
{"Comoros", 'KM'},;
{"Congo", 'CG'},;
{"Congo, The Democratic Republic of the", 'CD'},;
{"Cook Islands", 'CK'},;
{"Costa Rica", 'CR'},;
{"Cote D'Ivoire", 'CI'},;
{"Croatia", 'HR'},;
{"Cuba", 'CU'},;
{"Cyprus", 'CY'},;
{"Czech Republic", 'CZ'},;
{"Denmark", 'DK'} }


Function Main()
LOCAL oDlg, oGet, cName:=Space(20), oBtn1, oBtn2

DEFINE DIALOG oDlg TITLE "Prueba del Augo-Get de FW1706" RESOURCE "AUTOGET"

REDEFINE AUTOGET oGet var cName of oDlg ID 101 ;
DATASOURCE aCountries;
FILTER ListFilter1( uDataSource, cData, Self );
COLUMN 1 ;
HEIGHTLIST 100

REDEFINE BUTTON oBtn1 OF oDlg ID 1 ACTION MsgAlert("Get 1:"+cName)
REDEFINE BUTTON oBtn2 OF oDlg ID 2 ACTION oDlg:end()

ACTIVATE DIALOG oDlg CENTERED
Return nil


//---------------------------------------------------------------------------//
// match case without case sensitive
Function ListFilter1( aList, cData, oSelf )
Local aNewList := { }
Local uItem

For each uItem in oSelf:uOrgData

If Lower( SubStr( uItem[ 1 ], 1, Len( cData ) ) ) == Lower( cData )
AAdd( aNewList, uItem )
Endif

Next
RETURN aNewList

Saludos

Fernando Espinoza A.

[karinha]

Perfecto! Gracias.



Saludos.

[karinha]

Cambios:

Code: Select all  Expand view  RUN

// RESOURCE SCRIPT generated by "Pelles C for Windows, version 7.00".

#include <windows.h>

LANGUAGE LANG_FRENCH,SUBLANG_FRENCH

AUTOGET DIALOGEX DISCARDABLE 6, 18, 210, 142
STYLE WS_POPUP|WS_CAPTION|WS_SYSMENU
CAPTION "AutoGet Test"
FONT 8, "Tahoma"
{
CONTROL "", 101, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 12, 8, 84, 12
CONTROL "OK", IDOK, "Button", WS_TABSTOP, 160, 5, 45, 15
CONTROL "Cancel", IDCANCEL, "Button", WS_TABSTOP, 160, 23, 45, 15
}
 

Code: Select all  Expand view  RUN

#include "FiveWin.ch"
#include "AutoGet.ch"

static aCountries := {;
{"Afghanistan", 'AF'},;
{"Åland Islands", 'AX'},;
{"Albania", 'AL'},;
{"Algeria", 'DZ'},;
{"American Samoa", 'AS'},;
{"AndorrA", 'AD'},;
{"Angola", 'AO'},;
{"Anguilla", 'AI'},;
{"Antarctica", 'AQ'},;
{"Antigua and Barbuda", 'AG'},;
{"Argentina", 'AR'},;
{"Armenia", 'AM'},;
{"Aruba", 'AW'},;
{"Australia", 'AU'},;
{"Austria", 'AT'},;
{"Azerbaijan", 'AZ'},;
{"Bahamas", 'BS'},;
{"Bahrain", 'BH'},;
{"Bangladesh", 'BD'},;
{"Barbados", 'BB'},;
{"Belarus", 'BY'},;
{"Belgium", 'BE'},;
{"Belize", 'BZ'},;
{"Benin", 'BJ'},;
{"Bermuda", 'BM'},;
{"Bhutan", 'BT'},;
{"Bolivia", 'BO'},;
{"Bosnia and Herzegovina", 'BA'},;
{"Botswana", 'BW'},;
{"Bouvet Island", 'BV'},;
{"Brazil", 'BR'},;
{"British Indian Ocean Territory", 'IO'},;
{"Brunei Darussalam", 'BN'},;
{"Bulgaria", 'BG'},;
{"Burkina Faso", 'BF'},;
{"Burundi", 'BI'},;
{"Cambodia", 'KH'},;
{"Cameroon", 'CM'},;
{"Canada", 'CA'},;
{"Cape Verde", 'CV'},;
{"Cayman Islands", 'KY'},;
{"Central African Republic", 'CF'},;
{"Chad", 'TD'},;
{"Chile", 'CL'},;
{"China", 'CN'},;
{"Christmas Island", 'CX'},;
{"Cocos (Keeling) Islands", 'CC'},;
{"Colombia", 'CO'},;
{"Comoros", 'KM'},;
{"Congo", 'CG'},;
{"Congo, The Democratic Republic of the", 'CD'},;
{"Cook Islands", 'CK'},;
{"Costa Rica", 'CR'},;
{"Cote D'Ivoire", 'CI'},;
{"Croatia", 'HR'},;
{"Cuba", 'CU'},;
{"Cyprus", 'CY'},;
{"Czech Republic", 'CZ'},;
{"Denmark", 'DK'} }


FUNCTION Main()

   LOCAL oDlg, oGet, cName:=Space(20), oBtn1, oBtn2, oFont

   DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 00, -12 BOLD

   DEFINE DIALOG oDlg TITLE "Prueba del Augo-Get de FW1701" ;
          RESOURCE "AUTOGET" FONT oFont                     ;
          COLORS CLR_WHITE, CLR_MAGENTA

   oDlg:lHelpIcon := .F.

   REDEFINE AUTOGET oGet var cName of oDlg ID 101           ;
            DATASOURCE aCountries                           ;
            FILTER ListFilter1( uDataSource, cData, Self )  ;
            COLUMN 1                                        ;
            HEIGHTLIST 100 FONT oFont                       ;
            COLORS CLR_BLACK, CLR_YELLOW

   REDEFINE BUTTON oBtn1 ID 1 OF oDlg  ;
            ACTION MsgAlert("Get 1:"+cName)

   oBtn1:cToolTip := "Autoget con Recurso esta perfecto"

   REDEFINE BUTTON oBtn2 ID 2 OF oDlg ;
            ACTION( oDlg:end() ) CANCEL

   oBtn2:cTooltip := "Salir - Exit"

   ACTIVATE DIALOG oDlg CENTERED

   oFont:End()

RETURN NIL

//---------------------------------------------------------------------------//
// match case without case sensitive
Function ListFilter1( aList, cData, oSelf )

   Local aNewList := { }
   Local uItem

   For each uItem in oSelf:uOrgData

      If Lower( SubStr( uItem[ 1 ], 1, Len( cData ) ) ) == Lower( cData )
         AAdd( aNewList, uItem )
      Endif

   Next

RETURN aNewList
 

Saludos.

[Marcelo Via Giglio]

Holas,

autoget da un comportamiento raro, cuando se aplica WindowsXP.Manifest modificando el ejemplo:

Code: Select all  Expand view  RUN

#include <windows.h>

LANGUAGE LANG_FRENCH,SUBLANG_FRENCH

AUTOGET DIALOGEX DISCARDABLE 6, 18, 210, 142
STYLE WS_POPUP|WS_CAPTION|WS_SYSMENU
CAPTION "AutoGet Test"
FONT 8, "Tahoma"
{
CONTROL "", 101, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 12,  8, 84, 12
CONTROL "", 102, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 12, 22, 84, 22
CONTROL "OK", IDOK, "Button", WS_TABSTOP, 160, 5, 45, 15
CONTROL "Cancel", IDCANCEL, "Button", WS_TABSTOP, 160, 23, 45, 15
}
 
1 24 "WindowsXP.Manifest"

 

Code: Select all  Expand view  RUN

#include "FiveWin.ch"
#include "AutoGet.ch"

static aCountries := {;
{"Afghanistan", 'AF'},;
{"Åland Islands", 'AX'},;
{"Albania", 'AL'},;
{"Algeria", 'DZ'},;
{"American Samoa", 'AS'},;
{"AndorrA", 'AD'},;
{"Angola", 'AO'},;
{"Anguilla", 'AI'},;
{"Antarctica", 'AQ'},;
{"Antigua and Barbuda", 'AG'},;
{"Argentina", 'AR'},;
{"Armenia", 'AM'},;
{"Aruba", 'AW'},;
{"Australia", 'AU'},;
{"Austria", 'AT'},;
{"Azerbaijan", 'AZ'},;
{"Bahamas", 'BS'},;
{"Bahrain", 'BH'},;
{"Bangladesh", 'BD'},;
{"Barbados", 'BB'},;
{"Belarus", 'BY'},;
{"Belgium", 'BE'},;
{"Belize", 'BZ'},;
{"Benin", 'BJ'},;
{"Bermuda", 'BM'},;
{"Bhutan", 'BT'},;
{"Bolivia", 'BO'},;
{"Bosnia and Herzegovina", 'BA'},;
{"Botswana", 'BW'},;
{"Bouvet Island", 'BV'},;
{"Brazil", 'BR'},;
{"British Indian Ocean Territory", 'IO'},;
{"Brunei Darussalam", 'BN'},;
{"Bulgaria", 'BG'},;
{"Burkina Faso", 'BF'},;
{"Burundi", 'BI'},;
{"Cambodia", 'KH'},;
{"Cameroon", 'CM'},;
{"Canada", 'CA'},;
{"Cape Verde", 'CV'},;
{"Cayman Islands", 'KY'},;
{"Central African Republic", 'CF'},;
{"Chad", 'TD'},;
{"Chile", 'CL'},;
{"China", 'CN'},;
{"Christmas Island", 'CX'},;
{"Cocos (Keeling) Islands", 'CC'},;
{"Colombia", 'CO'},;
{"Comoros", 'KM'},;
{"Congo", 'CG'},;
{"Congo, The Democratic Republic of the", 'CD'},;
{"Cook Islands", 'CK'},;
{"Costa Rica", 'CR'},;
{"Cote D'Ivoire", 'CI'},;
{"Croatia", 'HR'},;
{"Cuba", 'CU'},;
{"Cyprus", 'CY'},;
{"Czech Republic", 'CZ'},;
{"Denmark", 'DK'} }


FUNCTION Main()

   LOCAL oDlg, oGet, cName:=Space(20), oBtn1, oBtn2, oFont

   DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 00, -12 BOLD

   DEFINE DIALOG oDlg TITLE "Prueba del Augo-Get de FW1701" ;
          RESOURCE "AUTOGET" FONT oFont                     ;
          COLORS CLR_WHITE, CLR_MAGENTA

   oDlg:lHelpIcon := .F.

   REDEFINE AUTOGET oGet var cName of oDlg ID 101           ;
            DATASOURCE aCountries                           ;
            FILTER ListFilter1( uDataSource, cData, Self )  ;
            COLUMN 1                                        ;
            HEIGHTLIST 100 FONT oFont                       ;
            COLORS CLR_BLACK, CLR_YELLOW

   REDEFINE AUTOGET oGet var cName of oDlg ID 102           ;
            DATASOURCE aCountries                           ;
            FILTER ListFilter1( uDataSource, cData, Self )  ;
            COLUMN 1                                        ;
            HEIGHTLIST 100 FONT oFont                       ;
            COLORS CLR_BLACK, CLR_YELLOW

   REDEFINE BUTTON oBtn1 ID 1 OF oDlg  ;
            ACTION MsgAlert("Get 1:"+cName)

   oBtn1:cToolTip := "Autoget con Recurso esta perfecto"

   REDEFINE BUTTON oBtn2 ID 2 OF oDlg ;
            ACTION( oDlg:end() ) CANCEL

   oBtn2:cTooltip := "Salir - Exit"

   ACTIVATE DIALOG oDlg CENTERED

   oFont:End()

RETURN NIL

//---------------------------------------------------------------------------//
// match case without case sensitive
Function ListFilter1( aList, cData, oSelf )

   Local aNewList := { }
   Local uItem

   For each uItem in oSelf:uOrgData

      If Lower( SubStr( uItem[ 1 ], 1, Len( cData ) ) ) == Lower( cData )
         AAdd( aNewList, uItem )
      Endif

   Next

RETURN aNewList

Al abrir la primera lista y pasar el mouse por ella, se muestran los controles debajo de la misma

https://app.box.com/s/kvm64tfe9sxmbmy3zi7216zm93d4smio

Bueno debo aclarar que estoy utiizando FWH15.08

Salidos cordiales

Marcelo Vía

[karinha]

Marcelo, Intenta ahora:

Code: Select all  Expand view  RUN

// RESOURCE SCRIPT generated by "Pelles C for Windows, version 7.00".

#include <windows.h>

#ifndef __64__
   1 24 "./WinXP/WindowsXP.Manifest"
#endif

#ifdef __64__
   1 24 "WinXP/WindowsXP.Manifest64"
#endif

LANGUAGE LANG_FRENCH,SUBLANG_FRENCH

AUTOGET DIALOGEX DISCARDABLE 6, 18, 210, 142
STYLE WS_POPUP|WS_CAPTION|WS_SYSMENU
CAPTION "AutoGet Test"
FONT 8, "Tahoma"
{
CONTROL "", 101, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 12, 8, 84, 12
CONTROL "OK", IDOK, "Button", WS_TABSTOP, 160, 5, 45, 15
CONTROL "Cancel", IDCANCEL, "Button", WS_TABSTOP, 160, 23, 45, 15
}
 

Saludos.

[karinha]

Saludos.

[Marcelo Via Giglio]

João,

prueba aumentando un get abajo del autoget, cuando se despliega la lista, mueve el mouse por la lista y veras que se muestra el otro get sobre la lista

Saludos

Marcelo Vía

[karinha]

És verdad Marcelo usted está correcto. Saludos.

[joseluisysturiz]

Se puede usar algo como el autoget en una edicion de celda en un xBrowse.? si es asi, algun sample...saludos...gracias...

[nageswaragunupudi]

Se puede usar algo como el autoget en una edicion de celda en un xBrowse.? si es asi, algun sample...saludos...gracias...

Use EDIT_LISTBOX or EDIT_GET_LISTBOX