Page 1 of 1
MASTER ANTONIO
Posted: Thu Feb 07, 2013 2:00 am
by mantonio_08
en la clase TWindow
en metodo NEW, se encuentra esta linea.
#ifdef __CLIPPER__
if oIcon != nil
::SendMsg( WM_SETICON, 0, oIcon:hIcon )
endif
#endif
a que se refiere el Ifdef --- y porque
Re: MASTER ANTONIO
Posted: Thu Feb 07, 2013 2:15 am
by wmormar
mantonio_08,
la sentencia:
#ifdef
#endif
Se usa para que cuando generes un Ejecutable o Libreria se tomen los codigos que corresponda a Clipper, xHarbour, Harbour, xBase segun el caso, determinas que se incluye cuando compiles con las herramientas mencionadas.
Re: MASTER ANTONIO
Posted: Thu Feb 07, 2013 2:21 am
by carlos vargas
se refiere a la compilación condicional
Code: Select all
#ifdef CONSTANTE
//si CONSTANTE es verdadero lo contenido acá se compilara y formara parte del fuente
#else
//si CONSTANTE es false lo contenido acá se compilara y formara parte del fuente
#endif
se usa
__CLIPPER__ para incluir codigo para clipper ( esta constante esta definida en alguna parte en clipper)
#define __CLIPPER__
__HARBOUR__ para incluir codigo para harbour
#define __HARBOUR__
__XHARBOUR__ para incluid codigo para xharbour
#define __XHARBOUR__
__XPP__ para incluid codigo para alaska xbase
#define __XPP__
este es un ejemplo propio de compilación condicional, lo uso para que cuando estoy desarrollando no tener que introducir los datos de usuario, sino que solamente doy enter y entro a la app.
Code: Select all
#define FALSE .f.
#define __ADMIN__
#define __PRUEBA__
FUNCTION PermitirAcceso()
LOCAL lAcceso := FALSE
PRIVATE oDlg
PRIVATE oApodo, oContrasena
PRIVATE cApodo, cContrasena
nIntentos := 0
#ifdef __PRUEBA__
#ifdef __ADMIN__
cApodo := PadR( LOGIN_USERDEV, 10 )
cContrasena := PadR( LOGIN_PASSDEV, 10 )
#else
cApodo := PadR( "CIVS", 10 )
cContrasena := PadR( "lodr", 10 )
#endif
#else
cApodo := Space( 10 )
cContrasena := Space( 10 )
#endif
CIUD->( OrdSetFocus( "NUM_CIUD" ) )
USUA->( OrdSetFocus( "APODO" ) )
SELECT "USUA"
SET RELATION TO NUM_CIUD INTO CIUD
DBGoTop()
DEFINE DIALOG oDlg NAME "DLG_ACCESO" ICON GetIcon() FONT oFontD
REDEFINE BITMAP ;
ID 301 OF oDlg ;
NAME "BM_ACCESO"
REDEFINE GET oApodo VAR cApodo ;
ID 101 OF oDlg ;
PICTURE "@!" ;
UPDATE
REDEFINE GET oContrasena VAR cContrasena ;
ID 102 OF oDlg ;
PICTURE "@" ;
UPDATE
REDEFINE BUTTON ;
ID 201 OF oDlg ;
ACTION IIf( lAcceso := PermitirAcceso_Validar(), oDlg:end(), NIL )
REDEFINE BUTTON ;
ID 202 OF oDlg ;
ACTION oDlg:end() ;
CANCEL
ACTIVATE DIALOG oDlg ON INIT DisableX( oDlg )
LimpiarAreas()
RETURN lAcceso
inculso en [x]harbour existe #undef que sirve para borra una declaración de constante anteriormente definida
Code: Select all
#undef __MYCONSTANTE__ //prueba comentanto y compilando, y luego des-comentando y compilando
..
#ifdef __MYCONSTANTE__
procedure Proc01()
?procname()
return
#else
procedure Proc02()
?procname()
return
#endif
al compilar el procedimiento, según comentando o des-comentando la linea ( #undef __MYCONSTANTE__ )
veras que los procedimientos Proc01 o Proc02 Aparecen y desaparecen, esto es que son incluido en tiempo de compilación.
salu2
carlos vargas
Re: MASTER ANTONIO
Posted: Sat Feb 09, 2013 1:49 am
by mantonio_08
MUCHAS GRACIAS MUY CLARA LA EXPLICACION
AHORA LA PREGUNTA DEL MILLON
en la clase twindow en el metodo new hay esta linea::
#ifdef __CLIPPER__
if oIcon != nil
::SendMsg( WM_SETICON, 0, oIcon:hIcon )
endif
#endif
esto quiere decir que ::SendMsg( WM_SETICON, 0, oIcon:hIcon ) solo se ejecutara si oIcon no es un nil..
lo que no entiendo es pq solo en CLIPPER.. ??? alguien me lo explica.. y no me digan para mantener la compatibilidad con versiones anteriores...
porque esta linea me ha dado unos dolores de cabeza::
no deja mostrar en forma correcta los iconos en las ventanas emergentes.. o sea las que no son MDICHILDS pero son parte de un ventana padre.
Re: MASTER ANTONIO
Posted: Sat Feb 09, 2013 2:25 am
by Daniel Garcia-Gil
Hola
mantonio_08 wrote:esto quiere decir que ::SendMsg( WM_SETICON, 0, oIcon:hIcon ) solo se ejecutara si oIcon no es un nil..
No, se ejecuta el codigo
Code: Select all
if oIcon != nil
::SendMsg( WM_SETICON, 0, oIcon:hIcon )
endif
si la constantes __CLIPPER__ esta definida
mantonio_08 wrote:y no me digan para mantener la compatibilidad con versiones anteriores...
es para mantener compatibilidad con distintos compiladores
ahora, tienes un problema que piensas puede ser esa linea, publica el codigo que estas haciendo y lo que quieres hacer
Re: MASTER ANTONIO
Posted: Tue Feb 12, 2013 2:03 am
by mantonio_08
aca el codigo:: tengo un clase TMain, en la cual defino un window padre asi::
//-------------------
METHOD WindowMain() CLASS TMain
Local This:=Self
Local oMenu
//
MENU oMenu
ENDMENU
//
SETBALLOON(.T.)
DEFINE WINDOW ::oWnd MDI MENU oMenu;
TITLE ::cTitulo PIXEL FROM 0, 0 TO Getsysmetrics(17), Getsysmetrics(16) BRUSH ::oBrushoWnd;
MENUINFO 0 ICON ::oIconoWnd
aca el ICON de la ventana se pinta OK..
luego en otra clase llamo a la ventana hija, pero flotante asi::
METHOD New(oWnd, oRbarMain) CLASS MantencionClientes
LOCAL This:=Self
LOCAL oDlg
LOCAL oIcon
LOCAL lValid:=.F.
::oWnd := oWnd
::oRbarMain:= oRbarMain
::Title:= ::oWnd:oMsgBar:cMsg
If( !::oIconoWnd = NIL, ::oIconoWnd:End(),)
DEFINE ICON ::oIconoWnd RESOURCE "oWnd"
DEFINE WINDOW ::oWndHija FROM 12,1 TO (Getsysmetrics(17)/16)-1, (Getsysmetrics(16)/8)-1;
VSCROLL OF ::oWnd ;
TITLE ::Title; // MDICHILD ;
ICON ::oIconoWnd ;
BORDER NONE
aqui el ICON no se pinta como debe pone uno standar de window.
OJO:: que no uso para la ventana hija, MDICHILD notece que esta comentado //
DANIEL
si comento esta linea de TWindow asi, funciona
//#ifdef __CLIPPER__
if oIcon != nil
::SendMsg( WM_SETICON, 0, oIcon:hIcon )
endif
//#endif
Re: MASTER ANTONIO
Posted: Tue Feb 12, 2013 10:26 am
by Antonio Linares
Si vas a crear una ventana hija de una MDI, pero que no sea MDICHILD, tienes que cambiar a quien le pertenece:
DEFINE WINDOW ::oWndHija FROM 12,1 TO (Getsysmetrics(17)/16)-1, (Getsysmetrics(16)/8)-1;
VSCROLL OF ::oWnd:oWndClient ;
TITLE ::Title; // MDICHILD ;
ICON ::oIconoWnd ;
BORDER NONE
Ya que la ventana MDI contiene una ventana invisible (oWndClient) que controla a todas las ventanas hijas.
Tu ejemplo modificado asi, funciona correctamente con FWH 13.01 en Windows 8 (sin tener que hacer la modificación que indicas en la Clase TWindow)
Re: MASTER ANTONIO
Posted: Thu Feb 14, 2013 3:07 am
by mantonio_08
MASTER ANTONIO
HICE EL CAMBIO COMO INDICASTE Y NO FUNCIONA... que podra ser..
Re: MASTER ANTONIO
Posted: Thu Feb 14, 2013 3:29 pm
by lucasdebeltran
Hola compañero,
Si nos pones un ejemplo autocontenido nos será más fácil poder ayudarte.
Un saludo
Re: MASTER ANTONIO
Posted: Sun Feb 24, 2013 1:24 am
by mantonio_08
MASTER ANTONIO::
asi me funciona,,
DEFINE WINDOW ::oWndHija FROM 12,1 TO (Getsysmetrics(17)/16)-1, (Getsysmetrics(16)/8)-1;
VSCROLL OF ::oWnd;
TITLE ::Title; // MDICHILD ;
BORDER NONE NOMAXIMIZE
::oWndHija:SetIcon( ::oIconoWnd )
GRACIAS..
Ahora pq. no funciona de las otras tantas maneras que probe NOSE..
Re: MASTER ANTONIO
Posted: Sun Feb 24, 2013 3:32 am
by Antonio Linares
En la ventana principal usas la clausula MDI ?
Porque tienes comentado // MDICHILD al crear la hija ?
Re: MASTER ANTONIO
Posted: Sun Feb 24, 2013 4:54 pm
by mantonio_08
MASTER ANTONIO,
si, al crear la ventana padre uso MDI.. asi
DEFINE WINDOW ::oWnd MDI MENU oMenu;
TITLE ::cTitulo PIXEL FROM 0, 0 TO Getsysmetrics(17), Getsysmetrics(16) BRUSH ::oBrushoWnd;
MENUINFO 0 ICON ::oIconoWnd
afecta eso en algo lo que estoy haciendo..
Re: MASTER ANTONIO
Posted: Sun Feb 24, 2013 8:51 pm
by Antonio Linares
Si usas MDI en la principal, entonces en las hijas tienes que usar MDICHILD