Problema grafico 1

[Ugo]

Ho riscontrato un piccolo problema grafico sul primo radio controllo dopo essermi spostato solo con la tastiera.
Al primo giro, quando prende il fuoco il radio, non viene visualizzata la retinatura attorno all'etichetta, mentre se proseguo, al 2° giro si!
Questo è l'esempio:

Code: Select all  Expand view  RUN

function Main()

   Local oDlg, cVar1, cVar2, nVar1, nVar2, cVar3, lVar1, lVar2

   cVar1 := "Test1"
   cVar2 := "Test2"
   cVar3 := "One"
   lVar1 := .T.
   lVar2 := .T.
   nVar1 := 1
   nVar2 := 2

   DEFINE DIALOG oDlg

   @ 1,1 GET cVar1 WHEN lVar1
   @ 2,1 GET cVar2 WHEN lVar1
   @ 1,5 RADIO nVar1 ITEMS "Prova1", "Prova2" OF oDlg WHEN lVar1
   @ 3,1 COMBOBOX cVar3 ITEMS { "One", "Two", "Three", "Four" } OF oDlg WHEN lVar1
   @ 1,10 RADIO nVar2 ITEMS "Prova1", "Prova2" OF oDlg WHEN lVar1
   @ 3,8 CHECKBOX lVar2 PROMPT "Test" OF oDlg WHEN lVar1 SIZE 50, 12
   @ 3,16 CHECKBOX lVar1 PROMPT "Test" OF oDlg SIZE 50, 12 ON CHANGE oDlg:AEvalWhen( oDlg )

   ACTIVATE DIALOG oDlg

   RETURN Nil

E' possibile risolvere?
Grazie per l'aiuto.

[Ugo]

Stessa situazione con le risorse:

Code: Select all  Expand view  RUN

function Main()

   Local oDlg, cVar1, cVar2, nVar1, nVar2, cVar3, lVar1, lVar2

   cVar1 := "Test1"
   cVar2 := "Test2"
   cVar3 := "One"
   lVar1 := .T.
   nVar1 := 1
   lVar2 := .T.
   nVar2 := 2

   DEFINE DIALOG oDlg RESOURCE "TestTABULATORE"

   REDEFINE GET cVar1 ID 101 OF oDlg WHEN lVar1
   REDEFINE GET cVar2 ID 102 OF oDlg WHEN lVar1
   REDEFINE RADIO nVar1 ID 103, 104 of oDlg WHEN lVar1
   REDEFINE RADIO nVar2 ID 105, 106 of oDlg WHEN lVar1
   REDEFINE COMBOBOX cVar3 ITEMS { "One", "Two", "Three", "Four" } ID 107 OF oDlg WHEN lVar1
   REDEFINE CHECKBOX lVar2 ID 108 OF oDlg WHEN lVar1
   REDEFINE CHECKBOX lVar1 ID 109 OF oDlg ON CHANGE oDlg:AEvalWhen( oDlg )

   ACTIVATE DIALOG oDlg

   RETURN Nil

con queste risorse:

Code: Select all  Expand view  RUN

TestTABULATORE DIALOG 6, 15, 222, 127
STYLE WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME | WS_MINIMIZEBOX | WS_MAXIMIZEBOX
CAPTION "Test TAB"
FONT 8, "MS Sans Serif"
{
EDITTEXT 101, 15, 18, 39, 12
EDITTEXT 102, 17, 35, 37, 12
CONTROL "Radio", 103, "BUTTON", BS_AUTORADIOBUTTON, 78, 19, 60, 12
CONTROL "Radio", 104, "BUTTON", BS_AUTORADIOBUTTON, 79, 33, 60, 12
CONTROL "Radio", 105, "BUTTON", BS_AUTORADIOBUTTON, 147, 20, 60, 12
CONTROL "Radio", 106, "BUTTON", BS_AUTORADIOBUTTON, 147, 32, 60, 12
CHECKBOX "Checkbox", 108, 119, 92, 60, 12, BS_AUTOCHECKBOX | WS_TABSTOP
COMBOBOX 107, 22, 65, 49, 33, CBS_DROPDOWNLIST | WS_TABSTOP
GROUPBOX "Group", -1, 8, 5, 204, 110, BS_GROUPBOX
CHECKBOX "Checkbox", 109, 29, 92, 60, 12, BS_AUTOCHECKBOX | WS_TABSTOP
}

[Ugo]

Se invece uso il folder con i resources non mi appare mai la retinatura attorno ai Check e ai radio button:

Code: Select all  Expand view  RUN

