MSGINFO with scrollbars

[Otto]

Hello friends,
Is there a ready to go MSGINFO with scrollbars available?
Best regards,
Otto

[nageswaragunupudi]

Please try

Code: Select all  Expand view  RUN

#include "fivewin.ch"

function Main()

   local cText, oDlg, oGet, oBtn

   cText := MEMOREAD( "testmsg3.prg" )

   MsgInfo2( MEMOREAD( "testmsg3.prg" ), "testmsg3.prg" )

   ? "Done"

return nil

function MsgInfo2( cText, cTitle, nWidth, nHeight )

   local oDlg

   DEFAULT cTitle := "Attention", nWidth := 300, nHeight := 200

   DEFINE DIALOG oDlg SIZE nWidth, nHeight PIXEL TRUEPIXEL TITLE cTitle

   @  20, 20 GET oGet VAR cText MEMO SIZE nWidth - 40, nHeight - 90 PIXEL OF oDlg READONLY NOBORDER ;
      COLOR CLR_BLACK, oDlg:nClrPane

   @ nHeight - 40,( nWidth / 2 ) - 50 BUTTON "OK" SIZE 100,28 PIXEL OF oDlg ACTION oDlg:End()

   ACTIVATE DIALOG oDlg CENTERED

return nil
 

[nageswaragunupudi]

Please try

Code: Select all  Expand view  RUN

#include "fivewin.ch"

function Main()

   local cText, oDlg, oGet, oBtn

   cText := MEMOREAD( "testmsg3.prg" )

   MsgInfo2( MEMOREAD( "testmsg3.prg" ), "testmsg3.prg" )

   ? "Done"

return nil

function MsgInfo2( cText, cTitle, nWidth, nHeight )

   local oDlg

   DEFAULT cTitle := "Attention", nWidth := 300, nHeight := 200

   DEFINE DIALOG oDlg SIZE nWidth, nHeight PIXEL TRUEPIXEL TITLE cTitle

   @  20, 20 GET oGet VAR cText MEMO SIZE nWidth - 40, nHeight - 90 PIXEL OF oDlg READONLY NOBORDER ;
      COLOR CLR_BLACK, oDlg:nClrPane

   @ nHeight - 40,( nWidth / 2 ) - 50 BUTTON "OK" SIZE 100,28 PIXEL OF oDlg ACTION oDlg:End()

   ACTIVATE DIALOG oDlg CENTERED

return nil
 

[Otto]

Dear Mr. Rao,
Thank you. It is working fine.
Font is small, and I think we need also horizontal scrolling.
Do you add this to FW.

Best regards,
Otto

[nageswaragunupudi]

We can provide an option to specify a font.
If you think it would be useful, we can include in FWH after further refining it.
Horizontal scrolling may be not necessary because the text is wrapped to fit the width of the dialog.

[Otto]

Dear Mr. Rao,

I think it would be very useful.
At the same time, we should have a modal box with the same syntax for mod harbor. Maybe MsgInfo in mod is working this way, I test it.

Fwlog would also be great if it were adapted for mod harbour.

And it doesn't quite fit here, but a quick output of ARRAYs in mod harbour like xbrowser () would be helpful.

Best regards,
Otto

[Silvio.Falconi]

Nages,Otto,
is it possible to make a horizontal scroll with obviously small bitmaps (jpg, png) and alternate with text?
In the past I tried to do a small class but then I couldn't



sample png

[FiveWiDi]

Dear Mr. Rao,

I think it would be very useful.

+1

[Otto]

Dear Mr. Rao,
can we have a parameter to tell msginfo that it should be centered in the calling window/dialog or screen?
Thank you in advance
Otto

[nageswaragunupudi]

Yes.
We will provide and inform.