topic-25167

Board index FiveWin para Harbour/xHarbour mis proyectos..

Page: 1 2 3 4 5 (68 posts)

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: mis proyectos..
Posted: Wed Apr 03, 2013 07:16 PM

friends
I wish set the hours from

00:00 to 23:00

how I must set and where please

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

Francisco Horta

Posts: 845

Joined: Sun Oct 09, 2005 05:36 PM

Re: mis proyectos..
Posted: Tue Apr 16, 2013 04:54 PM

Cristobal,

Que tal te adjunto lo que hice pero se me hace bolas el engrudo...

Code (fw): Select all Collapse

METHOD MouseMoveView( nRow, nCol, nKeyFlags ) CLASS TCalEx

   local aRet, oTooltip, cTooltip
   local nTxtWidth := 0, nTxtHeight
   local oFont, aPos, hOldFont

   ::CheckOverPrev( nRow, nCol )

   aRet = ::HitTest( nRow, nCol )

   if aRet[ HITTEST_PLACE ] == HITTEST_BODY
      if ::lCaptured
         ::nIdReserva := 0     // fjhg 02-04-2013
      else
*---------  fjhg 02-04-2013 Simula tooltip, muestra la info de la cita en vista DIARIA
         if ::Classname() == "TDAYVIEW" .AND. ::oCalex:oCalInfo != NIL
            if ( ::oCalex:oCalInfo:aCoords[ CI_RIGHT ] - ::oCalex:oCalInfo:aCoords[ CI_LEFT ] ) < VIEW_MIN .AND. ::nIdReserva <> ::oCalex:oCalInfo:nIdx
               ::nIdReserva := if( ::oCalex:oCalInfo == nil, 0, ::oCalex:oCalInfo:nIdx )
               ::aPos[1] := nRow
               ::aPos[2] := nCol
               cTooltip := ::oCalex:oCalInfo:cSubject


               DEFINE WINDOW oToolTip FROM 0, 0 TO 1, 5 ;
                  STYLE nOr( WS_POPUP, WS_BORDER ) ;
                  COLOR 0, RGB( 255, 255, 225 ) OF Self

               DEFINE FONT oFont NAME GetSysFont() SIZE 0, -8

               hWnd = CreateToolTip( Self:hWnd, If( ValType( cToolTip ) == "A", cToolTip[ 1 ], cToolTip ),  ;
                                     If( ::lBalloon != nil, ::lBalloon, .t. ) )

               aPos := { nRow, nCol }

               nTxtHeight := Max(14, GetTextHeight( oToolTip:hWnd )-2)

               aToolTip := Array( nLenToolTip := MLCount( cToolTip, 254 ) )
               AEval( aToolTip, {|c, n| aToolTip[ n ] := Trim( MemoLine( cToolTip, 252, n ) ), ;
                      nTxtWidth := Max( nTxtWidth, GetTextWidth( 0, aToolTip[ n ], oFont:hFont ) + 7 ) } )

               oToolTip:Move( aPos[ 1 ], aPos[ 2 ], nTxtWidth, nTxtHeight * nLenToolTip + 3 )
//               oTooltip:Show()

            endif
         else
            ::nIdReserva := 0
         endif
      endif
   endif

return Super:MouseMove( nRow, nCol, nKeyFlags )

pero se alenta el sistema un poco... sera porque no estoy finalizando oFont?
pudieras echarle el ojo
saludos
paco

____________________

Paco

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: mis proyectos..
Posted: Tue Apr 16, 2013 06:33 PM

Francisco, buenas tardes

No he tenido mucho tiempo para dedicarle al tema, pero te adjunto lo que llevaba hecho
Me faltaba que funcionara correctamente en el view del Month

Code (fw): Select all Collapse

METHOD MouseMoveView( nRow, nCol, nKeyFlags ) CLASS TCalEx

   local aRet
   local cToolTip

   ::CheckOverPrev( nRow, nCol )

   aRet = ::HitTest( nRow, nCol )
   if aRet[ HITTEST_PLACE ] == HITTEST_BODY
      if ::lCaptured
         ::Refresh()
      endif
   endif

   if !empty( ::oCalex:oCalInfo )
      cTooltip := ::oCalex:oCalInfo:cSubject
   endif

   if !empty( cToolTip )
      //? "1"
      //HTMLPOP( hWnd, cHelpFile, HH_DISPLAY_TEXT_POPUP, cnHelp, nRow, nCol, nBgColor,nTxColor )
      HTMLPOP( GetActiveWindow(), nil, 0x000E, cToolTip )
   endif

Espero poder esta semana meterle "mano"
De todas formas le echo un vistazo a lo que adjuntas y comentamos.
Un saludo

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: mis proyectos..
Posted: Thu Apr 18, 2013 04:46 PM

Francisco Horta wrote:Cristobal,

Que tal te adjunto lo que hice pero se me hace bolas el engrudo...

Code (fw): Select all Collapse

