FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)Last update on Sat Oct 17, 2026 02:08 PM UTC
Board index FiveWin for Harbour/xHarbour html class
Silvio.Falconi
Posts: 7348
Joined: Thu Oct 18, 2012 07:17 PM

html class

Posted: Wed Jan 24, 2018 10:12 AM

Fivewin have a class read a html file ?

I not want use activex as this test

Function Mostra_html(cHtml,cPath)
Local ohtmlDlg
Local oActiveX
MemoWrit(cPath+"MiHtml.htm",chtml)
DEFINE WINDOW ohtmlDlg TITLE "Mostra la licenza"
oActiveX := TActiveX():New( ohtmlDlg, "Shell.Explorer.2" )
ohtmlDlg:oClient = oActiveX // To fill the entire window surface
oActiveX:Do("Navigate2",cPath+"MiHtml.htm")
ACTIVATE WINDOW ohtmlDlg
RETUR NIL

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
Antonio Linares
Posts: 44508
Joined: Thu Oct 06, 2005 05:47 PM

Re: html class

Posted: Wed Jan 24, 2018 10:14 AM

Silvio,

You can read it using MemoRead()

the question is: what to do with it ? :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
Silvio.Falconi
Posts: 7348
Joined: Thu Oct 18, 2012 07:17 PM

Re: html class

Posted: Wed Jan 24, 2018 10:20 AM

I wish insert on vistamenu instead ctext and I have many items as I send you the message
I cannot use activex for each items

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
Antonio Linares
Posts: 44508
Joined: Thu Oct 06, 2005 05:47 PM

Re: html class

Posted: Wed Jan 24, 2018 10:21 AM

Silvio,

You may use a TUrlLink control for each element

regards, saludos

Antonio Linares
www.fivetechsoft.com
Silvio.Falconi
Posts: 7348
Joined: Thu Oct 18, 2012 07:17 PM

Re: html class

Posted: Wed Jan 24, 2018 11:13 AM

Yes of cours
but i need yo write a text as....
Sample
There are 6 orders on payment...
And only the words 'oders' must open my function to show the orders
I hope you understood me
I cannot use urlink because it write all words as link

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
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM

Re: html class

Posted: Wed Jan 24, 2018 02:55 PM
And only the words 'oders' must open my function to show the orders


Please try
Code (fw): Select all Collapse
oURL := TURLLink( ................. )
oURL:SetText( "Orders" )
Regards



G. N. Rao.

Hyderabad, India
Silvio.Falconi
Posts: 7348
Joined: Thu Oct 18, 2012 07:17 PM

Re: html class

Posted: Wed Jan 24, 2018 04:21 PM
Rao
I explain you
I thinked to create an area into a dialog or window

This area is a "virtual bulletin board" where you can pin and always see the most common and useful information, such as the company's bank details, the telephone numbers of the employees, the telephone numbers of the emergency providers, interesting internet links, etc. .






each items must have an image at left a text on the right
the text can be normal text or text with link
it can be made with vistamenu changed ctext command or add html or richedit memo

I not have problem to make the normal and link text

I have a class to write a Html file




I have problem to insert it on vistamenu item

if you see this topic viewtopic.php?f=3&t=34005&start=0&hilit=dashboard


antonio sad me to use vistamenu but the methd addlitem out a text with underfont and if I make

addItem( cTextHtml) it make all my text (html) with underfont write also the command html
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
Antonio Linares
Posts: 44508
Joined: Thu Oct 06, 2005 05:47 PM

Re: html class

Posted: Wed Jan 24, 2018 05:34 PM

Silvio,

You have to modify Class TVistaMenu and TVistaMenuItem or create some new classes inspired on them

regards, saludos

Antonio Linares
www.fivetechsoft.com
Silvio.Falconi
Posts: 7348
Joined: Thu Oct 18, 2012 07:17 PM

Re: html class

Posted: Wed Jan 24, 2018 05:53 PM
Antonio,
I'm trying to make it
but I have two problems :
1) show the text
2) click on a symbol I insert on the end of item

