FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Posible bug en TXBrowse:PageUp()
Posts: 346
Joined: Mon Oct 05, 2009 03:35 PM

Re: TtaskPanel

Posted: Mon Nov 09, 2015 05:55 PM
mario estoy confundido

lo que mensionas es en la clase texplbar.prg de source\classes ???
la texplbar es parte de FW y la taskpannel es externa...
estas tratando de mostrar un taskpannel a dentro de una texplbar????

la linea 365 corresponde al texplbar.prg y seria esto:

Code (fw): Select all Collapse
CLASS TExplorerBar FROM TControl
...
...
...
...
METHOD New( cTitle, oWnd, nIndex, cBmpPanel, nBodyHeight ) CLASS TTaskPanel   <--- ojo con esto, aqui no es la clase Ttaskpannel que ocupo

   local n

   DEFAULT nBodyHeight := 50
   
   ::cTitle  = cTitle
   ::nTop    = ::nTopMargin

   ::nBodyHeight = nBodyHeight

 linea 365-->  if nIndex > 0
                     ::nTop += oWnd:aPanels[ nIndex ]:nTop + oWnd:aPanels[ nIndex ]:nTotalHeight + ;
                     oWnd:aPanels[ nIndex ]:nTopMargin 
                   endif   
  ...
  ...


y el error saltarĂ­a si "nIndex" en Null...
SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com
Posts: 2707
Joined: Fri Oct 07, 2005 01:50 PM

Re: OT - download folder of standard browser

Posted: Thu Jul 06, 2017 01:48 PM
Driessen

Typically the \Downloads folder is in the \Users directory .. \users\downloads .. Consider this code to pull the information from the system environment :

Rick Lipkin

Code (fw): Select all Collapse
cLocation := GetEnv( "USERPROFILE" )
cLocation := cLocation+"\Downloads"
Posts: 8716
Joined: Tue Dec 20, 2005 07:36 PM

Re: ShellExecute no abre en una window

Posted: Mon May 14, 2018 03:23 PM

Sorry, no uso windows 10 aĂşn.

JoĂŁo Santos - SĂŁo Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 39
Joined: Wed Jun 25, 2014 11:16 AM

Re: Using C# (and .NET) from FWH

Posted: Tue Jun 26, 2018 06:46 PM

Show, thats fantastic !!!!! \o/

FW 17.09 - xHB 1.2.3 - Embarcadero C++ 7
xDevStudio 0.72 - FivEdit ( \o/ ) - Pelles C
MySQL 5.7 - DBF
FastReport - PHP for Web Services - Java Android
http://matheusfariasdev.wordpress.com
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM

Re: Como Poner 2 Lineas de Totales en Xbrowse

Posted: Sun Dec 09, 2018 01:31 PM
Hola. Intenta asi:

Code (fw): Select all Collapse
   oBrw:lFooter              := .t.  //Que tendrá footer 
   oBrw:nFooterLines         := 3    //Lineas del footer 
   oBrw:nFooterHeight        := 46   //Altura del  Footer

   oCol = oBrw:AddCol()  //GTOTAL
   oCol:bEditValue = { || (cAlias1)->SaldPrinc + (cAlias1)->SaldIntCo + (cAlias1)->SaldDesliz  + (cAlias1)->SaldOtros}
   oCol:cEditPicture = "9,999,999,999.99"
   oCol:nDataStrAlign := 1
   oCol:cHeader = "SALDO"+CRLF+"TOTAL" 
   oCol:nWidth = 110      //El ancho de la col es importante
   oCol:nEditType = 0   //no editable
   oCol:bFooter  =  {||TRANSFORM(nTotPrinc+nTotIntCo+nTotDesliz+nTotOtros,"99,999,999,999.99") +CRLF+ TRANSFORM(nNoVencido,"9,999,999,999.99") +CRLF+ TRANSFORM(nVencido,"9,999,999,999.99") }
   oCol:nFootStrAlign := 1

Saludos.
Francisco J. AlegrĂ­a P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql
Posts: 44508
Joined: Thu Oct 06, 2005 05:47 PM

Re: Pritpal, HBIDE developer, assists us to use it with FWH

Posted: Fri Oct 18, 2019 06:19 AM

Jimmy,

HB_... are some settings required by hbmk2 and Harbour

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1530
Joined: Thu Oct 30, 2008 02:37 PM

Re: Cambiar tipo de letra en aplicaciĂłn

Posted: Wed Mar 09, 2022 06:46 PM

José Luis,

Es un viejo requerimiento de Fwh.

IMHO, sĂłlo hay dos opciones:

1.- Crear un set de funciones alternativas a msginfo, msgyesno, msgnoyes, msgstop, etc, basado en un dialogo... Alguna vez vi algo asi en el foro
2.- Tirar de C y usar la funcion setfont aplicada a los objetos text de las ventanas msginfo, msgyesno, msgnoyes, siempre claro está que pudieramos conocer su handle, etc...

Salu2

Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM

Re: Characters from different code tables

