FiveTech Software tech support forums

... , nTries++ , ; lSi := ALLTRIM( tPassword ) == ALLTRIM( oApp:cPassword[nItem] ), ; IF( nTries > 3 .OR. lSi , oDlg:END(), ; ( MsgStop( "¿ OLVIDO SU CONTRASEÑA..?"+CRLF+CRLF+; "Haga click en el botón < RECORDAR > para ver "+CRLF+; "su recordatorio según el Nombre de Usuario... ", ...

Antonio

dentro del folder make, no hay ningun archivo llamado makefile, solo los prg, one.app y los .o


A lo mejor se olvido ?

Saludos
Osvaldo Ramirez

ops. disculpa, se me olvido salu2 carlos vargas al inicio de tu aplicacion llama al procedimiento OverrideAndExtend function main(...) ... /*sobreescritura y extencion de metodos*/ OverrideAndExtend() ...

Hola Elias, parece que se me olvido de poner la funcion dDateToString. Aqui la tienes. //------------------------------------ static function dDateToString( dDate ) //------------------------------------ local cSay := CDoW( ...

Se me olvido incluir : function lineas(vque,linea) if vque = 1 AADD(TVISITAS,{CTOD(" / / "),space(50),0,""}) oBrwt:gobottom() oBrwt:Refresh() return nil elseif vque = 2 adel(tvisitas,linea) asize( tvisitas, len( tvisitas ) - ...

En el modulo que tiene el error se te olvido incluir el VKEY.CH:

#include "vkey.ch"

Seguramente estas compilandolo con una version "recortada" del FIVEWIN.CH

perdón se me olvido la funcion , yo la tengo asi :

Code: Select all  Expand view

HB_FUNC(SHOWSIP)
  {
SHFullScreen(GetActiveWindow(), SHFS_SHOWSIPBUTTON);
}


Biel , en este foro estamos para ayudarnos


Alguna duda me surgirá , y ya te cobrare la ensaimada

se me olvido aclarar que la uso en una MDICHILD,aki dejo el codigo DEFINE WINDOW oWndHija MDICHILD OF oWnd TITLE "Módulo de Control de Empresas" DEFINE STATUSBAR oStatusBar PROMPTS cDefMsg OF oWndHija @ 0,0 listbox oBEmp ..... ...

Jose Luis:

Se te olvido:

SetBkMode(oWndc:dc,0) para hacer el texto transparente

o

SetBkMode(oWndc:dc,1) para hacerlo con opaco

Efectivamente, mis disculpas por el olvido: //---------------------------------------------------------------------------// METHOD LostFocus( hCtlFocus ) CLASS TGet Super:LostFocus( hCtlFocus ) if ! Empty( ::cPicture ) .and. ::oGet:type == ...