Problem Creating ButtonBar Inside Folder Class -- SOLVED

[fraxzi]

Hello All,

I redefine Folder CLass (single page), I want to put ButtonBar inside that page.

I wish to create this sample image

Code: Select all  Expand view

...
REDEFINE FOLDER oFlder ID 1003 OF oDlg;
             PROMPT 'Photos';
             DIALOGS 'DLG_PHOTO' UPDATE
...

            DEFINE BUTTONBAR oBar SIZE 24,24 OF oFlder:aDialogs[ 1 ] 2007

...
 

has runtime error Class" TBAR; "Cannot create a top-levl child window"


Regards,
FAP

[ukoenig]

You can use it like ( only included as a test ) :

Code: Select all  Expand view

REDEFINE FOLDER oFld ID 100 OF oDlg UPDATE ;
PROMPTS "&Background  ", "&Circle  ", "&Body  ",  " &Size / Position ", "Base / &Text-Settings  ", " &Text-Select  ", "&Buttons  ", "&Devider " ;
DIALOGS "Painter", "Circle", "TBody", "Background", "Base", "TText", "TButtons", "Devider"  FONT oFoldFont // ;
* ON CHANGE( SetFolder( oWnd, oFld, nOption, nOldOption ) )

FOLDER_1(oDlg,oFld)  // Background
FOLDER_2(oDlg,oFld)  // Circle
FOLDER_3(oDlg,oFld)  // Body
FOLDER_4(oDlg,oFld)  // Position
FOLDER_5(oDlg,oFld)  // Base & Text
FOLDER_6(oDlg,oFld)  // Text
FOLDER_7(oDlg,oFld)  // Buttons
FOLDER_8(oDlg,oFld)  // Devider

ACTIVATE DIALOG oDlg CENTERED ;
ON INIT ( LOAD_DATA(), NEW_ARRAY(), ;
     SetImages(oDlg,oFld), ;
     GradBrush( oDlg, { { 0.50, 14853684, 16314573 }, ;
    { 0.50, 16314573, 14853684 } }, .T. ), PAINT_BAR( oFld ) ) ;
ON PAINT SetFoldGrad( oFld )

RETURN NIL  

// ------ Buttonbar in Folderpage 5 ----------------------------

FUNCTION PAINT_BAR( oFld )
LOCAL oBar

DEFINE BUTTONBAR oBar SIZE 33, 33 _3D OF oFld:aDialogs[5]

DEFINE BUTTON OF oBar FILE c_path + "\System\select.bmp"  ;
ACTION MsgAlert ( "Test" )

DEFINE BUTTON OF oBar FILE c_path + "\System\exit.bmp"  ;
ACTION MsgAlert ( "Test" )

RETURN NIL
 

Best Regards
Uwe

[fraxzi]

Thanks Uwe for you kind reply!


I solved using this approach

Code: Select all  Expand view

...
Activate Dialog
 On Init uDlgBar( oFlder:aDialogs[ 1 ] )
...

FUNCTION uDlgBar( oDlg )
 Local oBar

 DEFINE BUTTONBAR oBar SIZE 26,26 OF oDlg 2007

 DEFINE BUTTON OF oDlg:oBar;
        ACTION MsgInfo('first') RESOURCE 'first16' TRANSPARENT GROUP

 DEFINE BUTTON OF oDlg:oBar;
        ACTION MsgInfo('prev') RESOURCE 'back16' TRANSPARENT

 DEFINE BUTTON OF oDlg:oBar;
        ACTION MsgInfo('next') RESOURCE 'next16' TRANSPARENT

 DEFINE BUTTON OF oDlg:oBar;
        ACTION MsgInfo('last') RESOURCE 'last16' TRANSPARENT

 DEFINE BUTTON OF oDlg:oBar;
        ACTION MsgInfo('add')  RESOURCE 'plus16' TRANSPARENT GROUP

 DEFINE BUTTON OF oDlg:oBar;
        ACTION MsgInfo('del') RESOURCE 'minus16' TRANSPARENT

 DEFINE BUTTON OF oDlg:oBar;
        ACTION MsgInfo('change') RESOURCE 'refresh16' TRANSPARENT


RETURN
 

SEE:


My best Regards,
FAP