FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Falla en Combobox que no puedo encontrar
Posts: 1279
Joined: Mon Feb 06, 2006 04:28 PM
Falla en Combobox que no puedo encontrar
Posted: Mon May 17, 2021 03:19 PM
Adjunto un ejemplo que muestra una falla en un combobox que no se explicar y solo ocurre desde recursos no desde c贸digo.
El combobox utiliza un array de texto (varios elementos) que es elemento de uno tridimensional y despliega un combobox.

Si lo hago con c贸digo, devolver谩 correctamente el ordinal de la opci贸n elegida.

Si lo hago con recursos, DEVOLVERA SIEMPRE CERO Y ADEMAS SI DOY CLICK EN EL GET DEL COMBO DA ERROR.

Code (fw): Select all Collapse
#include "fivewin.ch"

FUNCTION main()
LOCAL aListas:={}, oDlg, oCbx, nItem

聽 聽 聽nItem:=0
聽 聽 聽aListas :={ { { "Vaca", "Novillo" , "Vaquillona", "Toro" } , { "Jose", "Cno. Juarez 1515", "Montevideo" } }, ;
聽 聽 聽 聽 聽 聽 聽 聽 { { "Vaca", "Novillo" , "Vaquillona", "Toro" } , { "Jose", "Cno. Juarez 1516", "Montevideo" } } }

聽 聽 聽DEFINE DIALOG oDlg SIZE 500,300 TITLE "Ventana"
聽 聽 // DEFINE DIALOG oDlg RESOURCE "dlg_1" TITLE "Ventana"

聽 聽 聽 聽 聽@ 20, 20 COMBOBOX oCbx VAR nItem ITEMS aListas[2][2] SIZE 200, 20 OF oDlg PIXEL 聽 聽//"Ternero", "no Nato" 聽 聽 //asi anda bien
聽 聽 聽 聽 // REDEFINE COMBOBOX oCbx VAR nItem ID 101 ITEMS aListas[2][2] 聽OF oDlg 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 //asi siempre da cero

聽 聽 聽ACTIVATE DIALOG oDlg 聽center

聽 聽 聽?nItem

RETURN nil


Recurso que utilizo:
Code (fw): Select all Collapse
// Generated by ResEdit 1.6.6
// Copyright (C) 2006-2015
// <!-- m --><a class="postlink" href="http://www.resedit.net">http://www.resedit.net</a><!-- m -->

#include "C:\bcc7\include\windows\sdk\windows.h"
#include "C:\bcc7\include\windows\sdk\commctrl.h"
#include "C:\bcc7\include\windows\sdk\richedit.h"
#include "resource.h"

//
// Dialog resources
//
LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL
DLG_1 DIALOG 0, 0, 288, 163
STYLE DS_3DLOOK | DS_CENTER | DS_MODALFRAME | DS_SHELLFONT | WS_CAPTION | WS_VISIBLE | WS_POPUP | WS_SYSMENU
CAPTION "Ventana"
FONT 8, "Ms Shell Dlg"
{
聽 聽 LTEXT 聽 聽 聽 聽 聽 "Seleccion:", 0, 49, 68, 34, 9, SS_LEFT, WS_EX_LEFT
聽 聽 COMBOBOX 聽 聽 聽 聽101, 97, 66, 143, 30, CBS_DROPDOWN | CBS_HASSTRINGS, WS_EX_LEFT
}



//
// Manifest resources
//
LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL
1 聽 聽 聽 聽 聽 聽 聽 聽 聽RT_MANIFEST 聽 聽".\\manifest.xml"


Me est谩 volviendo loco, porque necesito que funcione en estas condiciones y no lo logro
Saludos/Regards,

Jos茅 Murugosa

"Los errores en programaci贸n, siempre est谩n entre la silla, el teclado y la IA!!"
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
Re: Falla en Combobox que no puedo encontrar
Posted: Mon May 17, 2021 05:56 PM
Intente con:

Code (fw): Select all Collapse
CBS_DROPDOWNLIST


Code (fw): Select all Collapse
 COMBOBOX 101, 338, 131, 40, 41, CBS_DROPDOWNLIST | WS_TABSTOP


Saludos.
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 1279
Joined: Mon Feb 06, 2006 04:28 PM
Re: Falla en Combobox que no puedo encontrar
Posted: Tue May 18, 2021 09:44 AM
karinha wrote:Intente con:

Code (fw): Select all Collapse
CBS_DROPDOWNLIST


Code (fw): Select all Collapse
聽COMBOBOX 101, 338, 131, 40, 41, CBS_DROPDOWNLIST | WS_TABSTOP


Saludos.


Muchisimas Gracias!!!

Reemplace el texto en todos los combos y funcionaron a la perfecci贸n!!!!

Un abrazo desde Uruguay!
Saludos/Regards,

Jos茅 Murugosa

"Los errores en programaci贸n, siempre est谩n entre la silla, el teclado y la IA!!"

Continue the discussion