FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour btnbmp
Posts: 652
Joined: Wed Oct 19, 2005 12:03 PM
btnbmp
Posted: Wed Apr 30, 2008 12:53 PM

Hice un prg con la vista de 50 botones y el c贸digo que implemente fue primero fue el mas o menos fue el siguiente

for z = 1 to 50 // cantidad de cheques

REDEFINE BTNBMP btn[z] RESOURCE cResource(oCheque) ID (nId +z ) CENTER PROMPT (oCheque:numero) ACTION CAMBIOCH(ocheque) OF ODLG UPDATE

oCheque:skip()
next

//

Funcin贸 bien salvo cuando presionaba cualquier boton siempre iba al 煤tlimo

el c贸digo final fue repetir 50 veces el mismo c贸digo , y en vez de usar database usar un array:

REDEFINE BTNBMP btn[1] RESOURCE cResource(aDetalle[ 1,2],aDetalle[ 1,5],aDetalle[1,6]) ID (nId) CENTER PROMPT (aDetalle[ 1,1]) ACTION CAMBIOCH(aDetalle[1,7],oCheque,btn[1],ODLG) OF ODLG UPDATE

mi pregunta es la siguiente se puede reducir este c贸digo como quise hacer m谩s arriba

Gracias

Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
btnbmp
Posted: Wed Apr 30, 2008 04:13 PM
Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

Continue the discussion