METHOD MouseMoveView( nRow, nCol, nKeyFlags ) CLASS TCalEx

   local aRet, oTooltip, cTooltip
   local nTxtWidth := 0, nTxtHeight
   local oFont, aPos, hOldFont

   ::CheckOverPrev( nRow, nCol )

   aRet = ::HitTest( nRow, nCol )

   if aRet[ HITTEST_PLACE ] == HITTEST_BODY
      if ::lCaptured
         ::nIdReserva := 0     // fjhg 02-04-2013
      else
*---------  fjhg 02-04-2013 Simula tooltip, muestra la info de la cita en vista DIARIA
         if ::Classname() == "TDAYVIEW" .AND. ::oCalex:oCalInfo != NIL
            if ( ::oCalex:oCalInfo:aCoords[ CI_RIGHT ] - ::oCalex:oCalInfo:aCoords[ CI_LEFT ] ) < VIEW_MIN .AND. ::nIdReserva <> ::oCalex:oCalInfo:nIdx
               ::nIdReserva := if( ::oCalex:oCalInfo == nil, 0, ::oCalex:oCalInfo:nIdx )
               ::aPos[1] := nRow
               ::aPos[2] := nCol
               cTooltip := ::oCalex:oCalInfo:cSubject


               DEFINE WINDOW oToolTip FROM 0, 0 TO 1, 5 ;
                  STYLE nOr( WS_POPUP, WS_BORDER ) ;
                  COLOR 0, RGB( 255, 255, 225 ) OF Self

               DEFINE FONT oFont NAME GetSysFont() SIZE 0, -8

               hWnd = CreateToolTip( Self:hWnd, If( ValType( cToolTip ) == "A", cToolTip[ 1 ], cToolTip ),  ;
                                     If( ::lBalloon != nil, ::lBalloon, .t. ) )

               aPos := { nRow, nCol }

               nTxtHeight := Max(14, GetTextHeight( oToolTip:hWnd )-2)

               aToolTip := Array( nLenToolTip := MLCount( cToolTip, 254 ) )
               AEval( aToolTip, {|c, n| aToolTip[ n ] := Trim( MemoLine( cToolTip, 252, n ) ), ;
                      nTxtWidth := Max( nTxtWidth, GetTextWidth( 0, aToolTip[ n ], oFont:hFont ) + 7 ) } )

               oToolTip:Move( aPos[ 1 ], aPos[ 2 ], nTxtWidth, nTxtHeight * nLenToolTip + 3 )
//               oTooltip:Show()

            endif
         else
            ::nIdReserva := 0
         endif
      endif
   endif

return Super:MouseMove( nRow, nCol, nKeyFlags )

pero se alenta el sistema un poco... sera porque no estoy finalizando oFont?
pudieras echarle el ojo
saludos
paco

Francisco,
Te adjunto las modificaciones a tu codigo
A mi me funciona, aunque no he podido probarlo en profundidad y con más tiempo
Comentame como va

Code (fw): Select all Collapse

METHOD MouseMoveView( nRow, nCol, nKeyFlags ) CLASS TCalEx

   local aRet, oTooltip, cTooltip
   local nTxtWidth := 0, nTxtHeight
   local oFont, aPos, hOldFont

   ::CheckOverPrev( nRow, nCol )

   aRet = ::HitTest( nRow, nCol )

   if aRet[ HITTEST_PLACE ] == HITTEST_BODY
      if ::lCaptured
         ::nIdReserva := 0     // fjhg 02-04-2013
      else
*---------  fjhg 02-04-2013 Simula tooltip, muestra la info de la cita en vista DIARIA
         if ::Classname() == "TDAYVIEW" .AND. ::oCalex:oCalInfo != NIL
            if ( ::oCalex:oCalInfo:aCoords[ CI_RIGHT ] - ::oCalex:oCalInfo:aCoords[ CI_LEFT ] ) < VIEW_MIN .AND. ::nIdReserva <> ::oCalex:oCalInfo:nIdx
               ::nIdReserva := if( ::oCalex:oCalInfo == nil, 0, ::oCalex:oCalInfo:nIdx )
               //::aPos[1] := nRow
               //::aPos[2] := nCol
               cTooltip := ::oCalex:oCalInfo:cSubject
           if cTooltip + Dtoc( ::dDateSelected ) <> ::oToolTip
               ::oToolTip := cToolTip + Dtoc( ::dDateSelected )

               hWnd = CreateToolTip( Self:hWnd, If( ValType( cToolTip ) == "A", cToolTip[ 1 ], cToolTip ),  ;
                                     If( ::lBalloon != nil, ::lBalloon, .t. ) )

               aPos := { nRow, nCol }

               nTxtHeight := Max(14, GetTextHeight( hWnd ) - 2 )

               aToolTip := Array( nLenToolTip := MLCount( cToolTip, 254 ) )
               AEval( aToolTip, {|c, n| aToolTip[ n ] := Trim( MemoLine( cToolTip, 252, n ) ), ;
                      nTxtWidth := Max( nTxtWidth, GetTextWidth( 0, aToolTip[ n ], ::oFont:hFont ) + 7 ) } )


            endif
         else
            ::nIdReserva := 0
            ::oToolTip    := Nil
         endif
      endif
   endif