function Main()

   Local oDlg, cVar1, cVar2, nVar1, nVar2, cVar3, lVar1, lVar2, oFld, oCbx

   cVar1 := "Test1"
   cVar2 := "Test2"
   cVar3 := "One"
   lVar1 := .T.
   nVar1 := 1
   lVar2 := .T.
   nVar2 := 2

   DEFINE DIALOG oDlg RESOURCE "TestTabFolder"

   REDEFINE FOLDER oFld ID 1000 ITEMS "Test1", "Test2" DIALOGS "Folder", "Folder" OF oDlg

   REDEFINE GET cVar1 ID 101 OF oFld:aDialogs[1] WHEN lVar1
   REDEFINE GET cVar2 ID 102 OF oFld:aDialogs[1] WHEN lVar1
   REDEFINE RADIO nVar1 ID 103, 104 OF oFld:aDialogs[1] WHEN lVar1
   REDEFINE RADIO nVar2 ID 105, 106 OF oFld:aDialogs[1] WHEN lVar1
   REDEFINE COMBOBOX oCbx VAR cVar3 ITEMS { "One", "Two", "Three", "Four" } ID 107 OF oFld:aDialogs[1] WHEN lVar1
   REDEFINE CHECKBOX lVar2 ID 108 OF oFld:aDialogs[1] WHEN lVar1
   REDEFINE CHECKBOX lVar1 ID 109 OF oFld:aDialogs[1] ON CHANGE oDlg:AEvalWhen( oFld[1] )

   REDEFINE GET cVar1 ID 101 OF oFld:aDialogs[2] WHEN lVar1
   REDEFINE GET cVar2 ID 102 OF oFld:aDialogs[2] WHEN lVar1
   REDEFINE RADIO nVar1 ID 103, 104 OF oFld:aDialogs[2] WHEN lVar1
   REDEFINE RADIO nVar2 ID 105, 106 OF oFld:aDialogs[2] WHEN lVar1
   REDEFINE COMBOBOX cVar3 ITEMS { "One", "Two", "Three", "Four" } ID 107 OF oFld:aDialogs[2] WHEN lVar1
   REDEFINE CHECKBOX lVar2 ID 108 OF oFld:aDialogs[2] WHEN lVar1
   REDEFINE CHECKBOX lVar1 ID 109 OF oFld:aDialogs[2] ON CHANGE oDlg:AEvalWhen( oFld[2] )

   ACTIVATE DIALOG oDlg

   RETURN Nil

con questa dialog:

Code: Select all  Expand view  RUN

TestTabFolder DIALOG 6, 15, 222, 127
STYLE WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME | WS_MINIMIZEBOX | WS_MAXIMIZEBOX
CAPTION "Test TAB Folder"
FONT 8, "MS Sans Serif"
{
CONTROL "SysTabControl32", 1000, "SysTabControl32", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 3, 4, 216, 123
}

e questo folder:

Code: Select all  Expand view  RUN

Folder DIALOG 6, 15, 213, 114
STYLE WS_CHILD | WS_VISIBLE | WS_BORDER
FONT 8, "MS Sans Serif"
{
EDITTEXT 101, 11, 17, 39, 12
EDITTEXT 102, 13, 34, 37, 12
CONTROL "Radio", 103, "BUTTON", BS_AUTORADIOBUTTON, 74, 18, 60, 12
CONTROL "Radio", 104, "BUTTON", BS_AUTORADIOBUTTON, 75, 32, 60, 12
CONTROL "Radio", 105, "BUTTON", BS_AUTORADIOBUTTON, 143, 19, 60, 12
CONTROL "Radio", 106, "BUTTON", BS_AUTORADIOBUTTON, 143, 31, 60, 12
CHECKBOX "Checkbox", 108, 115, 91, 60, 12, BS_AUTOCHECKBOX | WS_TABSTOP
COMBOBOX 107, 18, 64, 49, 33, CBS_DROPDOWNLIST | WS_TABSTOP
GROUPBOX "Group", -1, 4, 4, 204, 110, BS_GROUPBOX
CHECKBOX "Checkbox", 109, 25, 91, 60, 12, BS_AUTOCHECKBOX | WS_TABSTOP
}

[Enrico Maria Giordano]

Ho riscontrato un piccolo problema grafico sul primo radio controllo dopo essermi spostato solo con la tastiera.
Al primo giro, quando prende il fuoco il radio, non viene visualizzata la retinatura attorno all'etichetta, mentre se proseguo, al 2° giro si!
Questo è l'esempio:

Code: Select all  Expand view  RUN

function Main()

   Local oDlg, cVar1, cVar2, nVar1, nVar2, cVar3, lVar1, lVar2

   cVar1 := "Test1"
   cVar2 := "Test2"
   cVar3 := "One"
   lVar1 := .T.
   lVar2 := .T.
   nVar1 := 1
   nVar2 := 2

   DEFINE DIALOG oDlg

   @ 1,1 GET cVar1 WHEN lVar1
   @ 2,1 GET cVar2 WHEN lVar1
   @ 1,5 RADIO nVar1 ITEMS "Prova1", "Prova2" OF oDlg WHEN lVar1
   @ 3,1 COMBOBOX cVar3 ITEMS { "One", "Two", "Three", "Four" } OF oDlg WHEN lVar1
   @ 1,10 RADIO nVar2 ITEMS "Prova1", "Prova2" OF oDlg WHEN lVar1
   @ 3,8 CHECKBOX lVar2 PROMPT "Test" OF oDlg WHEN lVar1 SIZE 50, 12
   @ 3,16 CHECKBOX lVar1 PROMPT "Test" OF oDlg SIZE 50, 12 ON CHANGE oDlg:AEvalWhen( oDlg )

   ACTIVATE DIALOG oDlg

   RETURN Nil

