FOLDEREX NO SE ACTIVA AL PRESIONAR BOTON 1

Post Reply
Luis
Posts: 22
Joined: Thu May 06, 2010 7:46 pm
Location: Callao,Perú

FOLDEREX NO SE ACTIVA AL PRESIONAR BOTON 1

Post by Luis »

#include "FiveWin.ch"
static oWn2

//----------------------------------------------------------------------------//
Function SISING()

if "SISING" $ ProcName(1)
return
endif

DEFINE WINDOW oWn2 from 0,0 to 44.9,125 TITLE "A Window"

ACTIVATE WINDOW oWn2 ;
ON INIT TestDialog()

return nil

//-------------------//
Function TestDialog()

local oDlg, oBtn[11], oFld, vFl := 1, oFont
LOCAL oObj[15],;
vVar := { "Space(08)",;
"Space(08)",;
"Space(08)",;
"Space(08)",;
"Space(08)",;
"Space(08)",;
"Space(08)",;
"Space(08)",;
"Space(08)",;
"Space(08)",;
"Space(08)",;
"Space(08)",;
"Space(08)",;
"Space(08)",;
"Space(08)" }

DEFINE FONT oFont NAME "Arial" SIZE 0, -16
DEFINE DIALOG oDlg RESOURCE "MANTENIMIENTOS3" FONT oF oWn2

REDEFINE BTNBMP oBtn[01] ID 170 RESOURCE 1290 OF oDlg ACTION (vFl := 1,ChangeDlg( oFld,1,oDlg))
REDEFINE BTNBMP oBtn[02] ID 180 RESOURCE 1280 OF oDlg ACTION (vFl := 2,ChangeDlg( oFld,2 ))
REDEFINE BTNBMP oBtn[03] ID 190 RESOURCE 1270 OF oDlg ACTION (vFl := 3,ChangeDlg( oFld,3 ))
REDEFINE BTNBMP oBtn[04] ID 200 RESOURCE 1291 OF oDlg ACTION (vFl := 4,ChangeDlg( oFld,4 ))
REDEFINE BTNBMP oBtn[05] ID 210 RESOURCE 1210 OF oDlg ACTION (vFl := 5,ChangeDlg( oFld,5 ))
REDEFINE BTNBMP oBtn[06] ID 240 RESOURCE 1240 OF oDlg ACTION oWn2:End()

REDEFINE FOLDEREX oFld ID 101 PROMPT "Turno "+Space(20),"Opción 2 "+Space(10) OF oDlg;
BITMAPS "new","new";
DIALOGS "TURNO","";
ROUND
If vFl = 1
REDEFINE GET oObj[01] VAR vVar ID 125 OF oFld:aDialogs[ 1 ] UPDATE
REDEFINE GET oObj[02] VAR vVar ID 104 OF oFld:aDialogs[ 1 ] UPDATE
REDEFINE GET oObj[03] VAR vVar ID 103 OF oFld:aDialogs[ 1 ] UPDATE
REDEFINE GET oObj[04] VAR vVar ID 102 OF oFld:aDialogs[ 1 ] UPDATE
REDEFINE GET oObj[05] VAR vVar ID 111 OF oFld:aDialogs[ 1 ] UPDATE
REDEFINE GET oObj[06] VAR vVar ID 105 OF oFld:aDialogs[ 1 ] UPDATE
REDEFINE GET oObj[07] VAR vVar ID 108 OF oFld:aDialogs[ 1 ] UPDATE
REDEFINE GET oObj[08] VAR vVar ID 109 OF oFld:aDialogs[ 1 ] UPDATE
REDEFINE GET oObj[09] VAR vVar ID 107 OF oFld:aDialogs[ 1 ] UPDATE
REDEFINE GET oObj[10] VAR vVar ID 106 OF oFld:aDialogs[ 1 ] UPDATE
REDEFINE GET oObj[11] VAR vVar ID 112 OF oFld:aDialogs[ 1 ] UPDATE
REDEFINE GET oObj[12] VAR vVar ID 116 OF oFld:aDialogs[ 1 ] UPDATE
REDEFINE GET oObj[13] VAR vVar ID 117 OF oFld:aDialogs[ 1 ] UPDATE
REDEFINE GET oObj[14] VAR vVar ID 115 OF oFld:aDialogs[ 1 ] UPDATE
REDEFINE GET oObj[15] VAR vVar ID 114 OF oFld:aDialogs[ 1 ] UPDATE
Endi

oFld:SetOption( 1 )
oFld:EnableTab( 1 )


REDEFINE BTNBMP oBtn[07] ID 102 RESOURCE 5170 OF oDlg
REDEFINE BTNBMP oBtn[08] ID 103 RESOURCE 5180 OF oDlg
REDEFINE BTNBMP oBtn[09] ID 104 RESOURCE 5190 OF oDlg
REDEFINE BTNBMP oBtn[10] ID 105 RESOURCE 5210 OF oDlg
REDEFINE BTNBMP oBtn[11] ID 106 RESOURCE 5240 OF oDlg

