FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour How to show a large text
vilian
Posts: 1067
Joined: Wed Nov 09, 2005 02:17 AM
How to show a large text
Posted: Tue Mar 27, 2018 01:49 PM

Hi guys,
Do you know what is the best way to show quickly a large text?
Probably i will need show it with a Vscroll.

Sds,
Vilian F. Arraes
vilian@vfatec.com.br
Belém-Pa-Brazil
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: How to show a large text
Posted: Tue Mar 27, 2018 02:09 PM

How long (bytes) ?

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
vilian
Posts: 1067
Joined: Wed Nov 09, 2005 02:17 AM
Re: How to show a large text
Posted: Tue Mar 27, 2018 02:12 PM

5kb in average.

Sds,
Vilian F. Arraes
vilian@vfatec.com.br
Belém-Pa-Brazil
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: How to show a large text
Posted: Tue Mar 27, 2018 02:32 PM

Use GET MEMO

Regards



G. N. Rao.

Hyderabad, India
vilian
Posts: 1067
Joined: Wed Nov 09, 2005 02:17 AM
Re: How to show a large text
Posted: Tue Mar 27, 2018 02:36 PM

Mr Rao,

I tried with MemoEdit() but its allows the user to change the content and I only wants to show the content.

Sds,
Vilian F. Arraes
vilian@vfatec.com.br
Belém-Pa-Brazil
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: How to show a large text
Posted: Tue Mar 27, 2018 02:40 PM

Use clause READONLY

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
vilian
Posts: 1067
Joined: Wed Nov 09, 2005 02:17 AM
Re: How to show a large text
Posted: Tue Mar 27, 2018 02:46 PM

Ok,

I was thinking that FWH had a user quick dialog box. I will create a dialog and use GET MEMO to show it.

Sds,
Vilian F. Arraes
vilian@vfatec.com.br
Belém-Pa-Brazil
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: How to show a large text
Posted: Tue Mar 27, 2018 02:54 PM
Code (fw): Select all Collapse
function ShowText( cText )

   local oDlg

   DEFINE DIALOG oDlg SIZE 600,300 PIXEL TRUEPIXEL
   @ 20,20 GET cText MEMO SIZE 560,260 PIXEL OF oDlg READONLY
   ACTIVATE DIALOG oDlg CENTERED

return nil
Regards



G. N. Rao.

Hyderabad, India
vilian
Posts: 1067
Joined: Wed Nov 09, 2005 02:17 AM
Re: How to show a large text
Posted: Tue Mar 27, 2018 02:57 PM

Thank you ;)

Sds,
Vilian F. Arraes
vilian@vfatec.com.br
Belém-Pa-Brazil
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: How to show a large text
Posted: Tue Mar 27, 2018 03:31 PM
Please also try this interesting function
Code (fw): Select all Collapse
   local oWnd

   DEFINE WINDOW oWnd

   @ 20,20 BUTTON "Show Text" SIZE 80,30 PIXEL OF oWnd ;
      ACTION HTMLPOP( GetActiveWindow(), nil, 0x000E, MEMOREAD( "c:\fwh\samples\tutor01.prg" ) )

   ACTIVATE WINDOW oWnd CENTERED
Regards



G. N. Rao.

Hyderabad, India
TimStone
Posts: 3022
Joined: Fri Oct 07, 2005 01:45 PM
Re: How to show a large text
Posted: Tue Mar 27, 2018 03:56 PM

I'm not sure what you are seeking.

I do have some memo fields within a dialog that users want both more space to edit ( so they can see more than what fits in the control space), and a larger font. I have a button that pops up a dialog using a larger size, and a larger font. It's popular.

Tim Stone
http://www.MasterLinkSoftware.com
http://www.autoshopwriter.com
timstone@masterlinksoftware.com
Using: FWH 23.10 with Harbour 3.2.0 / Microsoft Visual Studio Community 2022-24 32/64 bit
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: How to show a large text
Posted: Tue Mar 27, 2018 04:04 PM

Mr Vilian just wants to display medium-sized multi-line text without editing. We provided a basic sample. What font and size he likes and what size of dialog he wants he will decide and implement depending on his requirements.