return Super:MouseMove( nRow, nCol, nKeyFlags )

Yo no he podido usar todos los IF que tienes al principio pero creo que no deben influir en el resto
Me refiero a estos

Code (fw): Select all Collapse

   if aRet[ HITTEST_PLACE ] == HITTEST_BODY
      if ::lCaptured
         ::nIdReserva := 0     // fjhg 02-04-2013
      else

Tampoco he usado el IF

Code (fw): Select all Collapse

            if ( ::oCalex:oCalInfo:aCoords[ CI_RIGHT ] - ::oCalex:oCalInfo:aCoords[ CI_LEFT ] ) < VIEW_MIN .AND. ::nIdReserva <> ::oCalex:oCalInfo:nIdx

He creado una DATA con el nombre ::oToolTip

Saludos

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: mis proyectos..
Posted: Thu Apr 18, 2013 08:40 PM

Francisco

Creo que esto esta mucho mejor
A ver qué te parece
He creado la DATA ::oToolTip
pero la cambiaré a nToolTip en cuanto funcione correctamente

Code (fw): Select all Collapse

METHOD MouseMoveView( nRow, nCol, nKeyFlags ) CLASS TCalEx

   local aRet
   local cToolTip

   local nTxtWidth := 0
   local nTxtHeight
   local nLenToolTip, hWnd, aToolTip, aPos

   ::CheckOverPrev( nRow, nCol )

   aRet = ::HitTest( nRow, nCol )
   if aRet[ HITTEST_PLACE ] == HITTEST_BODY
      if ::lCaptured
         ::Refresh()
      endif
   endif

   if Valtype( ::oToolTip ) = "U"
      ::oToolTip   := 99999
   endif

   if !empty( ::oCalex:oCalInfo )

      cTooltip := ::oCalex:oCalInfo:cSubject

   endif

   if !empty( cToolTip ) 

      if ::oToolTip <> ::nAtRow  .and. ::oToolTip >= 0

         //HTMLPOP( hWnd, cHelpFile, HH_DISPLAY_TEXT_POPUP, cnHelp, nRow, nCol, nBgColor,nTxColor )
         /*
         HTMLPOP( GetActiveWindow(), nil, 0x000E, ;
                  Dtoc(::dDateSelected ) + CRLF + STr( ::nStart ) + CRLF +;
                  cToolTip + CRLF + Str( ::nRowDown ) + CRLF + Str( ::nAtRow ) + CRLF  ,;
                  nRow , nCol  ,  nRGB( 0, 25, 64 ), nRGB( 255, 255, 255 ) )
         */
               hWnd = CreateToolTip( Self:hWnd, If( ValType( cToolTip ) == "A", cToolTip[ 1 ], cToolTip ),  ;
                                     If( ::lBalloon != nil, ::lBalloon, .t. ) )

               //aPos := { nRow, nCol }
                                                       //::hWnd
               nTxtHeight := Max( 14, GetTextHeight( hWnd ) - 2 )

               aToolTip   := Array( nLenToolTip := MLCount( cToolTip, 254 ) )
               AEval( aToolTip, {|c, n| aToolTip[ n ] := Trim( MemoLine( cToolTip, 252, n ) ), ;
                      nTxtWidth := Max( nTxtWidth, GetTextWidth( 0, aToolTip[ n ], ::oFont:hFont ) + 7 ) } )



         ::oToolTip   := -1  

      else

         ::oToolTip     := ::nAtRow    

      endif
   else

      ::oToolTip   := 0

   endif

return Super:MouseMove( nRow, nCol, nKeyFlags )

Saludos

Francisco Horta

Posts: 845

Joined: Sun Oct 09, 2005 05:36 PM

Re: mis proyectos..
Posted: Thu Apr 18, 2013 09:00 PM

Que tal Cristobal,

probando tu sugerencia, fijate que no encuentro como destruir la tooltip cuando muevo el raton, y todo se encima (imagen 1)
por otro lado cuando el puntero esta fuera de cita muestra informacion que no es ( imagen 2 )
seguire intentando, trate matar la ventana del tooltip con destroywindow( hWnd ) pero no me encuentra valor de hWnd
adjunto imagenes, a ver si por ahi algun guru nos puede echar la mano

estamos creo que mmmuy cerca de lograrlo..

saludos
paco

____________________

Paco

Willi Quintana

Posts: 1054

Joined: Sun Oct 09, 2005 10:41 PM

Re: mis proyectos..
Posted: Fri Apr 19, 2013 02:28 AM

Francisco:
Podrias indicarme que tipo de botones usas en tu soft de restaurantes??? noto qur puedes ocupar casi todo el botn con texto...
Gracias
Willi

Francisco Horta

Posts: 845

Joined: Sun Oct 09, 2005 05:36 PM

Re: mis proyectos..
Posted: Fri Apr 19, 2013 02:07 PM

willi, uso una plantilla, tengo btnbmp e image
saludos
paco

____________________

Paco

Page: 1 2 3 4 5 (68 posts)

FiveTech Support Forums

Continue the discussion