ACTIVATE DIALOG oDlg NOWAIT ON INIT (oDlg:Move(0,0))
oFont:End()

return nil

//--------------------------//
Function ChangeDlg( oFld,vFl,oDlg )
Local mdlg:={}, i, nVez, nTit:={}


For i:=1 to LEN(oFld:aPrompts)
oFld:aDialogs[ i ]:bValid = nil
oFld:aDialogs[ i ]:End()
oFld:aPrompts[ i ]:="Opción "+Space(10)+Trans(i,"99")
Next
Do Case
Case vFl = 1
nVez := 1
nTit:={"Turnos"}
mdlg = {"TURNO"}
Case vFl = 2
nVez := 1
nTit:={"Eventos"}
mdlg = {"Eventos"}
Case vFl = 3
nVez := 2
nTit:={"Personales","Generales"}
mdlg = {"EMPSUB1","EMPSUB2"}
Case vFl = 4
nVez := 1
nTit:={"Seguridad"}
mdlg = {"EMPSUB4"}
Case vFl = 5
nVez := 1
nTit:={"Reportes"}
mdlg = {"EMPSUB4"}
Endc
For i := 1 to nVez
oFld:aPrompts:=nTit[ i ]
DEFINE DIALOG oFld:aDialogs[ i ] RESOURCE mdlg OF oFld ;
FONT oFld:oFont

ACTIVATE DIALOG oFld:aDialogs[ i ] NOWAIT ;
ON INIT oFld:aDialogs[ i ]:Move( oFld:nFolderHeight - 1, 1 ) ;
VALID .f.

oFld:aDialogs[ i ]:SetSize( oFld:nWidth() - 4,;
oFld:nHeight() - oFld:nFolderHeight - 2 )
oFld:aDialogs[ i ]:AEvalWhen()
Next


Return nil

arhivo rc
MANTENIMIENTOS3 DIALOG 5, 3, 662, 396
STYLE WS_CHILD | WS_VISIBLE
FONT 8, "Arial"
{
CONTROL "", -1, "STATIC", SS_BLACKFRAME | WS_CHILD | WS_VISIBLE, 23, 3, 431, 71
CONTROL "", -1, "STATIC", SS_BLACKFRAME | WS_CHILD | WS_VISIBLE, 25, 5, 427, 67
CONTROL "", 170, "TBtnBmp", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 26, 7, 70, 64
CONTROL "", 180, "TBtnBmp", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 97, 7, 70, 64
CONTROL "", 190, "TBtnBmp", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 168, 7, 70, 64
CONTROL "", 200, "TBtnBmp", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 239, 7, 70, 64
CONTROL "", 210, "TBtnBmp", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 310, 7, 70, 64
CONTROL "", 240, "TBtnBmp", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 381, 7, 70, 64
CONTROL "", 101, "TFOLDEREX", 0 | WS_CHILD | WS_VISIBLE, 7, 84, 585, 301
CONTROL "", -1, "STATIC", SS_BLACKFRAME | WS_CHILD | WS_VISIBLE, 599, 98, 55, 287
CONTROL "", 102, "TBtnBmp", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 602, 103, 50, 42
CONTROL "", 103, "TBtnBmp", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 602, 161, 50, 42
CONTROL "", 104, "TBtnBmp", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 602, 219, 50, 42
CONTROL "", 105, "TBtnBmp", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 602, 279, 50, 42
CONTROL "", 106, "TBtnBmp", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 602, 337, 50, 42
}
POR FAVOR ALGUNA AYUDA. MUCHAS GRACIAS.
Top
Luis
Posts: 22
Joined: Thu May 06, 2010 7:46 pm
Location: Callao,Perú

Re: FOLDEREX NO SE ACTIVA AL PRESIONAR BOTON 1

Post by Luis »

archivo .rc "faltaba "

