HMGforum.com

Code: Select all

...
      DEFINE WINDOW Form_Fl ;
         AT 0,0 ;
         WIDTH 200 HEIGHT 80 ;
         TITLE 'ToolBar Float Small Buttons';
         PALETTE ;
         ON SIZE flResizeTb();
         ON INIT AdjustFloatToolbar( GetFormHandle('Form_1'), GetFormHandle('Form_fl'), GetControlHandle ('ToolBar_i' , 'Form_fl' ) )

         DEFINE TOOLBAREX ToolBar_i BUTTONSIZE 16,16 IMAGELIST IDB_STD_SMALL_COLOR  CAPTION 'Small Buttons from DLL' FLAT

            BUTTON Button_1 ;
               PICTUREINDEX STD_FILENEW ;
               TOOLTIP 'New file';
               ACTION MsgInfo('Click! ')

            BUTTON Button_2 ;
               PICTUREINDEX STD_FILEOPEN ;
               TOOLTIP 'File open';
               ACTION MsgInfo('Click! ')

            BUTTON Button_3 ;
               PICTUREINDEX STD_FILESAVE ;
               TOOLTIP 'Save file';
               ACTION MsgInfo('Click! ');

            BUTTON Button_4 ;
               PICTUREINDEX STD_PRINTPRE ;
               TOOLTIP 'Print Preview';
               ACTION MsgInfo('Click! ')

            BUTTON Button_5 ;
               PICTUREINDEX STD_PRINT ;
               TOOLTIP 'Print ';
               ACTION MsgInfo('Click! ');

            BUTTON Button_6 ;
               PICTUREINDEX STD_PROPERTIES ;
               TOOLTIP 'Properties';
               ACTION MsgInfo('Click! ')

            BUTTON Button_7 ;
               PICTUREINDEX STD_REPLACE ;
               TOOLTIP 'Replace';
               ACTION MsgInfo('Click! ');

            BUTTON Button_8 ;
               PICTUREINDEX STD_FIND ;
               TOOLTIP 'Find';
               ACTION MsgInfo('Click! ');

            BUTTON Button_9 ;
               PICTUREINDEX STD_CUT ;
               TOOLTIP 'Cut';
               ACTION MsgInfo('Click! ');

            BUTTON Button_10 ;
               PICTUREINDEX STD_DELETE ;
               TOOLTIP 'Delete';
               ACTION MsgInfo('Click! ');

            BUTTON Button_11 ;
               PICTUREINDEX STD_PASTE ;
               TOOLTIP 'Paste';
               ACTION MsgInfo('Click! ');

            BUTTON Button_12 ;
               PICTUREINDEX STD_UNDO ;
               TOOLTIP 'Undo';
               ACTION MsgInfo('Click! ');

            BUTTON Button_13 ;
               PICTUREINDEX STD_REDOW ;
               TOOLTIP 'Redo';
               ACTION MsgInfo('Click! ');

            BUTTON Button_14 ;
               PICTUREINDEX STD_HELP ;
               TOOLTIP 'Help';
               ACTION MsgInfo('Click! ');


         END TOOLBAR

      END WINDOW

   CENTER WINDOW Form_Fl

   ACTIVATE WINDOW Form_Fl