Page 1 of 1
MSGINFO with scrollbars
Posted: Wed Jul 07, 2021 6:30 am
by Otto
Hello friends,
Is there a ready to go MSGINFO with scrollbars available?
Best regards,
Otto
Re: MSGINFO with scrollbars
Posted: Thu Jul 08, 2021 6:35 am
by nageswaragunupudi
Please try
Code: Select all | Expand
#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
Re: MSGINFO with scrollbars
Posted: Thu Jul 08, 2021 6:35 am
by nageswaragunupudi
Please try
Code: Select all | Expand
#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
Re: MSGINFO with scrollbars
Posted: Thu Jul 08, 2021 7:24 am
by 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
Re: MSGINFO with scrollbars
Posted: Thu Jul 08, 2021 7:56 am
by 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.
Re: MSGINFO with scrollbars
Posted: Thu Jul 08, 2021 1:22 pm
by 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
Re: MSGINFO with scrollbars
Posted: Sat Aug 21, 2021 6:57 pm
by 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
Re: MSGINFO with scrollbars
Posted: Sat Aug 21, 2021 8:22 pm
by FiveWiDi
Otto wrote:Dear Mr. Rao,
I think it would be very useful.
+1
Re: MSGINFO with scrollbars
Posted: Mon Sep 06, 2021 8:49 am
by 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
Re: MSGINFO with scrollbars
Posted: Mon Sep 06, 2021 4:49 pm
by nageswaragunupudi
Yes.
We will provide and inform.