Multiline Folders

[StefanHaupt]

Hi StefanHaupt,
Can you please send it to me also?

Hakan,

Sorry for the delay, but I wasn´t online the last days. I just sent it to you

[Horizon]

Hi Antonio,

Can you please check it?

Thanks in advance.

Hi,

Is there any new solution for not using rc file.

Thanks,

Define
#define TCS_MULTILINE 512
and
After the line @ <r>, <c> FOLDER ...
add this line:

Code: Select all

   oFld:nStyle := nOr( oFld:nStyle, TCS_MULTILINE )

This is enough to have prompts in multiline when folder is created from source code ( without rc )

Thank you Nages,

I have changed my code and I think last line height of folder is wrong. Is there any solution for it?

Code: Select all

#include "FiveWin.ch" 
#define TCS_MULTILINE 512

function Main() 
LOCAL oGet1, oGet2, oGet3, oGet4, oGet5, obtnCancel, obtnChg
LOCAL oFnt, oFnt2, oDlg, oFld, oGrp, oGrp1 
LOCAL xVekNo := 11, xREFNO := SPACE(15), xNOTER := SPACE(20)
    
  DEFINE FONT oFnt NAME "Verdana" SIZE 0, -16 BOLD 
    DEFINE FONT oFnt1 NAME "Verdana" SIZE 0, -12

   DEFINE DIALOG oDlg SIZE 620, 294 FONT oFnt1  ;
        STYLE nOr( WS_OVERLAPPEDWINDOW ) TRANSPARENT
    oDlg:SetColor(,9425383)
   
  @ 2, 3 FOLDER oFld OF oDlg SIZE 100, 100 PIXEL  TRANSPARENT; 
      PROMPTS "Page 1", "Page 2", "Page 3","Page 4","Page 5","Page 6","Page 7","Page 8","Page 9", "Page 10", ;
      "Page 11", "Page 12", "Page 13","Page 14","Page 15","Page 16","Page 17","Page 18","Page 19", "Page 20", 
    oFld:nStyle := nOr( oFld:nStyle, TCS_MULTILINE )
            
  @ 2, 3 GROUP oGrp TO 150, 150 PROMPT " Group Text " OF oFld:aDialogs[ 1 ] PIXEL TRANSPARENT;
    FONT oFnt

    @ 15,10 SAY oSay PROMPT "No" OF oFld:aDialogs[1] PIXEL UPDATE
    @ 13,68 GET oGet1 VAR xVEKNO OF oFld:aDialogs[1] PIXEL RIGHT PICT "@Z 9999999" UPDATE

    @ 15,160 SAY oSay PROMPT "Referans No" OF oFld:aDialogs[1] PIXEL UPDATE
    @ 13,218 GET oGet5 VAR xREFNO OF oFld:aDialogs[1] PIXEL SIZE 60,12 UPDATE

    @ 28,10 SAY "Remarks" OF oFld:aDialogs[1] PIXEL UPDATE
    @ 26,68 GET oGet2 VAR xNOTER OF oFld:aDialogs[1] PIXEL SIZE 80,12 UPDATE

    @ 100,10 BUTTON obtnCancel PROMPT "&Cancel" OF oDlg PIXEL SIZE 50,13 ;
        ACTION oDlg:End()

  oDlg:bResized := {|| ONINIT_VEKALET(oDlg, oFld, oGrp, obtnCancel, obtnChg) }
    ACTIVATE DIALOG oDlg CENTERED ON INIT ONINIT_VEKALET(oDlg, oFld, oGrp, obtnCancel, obtnChg)
    
    oFnt:End()
    oFnt1:End()

return nil 

PROCEDURE ONINIT_VEKALET(oDlg, oFld, oGrp, obtnCancel, obtnChg)
LOCAL i
    oFld:nHeight := oDlg:nHeight-80
    oFld:nWidth := oDlg:nWidth-29
    
  FOR i:=1 TO LEN(oFld:aDialogs)
  oFld:aDialogs[i]:SetColor(, oDlg:nClrPane)
  Next
  oFld:Refresh()
  
  oGrp:nHeight := oFld:nHeight-35
  oGrp:nWidth  := oFld:nWidth-17
  
  obtnCancel:nTop := oDlg:nHeight-70
    obtnCancel:nLeft := oDlg:nWidth-125


return
 

.rc

Code: Select all

1 24 "WindowsXP.Manifest"

[Raymundo Islas M.]

Hi everybody,

The problem is at Initiate Method.

::nHeight() - ::nFdHeight() - 4

If I change to -22 fixes this ONLY when folder is multiline, otherwise any "normal" folder looks wrong at bottom.

It needs a validation when is multiline and when is not.

I really hope someone can fix this, I'd like to use them.

Regards.