Folder:AddItem new ::Dialogs Position

[Jimmy]

hi,

when using AddItem of TFolder() / TFolderEx() the new ::Dialogs have different Position as 0,0

it disappear when "resize" ::Dialogs

is there a Workaround without "resize"

[Antonio Linares]

Dear Jimmy,

When Method AddItem() is called, the new dialog gets created at zero, zero:

Code: Select all | Expand

   if Empty( cResName )
      DEFINE DIALOG oDlg OF Self STYLE WS_CHILD ;
         FROM 0, 0 TO oThis:nHeight - oThis:nFdHeight - 5, oThis:nWidth - 6 PIXEL
   else
      DEFINE DIALOG oDlg OF Self STYLE WS_CHILD ;
         FROM 0, 0 TO oThis:nHeight - oThis:nFdHeight - 5, oThis:nWidth - 6 PIXEL ;
         NAME cResName
   endif

then, from the ACTIVATE DIALOG we set the position:

Code: Select all | Expand

   ACTIVATE DIALOG oDlg NOWAIT ;
      ON INIT ( oDlg:Move( oThis:nFdHeight + 2, 3, oThis:nWidth - 6, oThis:nHeight - oThis:nFdHeight - 5 ) ) ;
      VALID .f.

So if you modify DATA nFdHeight you could change its position automatically

[Jimmy]

hi Antonio,

So if you modify DATA nFdHeight you could change its position automatically

ok, thx for Answer