Posted: Tue Aug 29, 2023 04:06 PM
Please first see the functioning of the function
Code (fw): Select all Collapse
FW_SayTextHilite( hDC, cText, aRect, oFont, nClrText, nClrBack, aWords )
This is an example how to use:
Code (fw): Select all Collapse
function TestHilite()

   local oWnd
   local cText := "We always eat dinner together"
   local aWords
   local oFont, oBold, oItalic

   DEFINE FONT oFont NAME "Segoe UI" SIZE 0,-22
   DEFINE FONT oBold NAME "VERDANA" SIZE 0,-25 BOLD
   DEFINE FONT oItalic NAME "TIMES NEW ROMAN" SIZE 0,-25 ITALIC

   aWords   := {  { "ALWAYS", oBold, CLR_HRED, CLR_YELLOW }, ;
                  { "DINNER", oItalic, CLR_GREEN, CLR_HGRAY }, ;
                  { "TOGETHER", oItalic, CLR_WHITE, CLR_RED } }

   DEFINE WINDOW oWnd
   oWnd:SetFont( oFont )

   oWnd:bPainted  := <|hDC|
      local aRect    := GetClientRect( oWnd:hWnd )
      aRect[ 2 ] += 100
      FW_SayTextHilite( hDC, cText, aRect, oFont, ;
            CLR_BLACK, CLR_WHITE, aWords )
      return nil
      >
   ACTIVATE WINDOW oWnd CENTERED

   RELEASE FONTS oFont, oBold, oItalic

return nil


Now you have to use this function to paint text in a cell by defining your own codeblock:
Code (fw): Select all Collapse
oCol:bPaintText
This codeblock is evaluated like this:
Code (fw): Select all Collapse
Eval( ::bPaintText, Self, hDC, cStrData, oRect:aRect, aColors, lHighLite, lSelected )
Regards



G. N. Rao.

Hyderabad, India
Posts: 7020
Joined: Fri Oct 07, 2005 07:07 PM

Re: how to change the size of an xbrowse in runtime

Posted: Thu May 02, 2024 09:16 PM

Please post the line where you create xbrowse?

Posts: 7020
Joined: Fri Oct 07, 2005 07:07 PM

Why AI might just be the best thing that could happen to the old FiveWin crowd

Posted: Tue Nov 18, 2025 10:59 PM

From “Heast as nit” to “Walk My Walk” – Why AI might just be the best thing that could happen to the old FiveWin crowd

If you drop by the FiveWin forum these days, it feels a bit like listening to Hubert von Goisern’s old song “Heast as nit” (“Don’t you hear how time goes by?”).
Just yesterday (at least it feels that way) we were passionately debating Clipper vs. Summer ’87, DBF structures, the perfect GET/READ behaviour, the pros and cons of xBrowse, TopClass vs. FiveWin vs. VO, and how to make a dialog look decent under Windows XP.
Today many of the familiar voices have grown quieter or vanished completely. The “young guns” of the 90s and 2000s are getting grey, some of the real old-timers are no longer with us, and what once felt timeless – PRG files, RDDs, TBrowse, Windows dialogs – has quietly turned into what the rest of the world now calls “legacy”.

That’s simply the story of software development we all lived through:
16-bit DOS → 32-bit Windows → OOP and GUI → Web → Microservices → Cloud → AI.
What felt rock-solid and modern was always just a temporary stop. Yesterday became today, and today will soon be tomorrow.
And right into this gentle, slightly melancholic “Heast as nit” moment, AI comes crashing in.
For many of us the first reaction is unease, even fear – another thing that feels like “this is no longer our world”.
But if you look closer, AI is actually a gift for exactly our generation of developers.
All the tedious detail work that used to eat days – obscure syntax variants, endless API quirks, miles of boilerplate code, hunting down that one parameter that makes everything work under Windows 11 – we can finally hand that over to the assistant.
The machine is simply better and faster at that stuff than we ever were.

What’s left for us is exactly where our decades of experience still shine:
concept, architecture, understanding the real problem, asking the right questions.
Instead of wrestling for hours with yet another special case in a grid control, we can finally ask again:
“What should this program actually improve in a user’s daily life? How does it fit into the bigger picture? What would be truly useful?”
That’s why now is the perfect time to revive the conversation in this forum – real conversation between us humans.
AI can help us think, design, prototype, and even write production-ready code in minutes.
But doubting, encouraging each other, discussing ideas, drawing boundaries, and dreaming up new projects together – that’s still something only we can do.
If we let the assistant take care of the technical trivia and start talking again about concepts, program ideas, and maybe even joint open-source projects, then AI won’t be the end of our little world.
It will put the excitement back into it.
Technical acceleration through AI on one side, and a conscious return to real discussions, shared experience, and old (and new) friendships on the other – maybe that’s the unique chance of our time.
So yes, time flies – “Heast as nit”.
But for the first time in many years I’m genuinely curious again about what we could still build together.
Who’s in?
Best regards,
Otto

https://www.youtube.com/watch?v=XfJMJw3uwxk

Don’t you hear
how time slips away?

Just yesterday
people spoke in a completely different way.

The young have grown old
and the old have passed away.

And yesterday has turned into today,
and today will soon be tomorrow.

Don’t you hear,
don’t you hear,
how time slips away,
don’t you hear how time slips away …

https://www.youtube.com/watch?v=XfHIRtAUuMM

Posts: 470
Joined: Fri Feb 05, 2010 11:30 AM

Re: Errsys Propio

Posted: Tue Jan 20, 2026 01:00 PM

Karinha!

rjviotti@gmail.com

Gracias!

Univ@c I.S.I.
Desarrolladores de Software
http://www.elcolegioencasa.ar

Continue the discussion