Hola!,
Muchos clientes nos piden poder personalizar los diálogos: cambiar de lugar los campos, modificar los textos de los says...
Parece que ese producto hace eso, pêro Timm lleva anos desaparecido. Alguien ló usa?.
Muchas gracias por lá ayuda.
IF RESOLUCION = 800X600
// pantalla con el tamaño de 800x60
DEFINE DIALOG...RESOURCE "DLG_800_600"
ELSEIF RESOLUCION = 1024X760
DEFINE DIALOG...RESOURCE "DLG_1024_760"
ELSIF...
ELSEIF...
ELSEIF..
ENDIFObrigado, pêro el cliente quiere cambiar los says, lá posicion de los controles.
Seria muy interesante esta funcionalidad lá verdad.
Eduardo,
Si a cualquier control de FWH le cambias la propiedad lDesign:
oControl:lDesign := .T.
entonces el usuario puede moverlo y redimensionarlo, etc. Revisa el ejemplo FWH\samples\design.prg
Es tan sencillo como que cambies la DATA lDesign de los controles que quieras permitirle al usuario modificar 
Luego faltaría guardar las nuevas propiedades en la forma en que te sea más conveniente
Antonio,
Muchas gracias. Y como puedo hacer que el usuário cambie el nombre de los says?. És que quieren poder cambiar su nombre para personalizar los campos.
Muchas gracias
Eduardo,
Prueba y revisa el ejemplo que te he comentado (samples\design.prg) y pulsa el botón derecho del ratón sobre un SAY u otro control
#include "FiveWin.ch"
function Main()
local oDlg, oFind, oBtn
local cFind := space( 100 )
local nDir := 1
local lCase := .t., lWord := .f.
DEFINE DIALOG oDlg RESOURCE "Test"
REDEFINE GET oFind VAR cFind ID 101 OF oDlg
oFind:bPostKey := { |x,y| if( empty( y ), oBtn:Disable(), oBtn:Enable() ) }
REDEFINE RADIO nDir ID 102, 103 OF oDlg
REDEFINE CHECKBOX lCase ID 104 OF oDlg
REDEFINE CHECKBOX lWord ID 105 OF oDlg
REDEFINE BUTTON oBtn ID 201 ACTION MsgInfo( "Ok" )
REDEFINE BUTTON ID 202 ACTION oDlg:End()
oDlg:bStart := { || oBtn:Disable() }
ACTIVATE DIALOG oDlg CENTERED ;
ON INIT (oDlg:lDesign := .T., oBtn:lDesign := .T. )#include "FiveWin.ch"
function Main()
local oDlg, oFind, oBtn
local cFind := space( 100 )
local nDir := 1
local lCase := .t., lWord := .f.
DEFINE DIALOG oDlg RESOURCE "Test"
REDEFINE GET oFind VAR cFind ID 101 OF oDlg
oFind:lDrag := .T.
REDEFINE RADIO nDir ID 102, 103 OF oDlg
REDEFINE CHECKBOX lCase ID 104 OF oDlg
REDEFINE CHECKBOX lWord ID 105 OF oDlg
REDEFINE BUTTON oBtn ID 201 ACTION MsgInfo( "Ok" )
oBtn:lDrag = .T.
oBtn:bGotFocus = { || oBtn:ShowDots() }
REDEFINE BUTTON ID 202 ACTION oDlg:End()
ACTIVATE DIALOG oDlg CENTEREDAntonio,
Yo lo que quiero fundamentalmente es poder editar los SAYS de un diálogo contenido en un .rc y luego volver a recuperarlos.
Con tus cambios sigo sin poder editar los says, que es lo que necesito.
Muchas gracias.
Eduardo,
Con los SAYs basicamente tienes que hacer dos cosas:
oSay:lWantClick = .T. // para que procesen los clicks del ratón
oSay:lDrag = .T.
El resto es como hacemos en design.prg:
oSay:bRClicked = { | nRow, nCol | EditControl( nRow, nCol, oSay ) }
y desde EditControl() ya puedes modificar los SAYs