E' possibile risolvere?
Grazie per l'aiuto.

Non confermo il problema con l'esempio di cui sopra. Potrebbe dipendere dalla tua versione di FWH o di Windows?

EMG

[Ugo]

Non confermo il problema con l'esempio di cui sopra. Potrebbe dipendere dalla tua versione di FWH o di Windows?

Ciao Enrico,
la mia versione di fwh risale al maggio-giugno scorso, potresti inviarmi l'exe al mio indirizzo di posta provato così verifico se è windows?

Grazie.

[Enrico Maria Giordano]

Inviato. Facci sapere.

EMG

[Ugo]

Inviato. Facci sapere.

Enrico,
purtroppo il tuo eseguibile si comporta nello stesso modo
La versione di windows installata è:Windows XP Sp. 2 con tutti gli aggiornamenti.
Hai qualche suggerimento?

[Ugo]

Inviato. Facci sapere.

Enrico,
se ti fosse possibile potresti provare anche quella con il folder (la 3°)?
In effetti è quella dove i Clienti lamentanto l'impossibilità di individuare dov'è il focus, e a me non appare mai nel test, mentre solo tenendo premuto a lungo il TAB nel programma dopo qualche giro sui controlli fa scattare la visualizzazione della retinatura anche sui Radio e Check.
Grazie.

[Enrico Maria Giordano]

Inviato. Facci sapere.

Enrico,
purtroppo il tuo eseguibile si comporta nello stesso modo
La versione di windows installata è:Windows XP Sp. 2 con tutti gli aggiornamenti.
Hai qualche suggerimento?

Anch'io ho la stessa versione di Windows e quindi non capisco proprio perché il programma dovrebbe comportarsi diversamente...

EMG

[Enrico Maria Giordano]

Inviato. Facci sapere.

Enrico,
se ti fosse possibile potresti provare anche quella con il folder (la 3°)?
In effetti è quella dove i Clienti lamentanto l'impossibilità di individuare dov'è il focus, e a me non appare mai nel test, mentre solo tenendo premuto a lungo il TAB nel programma dopo qualche giro sui controlli fa scattare la visualizzazione della retinatura anche sui Radio e Check.
Grazie.

Provato. Qui funziona regolarmente e la retinatura si vede perfettamente. A questo punto credo possa essere una qualche impostazione del sistema, ad esempio colori, dimensione dei caratteri, tema, etc. Riesci a provarlo su una macchina con XP appena installato con tutte le impostazioni di default?

EMG

[Ugo]

Provato. Qui funziona regolarmente e la retinatura si vede perfettamente. A questo punto credo possa essere una qualche impostazione del sistema, ad esempio colori, dimensione dei caratteri, tema, etc. Riesci a provarlo su una macchina con XP appena installato con tutte le impostazioni di default?

Enrico,
Certo che lo posso fare...
dal cliente che lo ha notato, è installato Windows 2000 non so con quale service pack.
Comunque, il mio computer è impostato con i colori, caratteri e tema di default.
Potresti invarmi anche l'exe con i folder? così provo anche il tuo,
poiché ho letto che ci sono stati degli aggiornamenti sui folder, non vorrei mai...
Grazie.

[Enrico Maria Giordano]

Inviato.

EMG

[Ugo]

Inviato

Enrico,
ho fatto un sacco di prove senza risultati!
a questo punto sei tu che hai delle impostazioni particolari?
Quali?
Se gentilmente qualcun'altro potesse testare il programma e riportare se, senza usare assolutamente il mouse dopo aver lanciato il programma, e spostandosi con il <TAB> dopo le get si evidenzia la posizione attuale (focus) visualizzando la retinatura attorno al prompt del checkbox/radio button, al primo giro, nell'esempio con i folder, a me, no si visualizzano MAI.

Grazie per i vostri test.

[Enrico Maria Giordano]

Enrico,
ho fatto un sacco di prove senza risultati!
a questo punto sei tu che hai delle impostazioni particolari?
Quali?

Non saprei proprio. Vediamo se qualcun'altro fa la prova...

EMG

[Silvio]

in windows 200 sp4 tutto ok non ho visto nessuna retinatura
in windows Xp non vedo retinatura ma vedo il group box che non ha fine e il contorno del folder sembrerebbe marcato di nero ...mhmm strano !!!