autoget da un comportamiento raro, cuando se aplica WindowsXP.Manifest modificando el ejemplo:
#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"
#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
