Folder Itemsize

[Antonio Linares]

Dietmar,

Please wait, I am testing the code myself and there is something wrong...

I am checking it

[Antonio Linares]

Dietmar,

Please try it this way:

Code: Select all  Expand view  RUN

    ACTIVATE DIALOG oDlg CENTER ;
       ON INIT AEval( oFolder:aDialogs, { | o | o:Move( o:nTop + 5, o:nLeft ), o:nHeight -= 4 } )
 

This is a workaround to see if we recover that missing line. Later on we will try to discover why such line is missing. Thanks,

[Dietmar Jahnel]

Code: Select all  Expand view  RUN

REDEFINE Folder SuchFolder ID 210 OF sDlg UPDATE;
                Prompts " Entscheidungen/Literatur " , " Gesetzessuche ", " Kommentare " ;
                DIALOGS "Suchschirm2", "Gesetzessuche", "Kommentare";
                OPTION 1;
                ON CHANGE( SetFoREDEFINElder( SuchFolder, nOption, nOldOption ) )

SuchFolder:nFdHeight += 35
 

Result: see the buttom of the folder

[Antonio Linares]

Dietmar,

Please don't use this code:

Code: Select all  Expand view  RUN

SuchFolder:nFdHeight += 35
 

Do it as explained here:
viewtopic.php?p=94168#p94168

[Dietmar Jahnel]

Thank Antonio,
The workaround ist working fine!
Dietmar

[Antonio Linares]

very good