La nueva apariencia de EasyReport

User avatar
mastintin
Posts: 1502
Joined: Thu May 27, 2010 2:06 pm

Re: La nueva apariencia de EasyReport

Post by mastintin »

Cuando carga el programa , ningún control tiene foco , una vez selecionado uno , ya queda con foco .
No va ninguna de los dos .

aWnd[ nArea ]:bLClicked = {|nRow,nCol,nFlags| DeactivateItem(), ;
StartSelection( nRow, nCol, aWnd[ nArea ] ), ;
nAktArea := aWnd[ nArea ]:nArea,;
DeactivateItem(), ;
aWnd[ nArea ]:SetFocus() }

aWnd[ nArea ]:bLClicked = {|nRow,nCol,nFlags| DeactivateItem(), ;
StartSelection( nRow, nCol, aWnd[ nArea ] ), ;
nAktArea := aWnd[ nArea ]:nArea,;
DeactivateItem(), ;
::oMainWnd:SetFocus()}


---------------------------edito -----------------------------

aun mas :

aWnd[ nArea ]:bLClicked = {|nRow,nCol,nFlags| aWnd[ nArea ]:SetFocus() }

oItem:bGotFocus := {|| MSGinfo( i ) }

con este codigo si seleciono el item ( salta el msginfo ) , luego click en el area no pasa nada ( porque el item ya tiene el foco ) , cambio de area y vuelvo haciendo click en el area ,salta msginfo ( coge el foco el item ) ....
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Re: La nueva apariencia de EasyReport

Post by Antonio Linares »

Y si deshabilitas los controles y asi no cogen foco...
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
mastintin
Posts: 1502
Joined: Thu May 27, 2010 2:06 pm

Re: La nueva apariencia de EasyReport

Post by mastintin »

Antonio Linares wrote:Y si deshabilitas los controles y asi no cogen foco...
He implementado la solución que propones y vale . :D
Crea un pequeño parpadeo en el say que indica el control activo dentro del folder del inspector , pues parece que el ítem coge el foco por un instante y luego lo pierde al deshabilitarlo .
User avatar
mastintin
Posts: 1502
Joined: Thu May 27, 2010 2:06 pm

Re: La nueva apariencia de EasyReport

Post by mastintin »

Cristobal , en la function ElementActions , oItem:bLClicked nunca se ejecuta porque el elemento esta en lDrag:= .t. Debemos tenerlo en cuenta y no sé si quitar ese código .
Por otro lado la asignación de todos estos codeblock ¿ no sería mas correcta hacerla en ShowItem que aquí ? .
Espero tu opinión.
User avatar
cnavarro
Posts: 5792
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: La nueva apariencia de EasyReport

Post by cnavarro »

Manuel, yo casi había conseguido solucionar el bug de otra manera, pero ya te digo que "casi"
Estoy investigando por qué en la versión original no pasaba esto y aquí si
En cuanto a lo que me comentas, ahora después miraré lo que comentas y te digo algo
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
User avatar
mastintin
Posts: 1502
Joined: Thu May 27, 2010 2:06 pm

Re: La nueva apariencia de EasyReport

Post by mastintin »

cnavarro wrote: Estoy investigando por qué en la versión original no pasaba esto y aquí si
He instalado el ereport original para comprobar ,he usado el instalador que esta en el repositorio y si que pasa lo mismo ...
User avatar
cnavarro
Posts: 5792
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: La nueva apariencia de EasyReport

Post by cnavarro »

Yo he instalado una version que venia con FW
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
User avatar
mastintin
Posts: 1502
Joined: Thu May 27, 2010 2:06 pm

Re: La nueva apariencia de EasyReport

Post by mastintin »

cnavarro wrote:Yo he instalado una version que venia con FW
Respecto a esta instalación....
Como para mi es un incordio el tema de la versión demo y los segundos de espera , he realizado un pequeño programa que genera y registra la clave para que quede como versión completa.
todo el mundo puede hacerlo ya que contamos con el código . pero ¿ Facilitamos el programa y su código para el que lo necesite ? , no se como estará este tema a nivel licencias y esas cosas que yo no entiendo demasiado ... ¿ que hacemos ? .
User avatar
cnavarro
Posts: 5792
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: La nueva apariencia de EasyReport

Post by cnavarro »

mastintin wrote:
cnavarro wrote:Yo he instalado una version que venia con FW
Respecto a esta instalación....
Como para mi es un incordio el tema de la versión demo y los segundos de espera , he realizado un pequeño programa que genera y registra la clave para que quede como versión completa.
todo el mundo puede hacerlo ya que contamos con el código . pero ¿ Facilitamos el programa y su código para el que lo necesite ? , no se como estará este tema a nivel licencias y esas cosas que yo no entiendo demasiado ... ¿ que hacemos ? .
Buena pregunta
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
User avatar
lucasdebeltran
Posts: 1303
Joined: Tue Jul 21, 2009 8:12 am
Contact:

Re: La nueva apariencia de EasyReport

Post by lucasdebeltran »

Hola,

No creo que haya ningún problema porque Timm entrego todo el código y desde su web incluso remite a estos foros.
Muchas gracias. Many thanks.

Un saludo, Best regards,

Harbour 3.2.0dev, Borland C++ 5.82 y FWH 13.06 [producción]

Implementando MSVC 2010, FWH64 y ADO.

Abandonando uso xHarbour y SQLRDD.
User avatar
cnavarro
Posts: 5792
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: La nueva apariencia de EasyReport

