Adjunto un gif, no sé si se aprecia a qué me refiero ...
- 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'},;
{"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
