FiveTech Software tech support forums

very good

Thank Antonio,
The workaround ist working fine!
Dietmar

Dietmar,

Please don't use this code:

Code: Select all  Expand view

SuchFolder:nFdHeight += 35
 

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

REDEFINE Folder SuchFolder ID 210 OF sDlg UPDATE;                Prompts " Entscheidungen/Literatur " , " Gesetzessuche ", " Kommentare " ;                DIALOGS "Suchschirm2", "Gesetzessuche", "Kommentare";                OPTION 1;      ...

Dietmar, Please try it this way:     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 w...

Dietmar,

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

I am checking it

Dietmar,

Please try to increase oFolder:nFdHeight with larger values, i.e.:

oFolder:nFdHeight += 15

Do it after the REDEFINE FOLDER ... command. You should notice that the contained dialogs top margins change.

Is the line still erased ? Please post a screenshot, thanks

here it is, at the buttom is is not grey but white

Dietmar,

oFolder:nFdHeight keeps the height value of the tabs but does not modify it. That value is used to place the top margin of the contained dialogs.

Is the line still erased ? Please post a screenshot, thanks

   oFolder:nFdHeight += 5

try with different values there, thanks

This one does not change the itemsize but the last 5 pixel at the bottom of the folder are not painted..
D.

Dietmar, Then it means that DrawPBack() is not erasing that line. Lets modify oFolder:nFdHeight which holds the height of the tabs to position the contained dialogs:    REDEFINE FOLDER oFolder             ;        ID 102                           ;        OF oDlg                          ;        PR...

Code: Select all  Expand view

function DrawPBack()
return nil
 

This way no fill painting will be done and we can check if the line is visible. Thanks for your feedback

Sorry, same result, the line is not visible,
Dietmar

Dietmar, When clause TRANSPARENT is used on the folder, it sets all the contained dialogs to call DrawPBack() to fill each dialog surface. This function may be erasing that line. To check it, please add this dummy function to your main PRG: function DrawPBack()return nil  This way no fi...

with 19 the painting is ok, but this is standard size.
In our case 25 would look a lot better. We use this in another folder, where transparent is not needed.
The TRANSPARENT-clause seems to erase the line under the folders??
Can this be fixed?
Dietmar

Dietmar, Ok, Now I see what you mean, thanks :-) Using 20, instead of 25, seems to improve it     ACTIVATE DIALOG oDlg CENTER;       On INIT IIF(IsThemeActive(), oFolder:SetItemsize( ,20 ), ) //---> changed  http://img521.imageshack.us/img521/9811/captureix....