|
PROFESSIONAL NEWSGROUPS WINDEV, WEBDEV and WINDEV Mobile |
| | | | | |
WX - Exemplo de Autocomplete |
Started by BOLLER, Dec., 06 2019 1:44 PM - 4 replies |
| |
| | | |
|
| |
Registered member 3,655 messages Popularité : +175 (223 votes) |
|
Posted on December, 06 2019 - 1:44 PM |
Exemplo de Autocomplete
CODIGO DA JANELA
Procedure WIN_AssistedInput_Functions()
CONSTANT IDCloseChrono = 1 END
garrArrCountry is array of strings
Código do campo de texto
evento: Whenever modify // Sempre que modificar
sText is string nPosition is int
AssistedInputDeleteAll(MySelf)
FOR ALL ELEMENT sACountry OF garrArrCountry IF sACountry [~] MySelf THEN sText = sACountry nPosition = Position(sText, MySelf, 1, IgnoreCase) sText = sText[[ TO nPosition-1]] + gFontBold(True) + gPen(LightRed) + sText[[nPosition TO nPosition+Length(MySelf)-1]] + gPen(Black) + gFontBold(False)+ sText[[nPosition+Length(MySelf) TO ]] AssistedInputAdd(MySelf, sText) END END
AssistedInputOpen(MySelf)
EXEMPLO CONSTA EM:
" UNIT EXAMPLES "
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/Message modified, December, 06 2019 - 1:46 PM |
| |
| |
| | | |
|
| | |
| |
Registered member 3,655 messages Popularité : +175 (223 votes) |
|
Posted on December, 06 2019 - 1:45 PM |
Procedure __FillCountries()
sCountryList is string = [ Andorra United Arab Emirates Afghanistan Antigua-AND-Barbuda Albania Armenia Angola Argentina Austria Australia Azerbaijan Bosnia-Herzegovina Barbados Bangladesh Belgium Burkina-Faso Bulgaria Bahrain Burundi Benin Brunei Bolivia Brazil Bahamas Bhutan Botswana Belarus Belize Canada Dem. Rep. of Congo Central African Republic Congo Switzerland Ivory Coast Chile Cameroon China Colombia Costa Rica Cuba Cape Verde Cyprus Czech Republic Germany Djibouti Denmark Dominica Dominican Republic Algeria Ecuador Estonia Egypt Eritrea Spain Ethiopia Finland Fiji Micronesia France Gabon United Kingdom Grenada Georgia Ghana Gambia Guinea Equatorial Guinea Greece Guatemala Guinea-Bissau Guyana Honduras Croatia Haiti Hungary Indonesia Ireland Israel India Iraq Iran Iceland Italy Jamaica Jordan Japan Kenya Kyrgyzstan Cambodia Kiribati Comoros St-Christopher-AND-Nieves North Korea South Korea Kuwait Kazakhstan Laos Lebanon St-Lucia Liechtenstein Sri Lanka Liberia Lesotho Lithuania Luxembourg Latvia Libya Morocco Monaco Moldavia Madagascar Marshall Macedonia Mali Burma Mongolia (the) Malta Mauritius Maldives Malawi Mexico Malaysia Mozambique Namibia Niger Nigeria Nicaragua Netherlands Norway Nepal Nauru New Zealand Oman Panama Peru Papua-New-Guinea Philippines Pakistan Poland Portugal Palaos Paraguay Qatar Romania Russia Rwanda Saudi Arabia Salomon Seychelles Sudan Sweden Singapore Slovenia Slovakia Sierra Leone San Marino Senegal Somalia Suriname Sao Tome-AND-Principe Salvador Syria Swaziland Chad Togo Thailand Tajikistan Turkmenistan Tunisia Tonga Turkey Trinite-AND-Tobago Tuvalu Tanzania Ukraine Uganda United States (the) Uruguay Uzbekistan Holly See (the), OR Vatican (the) St-Vincent-AND-the Grenadines Venezuela Vietnam Vanuatu Samoa Yemen South Africa Zambia Zimbabwe Montenegro Porto Rico Serbia Timor-Leste Netherlands Indies Antarctica American Samoa Aruba Aland, islands Faroe, islands Guernesey Greenland Guam Isle of Man Jersey Caiman, islands Northern Mariannes, islands Montserrat Norfolk, island Virgin Islands of USA ]
StringToArray(sCountryList, garrArrCountry, CR)
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/ |
| |
| |
| | | |
|
| | |
| |
Registered member 3,655 messages Popularité : +175 (223 votes) |
|
Posted on December, 06 2019 - 1:50 PM |
CloseAssistedInput USA CRONOMETRO // TIMER
Procedure CloseAssistedInput()
AssistedInputClose(EDT_Search_3)
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/ |
| |
| |
| | | |
|
| | |
| |
Registered member 3,655 messages Popularité : +175 (223 votes) |
|
Posted on December, 06 2019 - 2:03 PM |
Procedure StringCountAscii(Texto,Caracter)
x, qtde is int = 0
ntotal is int = Length(Texto)
LOOP(ntotal) x++ IF Texto[[x]] = Charact(Caracter) qtde++ END END
RESULT qtde
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/Message modified, December, 06 2019 - 2:04 PM |
| |
| |
| | | |
|
| | |
| |
Registered member 3,655 messages Popularité : +175 (223 votes) |
| | |
|
| | | | |
| | |
| | |
| |
|
|
|