topic-35176

Posts: 7317

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: 44158

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: 7317

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: 44158

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: 7317

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: 7317

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: 44158

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: 7317

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: 44158

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: 7317

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 := ::hFont

I sent you test test

Code (fw): Select all Collapse

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

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: 7317

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: 44158

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: 6755

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: 7317

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

FiveTech Support Forums

Continue the discussion