Post by cnavarro »

Yo entiendo lo mismo que expone Lucas
No deberia haber ningun problema
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
User avatar
mastintin
Posts: 1502
Joined: Thu May 27, 2010 2:06 pm

Re: La nueva apariencia de EasyReport

Post by mastintin »

Yo creo lo mismo , esperemos la opinión de Antonio y si es conforme , subo el código.
User avatar
mastintin
Posts: 1502
Joined: Thu May 27, 2010 2:06 pm

Re: La nueva apariencia de EasyReport

Post by mastintin »

Lo he pensado y dado que el código es publico , si lo que hago es subir el código aquí para cada cual lo compile , lo único que hacemos es facultar la recopilación del código necesario ,así que aquí teneos el código ... lo copiáis lo metéis en un archivo ( yo lo he llamado ercode.prg ) , colocáis el archivo en simples de fwh y lo compiláis con vuestro bat favorito . Si alguno usa xharbour tendrá que cambiar hb_curdrive() por curdrive() .

Code: Select all

#include "FiveWin.ch"

function Main()

   local cGeneralIni:= "c:\vrd.ini" +space(20)
   local oDlg, oBtn,oGet
 
   DEFINE DIALOG oDlg TiTle "Registrar EReport"

   @ 2,  2 GET oget VAR cGeneralIni ACTION SetinGet( oGet )

   @ 3,  4 BUTTON oBtn PROMPT "Registrar" ACTION Registrar( alltrim( cGeneralIni ) )

   @ 3, 15 BUTTON "Salir" ACTION oDlg:End() CANCEL

   ACTIVATE DIALOG oDlg CENTERED 
     
return  nil

//-----------------------------------------------------------------------------

Function Registrar( cGeneralIni )
local cSerial, cRegist, lOk
local cDrive := hb_CurDrive( cGeneralIni )+":\"


 cSerial := alltrim(str(GetSerialHD( cDrive ) ))
 cRegist := GetRegistKey( cSerial )
 lok := CheckRegist( cSerial, cRegist, cGeneralIni )

if lok 
   msginfo("registro realizado") 
else
   msginfo("registro no realizado")
endif

Return nil

//-----------------------------------------------------------------------------

Function SetinGet( oget )
local cfile:= cGetFile( oget:cText )
  if !empty(cFile)
     oget:cText(cFile)
  endif

Return nil

//-----------------------------------------------------------------------------

FUNCTION GetSerialHD( cDrive )

   LOCAL cLabel      := Space(32)
   LOCAL cFileSystem := Space(32)
   LOCAL nSerial     := 0
   LOCAL nMaxComp    := 0
   LOCAL nFlags      := 0

   DEFAULT cDrive := "C:\"

   GetVolInfo( cDrive, @cLabel, Len( cLabel ), @nSerial, @nMaxComp, @nFlags, ;
               @cFileSystem, Len( cFileSystem ) )

RETURN nSerial

DLL32 Function GetVolInfo( sDrive          AS STRING, ;
                           sVolName        AS STRING, ;
                           lVolSize        AS LONG  , ;
                           @lVolSerial     AS PTR   , ;
                           @lMaxCompLength AS PTR   , ;
                           @lFileSystFlags AS PTR   , ;
                           @sFileSystName  AS STRING, ;
                           lFileSystSize   AS LONG ) ;
               AS LONG PASCAL ;
               FROM "GetVolumeInformationA" ;
               LIB  "kernel32.dll"
               

//-----------------------------------------------------------------------------         

FUNCTION CheckRegist( cSerial, cRegist, cGeneralIni )

   LOCAL lOK := .F.
   
   if !file( cGeneralIni )
       msginfo("archivo ini no encontrado")
       return .f.
   endif

   IF ALLTRIM( cRegist ) == GetRegistKey( cSerial )
      WritePProString( "General", "RegistKey", ALLTRIM( cRegist ) , cGeneralIni )
      lOK := .T.
   ENDIF

RETURN ( lOK )


//-----------------------------------------------------------------------------        

FUNCTION GetRegistKey( cSerial )

   LOCAL cReg := ALLTRIM( STR( INT( ( VAL( ALLTRIM( cSerial ) ) * 167 ) * 4.12344 ), 30 ) )

   cReg := SUBSTR( cReg + ALLTRIM( STR( 47348147489715610655, 30 ) ), 1, 12 )

   cReg := CHR( VAL( SUBSTR( cReg, 8, 1 ) ) + 74 ) + ;
           CHR( VAL( SUBSTR( cReg, 4, 1 ) ) + 68 ) + ;
           CHR( VAL( SUBSTR( cReg, 2, 1 ) ) + 70 ) + ;
           CHR( VAL( SUBSTR( cReg, 6, 1 ) ) + 66 ) + ;
           SUBSTR( cReg, 5 )

RETURN ( cReg )      


User avatar
cnavarro
Posts: 5792
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: La nueva apariencia de EasyReport

Post by cnavarro »

Un trabajo magnifico Manuel
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
User avatar
cnavarro
Posts: 5792
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: La nueva apariencia de EasyReport

Post by cnavarro »

mastintin wrote:
cnavarro wrote: Estoy investigando por qué en la versión original no pasaba esto y aquí si
He instalado el ereport original para comprobar ,he usado el instalador que esta en el repositorio y si que pasa lo mismo ...
Ahora, con la clave introducida he comprobado que marcas un item, te vas a otra area, vuelves y el item sigue marcada (igual que en esta version)
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
Post Reply