¿Ajuste en AUTOGET?
Posted: Thu Jan 14, 2021 10:09 am
Hola amigos, estoy trasteando con la clase autoget y viendo el ejemplo testaget del directorio samples de fw observo que cuando se desplaza con el ratón por la lista, si hay algún control "debajo" de la lista desplegada el comportamiento no es el adecuado (el elemento de la lista no recibe el foco), ¿alguna idea al respecto?
Adjunto un gif, no sé si se aprecia a qué me refiero ...
Adjunto un gif, no sé si se aprecia a qué me refiero ...
Code: Select all
#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'},;
{"Djibouti", 'DJ'},;
{"Dominica", 'DM'},;
{"Dominican Republic", 'DO'},;
{"Ecuador", 'EC'},;
{"Egypt", 'EG'},;
{"El Salvador", 'SV'},;
{"Equatorial Guinea", 'GQ'},;
{"Eritrea", 'ER'},;
{"Estonia", 'EE'},;
{"Ethiopia", 'ET'},;
{"Falkland Islands (Malvinas)", 'FK'},;
{"Faroe Islands", 'FO'},;
{"Fiji", 'FJ'},;
{"Finland", 'FI'},;
{"France", 'FR'},;
{"French Guiana", 'GF'},;
{"French Polynesia", 'PF'},;
{"French Southern Territories", 'TF'},;
{"Gabon", 'GA'},;
{"Gambia", 'GM'},;
{"Georgia", 'GE'},;
{"Germany", 'DE'},;
{"Ghana", 'GH'},;
{"Gibraltar", 'GI'},;
{"Greece", 'GR'},;
{"Greenland", 'GL'},;
{"Grenada", 'GD'},;
{"Guadeloupe", 'GP'},;
{"Guam", 'GU'},;
{"Guatemala", 'GT'},;
{"Guernsey", 'GG'},;
{"Guinea", 'GN'},;
{"Guinea-Bissau", 'GW'},;
{"Guyana", 'GY'},;
{"Haiti", 'HT'},;
{"Heard Island and Mcdonald Islands", 'HM'},;
{"Holy See (Vatican City State)", 'VA'},;
{"Honduras", 'HN'},;
{"Hong Kong", 'HK'},;
{"Hungary", 'HU'},;
{"Iceland", 'IS'},;
{"India", 'IN'},;
{"Indonesia", 'ID'},;
{"Iran, Islamic Republic Of", 'IR'},;
{"Iraq", 'IQ'},;
{"Ireland", 'IE'},;
{"Isle of Man", 'IM'},;
{"Israel", 'IL'},;
{"Italy", 'IT'},;
{"Jamaica", 'JM'},;
{"Japan", 'JP'},;
{"Jersey", 'JE'},;
{"Jordan", 'JO'},;
{"Kazakhstan", 'KZ'},;
{"Kenya", 'KE'},;
{"Kiribati", 'KI'},;
{"Korea, Democratic People\'S Republic of", 'KP'},;
{"Korea, Republic of", 'KR'},;
{"Kuwait", 'KW'},;
{"Kyrgyzstan", 'KG'},;
{"Lao People\'S Democratic Republic", 'LA'},;
{"Latvia", 'LV'},;
{"Lebanon", 'LB'},;
{"Lesotho", 'LS'},;
{"Liberia", 'LR'},;
{"Libyan Arab Jamahiriya", 'LY'},;
{"Liechtenstein", 'LI'},;
{"Lithuania", 'LT'},;
{"Luxembourg", 'LU'},;
{"Macao", 'MO'},;
{"Macedonia, The Former Yugoslav Republic of", 'MK'},;
{"Madagascar", 'MG'},;
{"Malawi", 'MW'},;
{"Malaysia", 'MY'},;
{"Maldives", 'MV'},;
{"Mali", 'ML'},;
{"Malta", 'MT'},;
{"Marshall Islands", 'MH'},;
{"Martinique", 'MQ'},;
{"Mauritania", 'MR'},;
{"Mauritius", 'MU'},;
{"Mayotte", 'YT'},;
{"Mexico", 'MX'},;
{"Micronesia, Federated States of", 'FM'},;
{"Moldova, Republic of", 'MD'},;
{"Monaco", 'MC'},;
{"Mongolia", 'MN'},;
{"Montserrat", 'MS'},;
{"Morocco", 'MA'},;
{"Mozambique", 'MZ'},;
{"Myanmar", 'MM'},;
{"Namibia", 'NA'},;
{"Nauru", 'NR'},;
{"Nepal", 'NP'},;
{"Netherlands", 'NL'},;
{"Netherlands Antilles", 'AN'},;
{"New Caledonia", 'NC'},;
{"New Zealand", 'NZ'},;
{"Nicaragua", 'NI'},;
{"Niger", 'NE'},;
{"Nigeria", 'NG'},;
{"Niue", 'NU'},;
{"Norfolk Island", 'NF'},;
{"Northern Mariana Islands", 'MP'},;
{"Norway", 'NO'},;
{"Oman", 'OM'},;
{"Pakistan", 'PK'},;
{"Palau", 'PW'},;
{"Palestinian Territory, Occupied", 'PS'},;
{"Panama", 'PA'},;
{"Papua New Guinea", 'PG'},;
{"Paraguay", 'PY'},;
{"Peru", 'PE'},;
{"Philippines", 'PH'},;
{"Pitcairn", 'PN'},;
{"Poland", 'PL'},;
{"Portugal", 'PT'},;
{"Puerto Rico", 'PR'},;
{"Qatar", 'QA'},;
{"Reunion", 'RE'},;
{"Romania", 'RO'},;
{"Russian Federation", 'RU'},;
{"RWANDA", 'RW'},;
{"Saint Helena", 'SH'},;
{"Saint Kitts and Nevis", 'KN'},;
{"Saint Lucia", 'LC'},;
{"Saint Pierre and Miquelon", 'PM'},;
{"Saint Vincent and the Grenadines", 'VC'},;
{"Samoa", 'WS'},;
{"San Marino", 'SM'},;
{"Sao Tome and Principe", 'ST'},;
{"Saudi Arabia", 'SA'},;
{"Senegal", 'SN'},;
{"Serbia and Montenegro", 'CS'},;
{"Seychelles", 'SC'},;
{"Sierra Leone", 'SL'},;
{"Singapore", 'SG'},;
{"Slovakia", 'SK'},;
{"Slovenia", 'SI'},;
{"Solomon Islands", 'SB'},;
{"Somalia", 'SO'},;
{"South Africa", 'ZA'},;
{"South Georgia and the South Sandwich Islands", 'GS'},;
{"Spain", 'ES'},;
{"Sri Lanka", 'LK'},;
{"Sudan", 'SD'},;
{"Suriname", 'SR'},;
{"Svalbard and Jan Mayen", 'SJ'},;
{"Swaziland", 'SZ'},;
{"Sweden", 'SE'},;
{"Switzerland", 'CH'},;
{"Syrian Arab Republic", 'SY'},;
{"Taiwan, Province of China", 'TW'},;
{"Tajikistan", 'TJ'},;
{"Tanzania, United Republic of", 'TZ'},;
{"Thailand", 'TH'},;
{"Timor-Leste", 'TL'},;
{"Togo", 'TG'},;
{"Tokelau", 'TK'},;
{"Tonga", 'TO'},;
{"Trinidad and Tobago", 'TT'},;
{"Tunisia", 'TN'},;
{"Turkey", 'TR'},;
{"Turkmenistan", 'TM'},;
{"Turks and Caicos Islands", 'TC'},;
{"Tuvalu", 'TV'},;
{"Uganda", 'UG'},;
{"Ukraine", 'UA'},;
{"United Arab Emirates", 'AE'},;
{"United Kingdom", 'GB'},;
{"United States", 'US'},;
{"United States Minor Outlying Islands", 'UM'},;
{"Uruguay", 'UY'},;
{"Uzbekistan", 'UZ'},;
{"Vanuatu", 'VU'},;
{"Venezuela", 'VE'},;
{"Viet Nam", 'VN'},;
{"Virgin Islands, British", 'VG'},;
{"Virgin Islands, U.S.", 'VI'},;
{"Wallis and Futuna", 'WF'},;
{"Western Sahara", 'EH'},;
{"Yemen", 'YE'},;
{"Zambia", 'ZM'},;
{"Zimbabwe", 'ZW'} ;
}
function main()
local oDlg, oGet, cName, cName1, cName2
cName := space(20)
cName1 := space(20)
cName2 := space(20)
define dialog oDlg title "Test Autoget" size 600, 180 pixel
@ 1,2 autoget oGet var cName of oDlg ;
DATASOURCE aCountries;
FILTER ListFilter1( uDataSource, cData, Self );
COLUMN 1 ;
HEIGHTLIST 500
@ 2,2 autoget cName1 of oDlg ;
DATASOURCE aCountries;
FILTER ListFilter2( uDataSource, cData, Self );
COLUMN 1 ;
HEIGHTLIST 100
@ 3,2 autoget cName2 of oDlg ;
DATASOURCE aCountries;
FILTER ListFilter3( uDataSource, cData, Self );
COLUMN 1 ;
HEIGHTLIST 100
@ 3,2 BUTTON "ok" OF odlg ACTION msgalert("Get 1:"+cName)
@ 3,20 BUTTON "cancel" OF odlg 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
//---------------------------------------------------------------------------//
//match case with case sensitive
function ListFilter2( aList, cData, oSelf )
local aNewList := { }
local uItem
for each uItem in oSelf:uOrgData
if SubStr( uItem[ 1 ], 1, Len( cData ) ) == cData
AAdd( aNewList, uItem )
endif
next
RETURN aNewList
//---------------------------------------------------------------------------//
//wild case
function ListFilter3( aList, cData, oSelf )
local aNewList := { }
local uItem
for each uItem in oSelf:uOrgData
if Lower( cData )$ lower( uItem[ 1 ] )
AAdd( aNewList, uItem )
endif
next
RETURN aNewList