for the first point ( text ) I 'm trying to found a solution but it is hard the text is go out od the item ( see the picture)

I explain for the second point I add a data aBtnarray

::aBtnarray := C5Simbol( hDC, ::rcItemL1[1]+((::rcItemL1[3]-::rcItemL1[1])/2)-6,::rcItemL1[4] +2, .f., "u", .T. )

if draw a arrow at the end of item see the image ( red circle) it is visible when the user not is over the item



How I can make to click on it and open a popmenu ?
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
Antonio Linares
Posts: 44508
Joined: Thu Oct 06, 2005 05:47 PM

Re: html class

Posted: Wed Jan 24, 2018 08:40 PM

Silvio,

Use the function DrawText() as it draws the text inside a rectangle. Look for DrawText inside FWH/source/classes/*.prg

Use a TBtnBmp for the arrow

regards, saludos

Antonio Linares
www.fivetechsoft.com
Silvio.Falconi
Posts: 7348
Joined: Thu Oct 18, 2012 07:17 PM

Re: html class

Posted: Thu Jan 25, 2018 10:03 AM

I tried to insert a btnbmp but it make error

@ ::rcItem[1]+1, ::rcItem[3]-11 BTNBMP oBtnLeft SIZE 16, 16 OF Self
oBtnLeft:hBitmap1 := LoadBitmap( 0, 32750 )
oBtnLeft:bAction := {|| Msginfo() }
oBtnLeft:oFont := ::oWnd:oFont2:hFont

I sent you test test

[code]Application

   Path and name: C:\Work\errori\dashboard\TEST.Exe (32 bits)
   Size: 3,643,904 bytes
   Compiler version: Harbour 3.2.0dev (r1703231115)
   FiveWin  version: FWH 17.12
   C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
   Windows version: 6.2, Build 9200

   Time from start: 0 hours 0 mins 0 secs
   Error occurred at: 01/25/18, 10:59:05
   Error description: Error BASE/1004  Message not found: TDASHBOARDITEM:OFONT
   Args:
     [   1] = O   TDASHBOARDITEM

Stack Calls

   Called from:  => __ERRRT_SBASE( 0 )
   Called from: ../../../tobject.prg => TDASHBOARDITEM:ERROR( 0 )
   Called from: ../../../tobject.prg => (b)HBOBJECT( 0 )
   Called from: ../../../tobject.prg => TDASHBOARDITEM:MSGNOTFOUND( 0 )
   Called from: ../../../tobject.prg => TDASHBOARDITEM:OFONT( 0 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:NEW( 306 )
   Called from: Source\vistamnu.prg => TDASHBOARDITEM:PAINT( 1337 )
   Called from: Source\vistamnu.prg => TDASHBOARD:PAINT( 744 )
   Called from: Source\vistamnu.prg => (b)TDASHBOARD( 54 )
   Called from: Source\vistamnu.prg => TDASHBOARD:DISPLAY( 0 )
   Called from: .\source\classes\CONTROL.PRG => TDASHBOARD:HANDLEEVENT( 1697 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3356 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 296 )
   Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 436 )
   Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 23 )
   Called from:  => __ERRRT_SBASE( 0 )
   Called from: ../../../tobject.prg => TDASHBOARDITEM:ERROR( 0 )
   Called from: ../../../tobject.prg => (b)HBOBJECT( 0 )
   Called from: ../../../tobject.prg => TDASHBOARDITEM:MSGNOTFOUND( 0 )
   Called from: ../../../tobject.prg => TDASHBOARDITEM:OFONT( 0 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:NEW( 306 )
   Called from: Source\vistamnu.prg => TDASHBOARDITEM:PAINT( 1337 )
   Called from: Source\vistamnu.prg => TDASHBOARD:PAINT( 744 )
   Called from: Source\vistamnu.prg => (b)TDASHBOARD( 54 )
   Called from: Source\vistamnu.prg => TDASHBOARD:DISPLAY( 0 )
   Called from: .\source\classes\CONTROL.PRG => TDASHBOARD:HANDLEEVENT( 1697 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3356 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 296 )
   Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 436 )
   Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 23 )
   Called from:  => __ERRRT_SBASE( 0 )
   Called from: ../../../tobject.prg => TDASHBOARDITEM:ERROR( 0 )
   Called from: ../../../tobject.prg => (b)HBOBJECT( 0 )
   Called from: ../../../tobject.prg => TDASHBOARDITEM:MSGNOTFOUND( 0 )
   Called from: ../../../tobject.prg => TDASHBOARDITEM:OFONT( 0 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:NEW( 306 )
   Called from: Source\vistamnu.prg => TDASHBOARDITEM:PAINT( 1337 )
   Called from: Source\vistamnu.prg => TDASHBOARD:PAINT( 744 )
   Called from: Source\vistamnu.prg => (b)TDASHBOARD( 54 )
   Called from: Source\vistamnu.prg => TDASHBOARD:DISPLAY( 0 )
   Called from: .\source\classes\CONTROL.PRG => TDASHBOARD:HANDLEEVENT( 1697 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3356 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 296 )
   Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 436 )
   Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 23 )
   Called from:  => __ERRRT_SBASE( 0 )
   Called from: ../../../tobject.prg => TDASHBOARDITEM:ERROR( 0 )
   Called from: ../../../tobject.prg => (b)HBOBJECT( 0 )
   Called from: ../../../tobject.prg => TDASHBOARDITEM:MSGNOTFOUND( 0 )
   Called from: ../../../tobject.prg => TDASHBOARDITEM:OFONT( 0 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:NEW( 306 )
   Called from: Source\vistamnu.prg => TDASHBOARDITEM:PAINT( 1337 )
   Called from: Source\vistamnu.prg => TDASHBOARD:PAINT( 744 )
   Called from: Source\vistamnu.prg => (b)TDASHBOARD( 54 )
   Called from: Source\vistamnu.prg => TDASHBOARD:DISPLAY( 0 )
   Called from: .\source\classes\CONTROL.PRG => TDASHBOARD:HANDLEEVENT( 1697 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3356 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 296 )
   Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 436 )
   Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 23 )
   Called from:  => __ERRRT_SBASE( 0 )
   Called from: ../../../tobject.prg => TDASHBOARDITEM:ERROR( 0 )
   Called from: ../../../tobject.prg => (b)HBOBJECT( 0 )
   Called from: ../../../tobject.prg => TDASHBOARDITEM:MSGNOTFOUND( 0 )
   Called from: ../../../tobject.prg => TDASHBOARDITEM:OFONT( 0 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:NEW( 306 )
   Called from: Source\vistamnu.prg => TDASHBOARDITEM:PAINT( 1337 )
   Called from: Source\vistamnu.prg => TDASHBOARD:PAINT( 744 )

System[/code]

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
Silvio.Falconi
Posts: 7348
Joined: Thu Oct 18, 2012 07:17 PM

Re: html class

Posted: Thu Jan 25, 2018 10:22 AM

Sorry I saw on classes there is CLASS THtmlPage but not run ?

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
Antonio Linares
Posts: 44508
Joined: Thu Oct 06, 2005 05:47 PM

Re: html class

Posted: Thu Jan 25, 2018 04:33 PM

Silvio,

It is only an early prototype

regards, saludos

Antonio Linares
www.fivetechsoft.com
cnavarro
Posts: 6763
Joined: Wed Feb 15, 2012 08:25 PM

Re: html class

Posted: Thu Jan 25, 2018 05:39 PM
And with this?
Code (fw): Select all Collapse
oBtnLeft:SetFont( ::oWnd:oFont2 )
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
Silvio.Falconi
Posts: 7348
Joined: Thu Oct 18, 2012 07:17 PM

Re: html class

Posted: Fri Jan 26, 2018 09:25 AM

same error

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

Continue the discussion

Static archive · New replies & topics via GitHub Discussions