Tget lostofocus error on combobox
Posted: Fri Oct 30, 2020 7:53 am
got this error by selecting a combo
the source
Code: Select all
#include "fivewin.ch"
#include "constant.ch"
Function Test()
local oDlg,oBar,oFont,oBold
local nBottom := 24
local nRight := 102
local nWidth := Max( nRight * DLG_CHARPIX_W, 180 )
local nHeight := nBottom * DLG_CHARPIX_H
local aGet[17]
local nTipoElemento:= 1
local nTipoData:= 2
local aElemento :={"Testo","Immagine","Barcode"}
local cDescrizione:=space(40)
local aTipoData :={"Campo","Valore"}
DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
DEFINE DIALOG oDlg ;
TITLE "Riga modulo" ;
SIZE nWidth, nHeight PIXEL FONT oFont ;
STYLE nOr( DS_MODALFRAME, WS_POPUP, WS_CAPTION, 4 ) ;
COLOR CLR_BLACK, nRgb( 245,244,234)
@ 8, 5 Say "Tipo Elemento " SIZE 80,14 PIXEL OF oDlg TRANSPARENT
@ 8, 75 COMBOBOX aGet[1] VAR nTipoElemento ITEMS aElemento SIZE 50,90 PIXEL OF oDlg STYLE CBS_DROPDOWN
@ 24, 5 Say "Dato da Stampare" SIZE 90,20 PIXEL OF oDlg TRANSPARENT
@ 22, 75 COMBOBOX aGet[2] VAR nTipoData ITEMS aTipoData SIZE 50,90 PIXEL OF oDlg STYLE CBS_DROPDOWN
ACTIVATE DIALOG oDlg CENTERED ;
ON INIT ( nTipoData:=2it run only rem STYLE CBS_DROPDOWN why ???????