Regards



G. N. Rao.

Hyderabad, India
TimStone
Posts: 3022
Joined: Fri Oct 07, 2005 01:45 PM
Re: How to show a large text
Posted: Tue Mar 27, 2018 06:29 PM
Here is a simple function I created. You can pass any text variable ( cLabTxt ) to it, call it with a button or other command ( ie. you could do a double click with a field to call it ), and it pops up a dialog box. The text is bold ( darker ) and larger, and it provides more editing space.

This is just another sample of a way to do the work you wish.

Code (fw): Select all Collapse
FUNCTION ExpandText( cLabTxt )

  LOCAL oXTxt, oGt1, oBarExp
  LOCAL aPubGrad := { | lInvert | If( ! lInvert, { { 0.50,16776960,16777215 }, ;
                    { 0.50,16777215,16776960 } }, { { 0.50,128,16777215 }, { 0.50,16777215,128 } } ) }   // HCYAN, WHITE ; RED, WHITE
  DEFINE FONT oLfont NAME cSysFont SIZE 0,-14 BOLD
 
 DEFINE DIALOG oXTxt RESOURCE "EXPTXT" BRUSH oBrush transparent OF oWnd FONT oLFont

    REDEFINE GET oGt1 VAR cLabTxt MEMO ID 8522 OF oXTxt
        oXTxt:bStart = { || oGt1:GoBottom() }

    REDEFINE BUTTONBAR oBarExp ID 100 SIZE 60,60 OF oXTxt 2015
    oBarExp:bClrGrad := aPubGrad
    DEFINE BUTTON oBtnEx1 OF oBarExp RESOURCE "HROK"  PROMPT "OK" ACTION ( oXTxt:end()) ;
        MESSAGE "Make your changes and press OK"
    DEFINE BUTTON oBtnEx2 OF oBarExp RESOURCE "SPELL" PROMPT "Spell" TOOLTIP "Spell check text" ;
        ACTION ( cLabTxt := SpellOne( cLabTxt ), oGt1:refresh( ) ) NOBORDER TRANSPARENT
        
    ACTIVATE DIALOG oXTxt ON INIT  oBarExp:lTransparent := .F. CENTERED
        
RETURN( cLabTxt )


Here is the .rc code:

Code (fw): Select all Collapse
EXPTXT DIALOG 0, 0, 660, 410
STYLE WS_POPUP | WS_CAPTION
CAPTION "Text Editor"
{
    CONTROL                 "", 100, "TBar", 0|WS_CHILD|WS_VISIBLE, 0,0, 660, 30
    EDITTEXT        8522,10,40,640,360,ES_MULTILINE | ES_WANTRETURN | WS_VSCROLL
}
Tim Stone
http://www.MasterLinkSoftware.com
http://www.autoshopwriter.com
timstone@masterlinksoftware.com
Using: FWH 23.10 with Harbour 3.2.0 / Microsoft Visual Studio Community 2022-24 32/64 bit
Horizon
Posts: 1387
Joined: Fri May 23, 2008 01:33 PM
Re: How to show a large text
Posted: Thu Dec 31, 2020 09:02 AM
cnavarro wrote:How long (bytes) ?


Hi,

If we have more 30000 bytes, memoedit readonly does not show. I dont use memo fields (dbfcdx) in this situation. Just use to show and add some characters (Append method) with other button. save it with another method.

Code (fw): Select all Collapse
oNots:Append(CRLF+CRLF+DTOC(DATE())+" - "+TIME()+" - "+         ALLTRIM(xUSERNAME+CRLF+REPLICATE("-",60)+CRLF+ALLTRIM(cText))


Any solution?
Regards,



Hakan ONEMLI



Harbour & MSVC 2022 & FWH 23.06
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: How to show a large text
Posted: Thu Dec 31, 2020 03:19 PM
If we have more 30000 bytes, memoedit readonly does not show.

If you are using FWH2006, even larger text is displayed without any limit.
(Note: MEMOEDIT function is renamed as FW_MEMOEDIT)
Regards



G. N. Rao.

Hyderabad, India
Static archive · New replies & topics via GitHub Discussions