Hello,
is it possible, to create transparent Folder-pages using :
oFld:AddItem( "P 9", "dlg9", { | oDlg2 | RedefineControls( oDlg2 ) } ),;
ATail( oFld:aDialogs ):SetFont( oFld:oFont ) )
I created a Tool with the following Functions :
1. Select any pages from a given List.
2. Define Folder-Backgrounds :
Color, Gradient, Brush and Image.
The Pages are created and also the defined Controls are displayed,
but only the 1. Page, defined on Folder-init, is transparent.
The Tool is complete and I can select any Page and Folder-Background.
But still the usual Folder-transparent-problem to solve.
The new Folder-painter included :
define and select any Folder-Background :
Best Regards
uwe
is it possible, to create transparent Folder-pages using :
oFld:AddItem( "P 9", "dlg9", { | oDlg2 | RedefineControls( oDlg2 ) } ),;
ATail( oFld:aDialogs ):SetFont( oFld:oFont ) )
I created a Tool with the following Functions :
1. Select any pages from a given List.
2. Define Folder-Backgrounds :
Color, Gradient, Brush and Image.
The Pages are created and also the defined Controls are displayed,
but only the 1. Page, defined on Folder-init, is transparent.
...
...
ACTIVATE DIALOG oDlg2 CENTERED ;
ON INIT ( oDlg2:Move( 320, 50, NIL, NIL, .f. ), ; // Dialog-position
   SetImages(oDlg2,oFld), ; // Page-images
   AddDialog( oDlg2, oFld, nSelected ) ) // added PagesÂ
// -------------------
FUNCTION ADDDIALOG( oDlg2, oFld, nSelect )
// Selecting all other Folderpages ( 1. one excluded )
// -------------------------------------------------------------
I := 1
FOR I := 1 TO 12
  xxx := LTRIM(STR(I))
  IF lCheck[I] = .T. .and. I <> nSelected
    oFld:AddItem( cPROMPT[I], "dlg&xxx", { | oDlg2 | RedefineControls( oFld, oDlg2, I ) } )
    ATail( oFld:aDialogs ):SetFont( oFld:oFont )
  ENDIF
NEXT
RETURN NILThe Tool is complete and I can select any Page and Folder-Background.
But still the usual Folder-transparent-problem to solve.
The new Folder-painter included :
define and select any Folder-Background :
Best Regards
uwe
Since 1995 ( the first release of FW 1.9 )
i work with FW.
If you have any questions about special functions, maybe i can help.
i work with FW.
If you have any questions about special functions, maybe i can help.
