FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index EasyReport, EasyDialog y EasyPreview La nueva apariencia de EasyReport
mastintin
Posts: 1516
Joined: Thu May 27, 2010 02:06 PM
Re: La nueva apariencia de EasyReport
Posted: Wed Oct 08, 2014 10:13 AM

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 ) ....

Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: La nueva apariencia de EasyReport
Posted: Wed Oct 08, 2014 07:57 PM

Y si deshabilitas los controles y asi no cogen foco...

regards, saludos

Antonio Linares
www.fivetechsoft.com
mastintin
Posts: 1516
Joined: Thu May 27, 2010 02:06 PM
Re: La nueva apariencia de EasyReport
Posted: Wed Oct 08, 2014 09:03 PM
Antonio Linares wrote:Y si deshabilitas los controles y asi no cogen foco...

He implementado la soluci贸n que propones y vale . :-)
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 .
mastintin
Posts: 1516
Joined: Thu May 27, 2010 02:06 PM
Re: La nueva apariencia de EasyReport
Posted: Thu Oct 09, 2014 08:17 AM

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.

cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: La nueva apariencia de EasyReport
Posted: Thu Oct 09, 2014 04:26 PM

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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
mastintin
Posts: 1516
Joined: Thu May 27, 2010 02:06 PM
Re: La nueva apariencia de EasyReport
Posted: Thu Oct 09, 2014 04:54 PM
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 ...
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: La nueva apariencia de EasyReport
Posted: Thu Oct 09, 2014 05:16 PM

Yo he instalado una version que venia con FW

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
mastintin
Posts: 1516
Joined: Thu May 27, 2010 02:06 PM
Re: La nueva apariencia de EasyReport
Posted: Fri Oct 10, 2014 07:41 AM
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 ? .
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: La nueva apariencia de EasyReport
Posted: Fri Oct 10, 2014 09:48 AM
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
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
lucasdebeltran
Posts: 1303
Joined: Tue Jul 21, 2009 08:12 AM
Re: La nueva apariencia de EasyReport
Posted: Fri Oct 10, 2014 04:54 PM

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.
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: La nueva apariencia de EasyReport
Posted: Fri Oct 10, 2014 05:28 PM

Yo entiendo lo mismo que expone Lucas
No deberia haber ningun problema

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
mastintin
Posts: 1516
Joined: Thu May 27, 2010 02:06 PM
Re: La nueva apariencia de EasyReport
Posted: Fri Oct 10, 2014 07:36 PM

Yo creo lo mismo , esperemos la opini贸n de Antonio y si es conforme , subo el c贸digo.

mastintin
Posts: 1516
Joined: Thu May 27, 2010 02:06 PM
Re: La nueva apariencia de EasyReport
Posted: Sat Oct 11, 2014 09:29 AM
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 (fw): Select all Collapse
#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 )
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: La nueva apariencia de EasyReport
Posted: Sat Oct 11, 2014 09:34 AM

Un trabajo magnifico Manuel

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: La nueva apariencia de EasyReport
Posted: Sat Oct 11, 2014 12:54 PM
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)
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Static archive 路 New replies & topics via GitHub Discussions