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
Autoget desde Recursos
-
Marcelo Via Giglio
- Posts: 1077
- Joined: Fri Oct 07, 2005 3:33 pm
- Location: Cochabamba - Bolivia
- Has thanked: 1 time
-
joseluisysturiz
- Posts: 2064
- Joined: Fri Jan 06, 2006 9:28 pm
- Location: Guatire - Caracas - Venezuela
- Contact:
Re: Autoget desde Recursos
Marcelo Via Giglio wrote: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...
Dios no está muerto...
Gracias a mi Dios ante todo!
Gracias a mi Dios ante todo!
-
Marcelo Via Giglio
- Posts: 1077
- Joined: Fri Oct 07, 2005 3:33 pm
- Location: Cochabamba - Bolivia
- Has thanked: 1 time
Re: Autoget desde Recursos
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
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
- Posts: 141
- Joined: Thu Mar 16, 2017 4:08 pm
- Location: Ecuador
Re: Autoget desde Recursos
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.
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
- Posts: 7935
- Joined: Tue Dec 20, 2005 7:36 pm
- Location: São Paulo - Brasil
- Been thanked: 3 times
- Contact:
Re: Autoget desde Recursos
Buen dia, hay algun ejemplo simples para testes? Gracias, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
-
nanoespinoza
- Posts: 141
- Joined: Thu Mar 16, 2017 4:08 pm
- Location: Ecuador
Re: Autoget desde Recursos
Karinha
Aquí un ejemplo para que pruebe; primero el recurso
Y el .prg sería este:
Saludos
Fernando Espinoza A.
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
- Posts: 7935
- Joined: Tue Dec 20, 2005 7:36 pm
- Location: São Paulo - Brasil
- Been thanked: 3 times
- Contact:
Re: Autoget desde Recursos
Perfecto! Gracias.
Saludos.
Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
-
karinha
- Posts: 7935
- Joined: Tue Dec 20, 2005 7:36 pm
- Location: São Paulo - Brasil
- Been thanked: 3 times
- Contact:
Re: Autoget desde Recursos
Cambios:
Saludos.
Code: Select all | Expand
// 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
#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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
-
Marcelo Via Giglio
- Posts: 1077
- Joined: Fri Oct 07, 2005 3:33 pm
- Location: Cochabamba - Bolivia
- Has thanked: 1 time
Re: Autoget desde Recursos
Holas,
autoget da un comportamiento raro, cuando se aplica WindowsXP.Manifest modificando el ejemplo:
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
autoget da un comportamiento raro, cuando se aplica WindowsXP.Manifest modificando el ejemplo:
Code: Select all | Expand
#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
#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 aNewListAl 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
- Posts: 7935
- Joined: Tue Dec 20, 2005 7:36 pm
- Location: São Paulo - Brasil
- Been thanked: 3 times
- Contact:
Re: Autoget desde Recursos
Marcelo, Intenta ahora:
Saludos.
Code: Select all | Expand
// 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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
-
Marcelo Via Giglio
- Posts: 1077
- Joined: Fri Oct 07, 2005 3:33 pm
- Location: Cochabamba - Bolivia
- Has thanked: 1 time
Re: Autoget desde Recursos
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
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
- Posts: 7935
- Joined: Tue Dec 20, 2005 7:36 pm
- Location: São Paulo - Brasil
- Been thanked: 3 times
- Contact:
Re: Autoget desde Recursos
És verdad Marcelo usted está correcto. Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
-
joseluisysturiz
- Posts: 2064
- Joined: Fri Jan 06, 2006 9:28 pm
- Location: Guatire - Caracas - Venezuela
- Contact:
Re: Autoget desde Recursos
Se puede usar algo como el autoget en una edicion de celda en un xBrowse.? si es asi, algun sample...saludos...gracias...
Dios no está muerto...
Gracias a mi Dios ante todo!
Gracias a mi Dios ante todo!
-
nageswaragunupudi
- Posts: 10721
- Joined: Sun Nov 19, 2006 5:22 am
- Location: India
- Been thanked: 8 times
- Contact:
Re: Autoget desde Recursos
joseluisysturiz wrote: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
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India