How to code TScrDlg() for use in folder?

[hua]

Hi,
All samples I've looked at place calls to TScrDlg() at a dialog's ON INIT.
How should it be coded for use in a Folder/FolderEx?

TIA

[hua]

Tried

Code: Select all  Expand view  RUN

     
::oFolder:aDialogs[1]:bInit := {||  oScrDlg := TScrDlg():New(::oFolder:aDialogs[1],0,270,0,70) }                                           
 

Why :bInit is not evaluated?

[hua]

What's better between TScrDlg() and TScrollPanel?

[hua]

Resolved.

Code: Select all  Expand view  RUN

ACTIVATE DIALOG oDlg ON INIT MakeScroll(oFolder)

PROC MakeScroll(oFolder)
  local oScrDlg
  oScrDlg := TScrDlg():New(oFolder:aDialogs[1],0,SCROLL_RANGE,0,70)
  oFolder:aDialogs[1]:bMouseWheel := { | nKey, nDelta, nXPos, nYPos | MouseWheel( nKey, nDelta, nXPos, nYPos, oScrDlg ) }
RETURN
 

[Antonio Linares]

very good!

many thanks for sharing it!

[hua]

When I added up to 10 RTF controls within the same page on the TFolderEx,
the screen painting starts to become weird and folder names got painted where it shouldn't exist.

How to fix this?

[Antonio Linares]

Dear Hua,

Could you please provide us your PRG example to test it here ?

many thanks

[hua]

Hi Antonio,
I created a self-contained sample. It can be downloaded from here https://drive.google.com/file/d/1aBL3nn ... share_link
The paths in the .mak file would need to be updated first though

TIA

[Antonio Linares]

Dear Hua,

I have been able to build you example and see wht you mean

Please try to reduce the height used by TScrDlg()

[hua]

No joy.

Please try to reduce the height used by TScrDlg()

I reduced the controls from 10 to 7 sets. Seems painting issue is consistent.
There will be extra bits painted near the 5th, 7th and 10th TTitle

[Antonio Linares]

Please try to reduce the height of TScrDlg(), let the controls as they are

[hua]

Workaround the issue by not using Shadow

Code: Select all  Expand view  RUN

 REDEFINE TITLE oTitle ID 123 of oDlg SHADOW NOSHADOW
 

No joy.

Please try to reduce the height used by TScrDlg()

I reduced the controls from 10 to 7 sets. Seems painting issue is consistent.
There will be extra bits painted near the 5th, 7th and 10th TTitle

[Antonio Linares]

very good