TURNO DIALOG 9, 28, 583, 273
STYLE WS_CHILD
FONT 8, "MS Sans Serif"
{
CONTROL "", 125, "EDIT", ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 76, 19, 40, 12
CONTROL "", 104, "EDIT", ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 76, 69, 39, 12
CONTROL "", 103, "EDIT", ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 76, 119, 40, 12
CONTROL "", 102, "EDIT", ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 76, 157, 40, 12
CONTROL "", 111, "EDIT", ES_RIGHT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 76, 186, 40, 12
CONTROL "", 105, "EDIT", ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 274, 19, 40, 12
CONTROL "", 108, "EDIT", ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 274, 69, 40, 12
CONTROL "", 109, "EDIT", ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 276, 121, 40, 12
CONTROL "", 107, "EDIT", ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 276, 157, 40, 12
CONTROL "", 106, "EDIT", ES_RIGHT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 276, 186, 40, 12
CONTROL "", 112, "EDIT", ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 462, 19, 40, 12
CONTROL "", 116, "EDIT", ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 462, 69, 40, 12
CONTROL "", 117, "EDIT", ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 462, 121, 40, 12
CONTROL "", 115, "EDIT", ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 462, 157, 40, 12
CONTROL "", 114, "EDIT", ES_RIGHT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 462, 186, 40, 12
CONTROL "Inicio Refrigerio", -1, "STATIC", SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 8, 51, 103, 12
CONTROL "Ingreso", -1, "STATIC", SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 8, 20, 64, 12
CONTROL "Final Refrigerio", -1, "STATIC", SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 11, 99, 105, 12
CONTROL "Salida", -1, "STATIC", SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 8, 159, 62, 11
CONTROL "Tolerancia", -1, "STATIC", SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 9, 187, 62, 11
CONTROL "Turno Mañana", 113, "BUTTON", BS_GROUPBOX | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 5, 2, 183, 40
CONTROL "Turno Tarde", 110, "BUTTON", BS_GROUPBOX | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 202, 2, 183, 41
CONTROL "Turno Noche", 118, "BUTTON", BS_GROUPBOX | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 391, 2, 183, 41
CONTROL "Inicio Refrigerio", -1, "STATIC", SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 206, 51, 103, 12
CONTROL "Ingreso", -1, "STATIC", SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 206, 20, 64, 12
CONTROL "Final Refrigerio", -1, "STATIC", SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 209, 99, 105, 12
CONTROL "Salida", -1, "STATIC", SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 206, 159, 62, 11
CONTROL "Tolerancia", -1, "STATIC", SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 207, 187, 62, 11
CONTROL "Inicio Refrigerio", -1, "STATIC", SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 394, 51, 103, 12
CONTROL "Ingreso", -1, "STATIC", SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 394, 20, 64, 12
CONTROL "Final Refrigerio", -1, "STATIC", SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 397, 99, 105, 12
CONTROL "Salida", -1, "STATIC", SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 394, 159, 62, 11
CONTROL "Tolerancia", -1, "STATIC", SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 395, 187, 62, 11
CONTROL "", 119, "BUTTON", BS_GROUPBOX | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 391, 38, 183, 107
CONTROL "", 120, "BUTTON", BS_GROUPBOX | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 391, 140, 183, 128
CONTROL "", 121, "BUTTON", BS_GROUPBOX | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 202, 38, 183, 107
CONTROL "", 122, "BUTTON", BS_GROUPBOX | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 202, 140, 183, 128
CONTROL "", 123, "BUTTON", BS_GROUPBOX | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 5, 37, 183, 107
CONTROL "", 124, "BUTTON", BS_GROUPBOX | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 5, 139, 183, 128
}
estoy a la espera de alguna respuesta muchas gracias.
Top
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:
Contact Antonio Linares

Re: FOLDEREX NO SE ACTIVA AL PRESIONAR BOTON 1

Post by Antonio Linares »

Luis,

No se exactamente que es lo que quieres hacer, pero aqui al pulsar el primer botón superior, el control FolderEx toma el foco y su primer GET.

En la función ChangeDlg() veo que defines y activas diálogos, no se cual es el propósito de ese código, pues el control FolderEx ya administra sus propios diálogos, por lo que solo tendrías que darle foco. Por eso te digo que no entiendo cual es el propósito de tu código.

Aqui tienes el EXE:
http://code.google.com/p/fivewin-contri ... p&can=2&q=
regards, saludos

Antonio Linares
www.fivetechsoft.com
Top
Luis
Posts: 22
Joined: Thu May 06, 2010 7:46 pm
Location: Callao,Perú

Re: FOLDEREX NO SE ACTIVA AL PRESIONAR BOTON 1

Post by Luis »

Hola Antonio:

Tengo 05 botones los cuales cada uno tiene su propio dialogo
si presiono boton 1 aparece en el folderex su dialogo asi en
cada una de los botones hasta ahi todo normal aparece los dialogos
en el foderex; el problema ocurre que no puedo editar nada si ves
en el fuente puse "space(08)" en las variable como texto para cuando
presione boton 1 aparesca el dialogo (que si aparece) y en cada get
"space(08)" pero todos _ get sale en blanco ni tampoco
me permite editar _.

Gracias.
Luis
Top
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:
Contact Antonio Linares

Re: FOLDEREX NO SE ACTIVA AL PRESIONAR BOTON 1

Post by Antonio Linares »

Luis,

Al crear el control FolderEx por que no especificas directamente los diálogos a usar ? TFolderEx los manejará automaticamente:

REDEFINE FOLDEREX oFld ... DIALOGS "TURNO", "EVENTOS", "EMPSUB1", ...
regards, saludos

Antonio Linares
www.fivetechsoft.com
Top
Post Reply

Return to “FiveWin para Harbour/xHarbour”