HMGforum.com

Code: Select all

....:ToolBar:TBarPlace( nPosition )

Code: Select all

#translate CRLF => HB_OsNewLine()  // <- It would be possible to include this in "hmg.ch" or another. "Ch" ?

#include "hmg.ch"
#include "hbqtgui.ch"

MEMVAR MainForm

FUNCTION Main

   PUBLIC MainForm

   HbQt_ErrorSys()

   WITH OBJECT MainForm := MAINWINDOW():New( "MainForm" )
      :Row    := 30
      :Col    := 10
      :Width  := 800
      :Height := 700
      :Title  := "Show bitmap usage"
      :OnInit := { || ( MainForm:Center(), RESIZE_IMG() ) }
      :Onsize := { || RESIZE_IMG() }

      WITH OBJECT MAINMENU():New( "mainmenu" )

            WITH OBJECT MENUITEM():New()
               :Caption    := "&show dim."
               :OnClick    := {|| ShowDim() }
            END WITH
      END WITH    // end PopUp

      WITH OBJECT Bitmap():New( "image1" )
         :Row        := 20
         :Col        := 10
         :Width      := 780
         :Height     := 585
         :Picture    := 'sea.jpg' // ':SEA'
         :BackColor  := { 0 , 255 , 0 }
         :Alignment  := LBL_CENTER
         :VAlignment := LBL_VCENTER
         :Stretch    := .T.
      END WITH

      MainForm:Image1:ScaledToWidth  := .T.
      MainForm:Image1:ScaledToHeight := .T.
      MainForm:Image1:stretch        := .T.
      MainForm:Image1:row            := 0
      MainForm:Image1:col            := 0
      MainForm:Image1:Smoothing      := Qt_SmoothTransformation
      MainForm:Image1:AspectRatio    := Qt_IgnoreAspectRatio

      ON KEY ALT+A OF MainForm ACTION ( eval( MainForm:oToolBar:oButton1:OnClick() ), MainForm.setfocus )
      ON KEY ALT+B OF MainForm ACTION ( eval( MainForm:oToolBar:oButton2:OnClick() ), MainForm.setfocus )
      ON KEY ALT+C OF MainForm ACTION ( eval( MainForm:oToolBar:oButton3:OnClick() ), MainForm.setfocus )

      DEFINE TOOLBAR oToolBar IMAGESIZE 80, 80 MOVEABLE .T. RIGHTTEXT TBARPLACE Qt_LeftToolBarArea

         TOOLBUTTON oButton1 ;
            Caption 'new' + CRLF + "ALT+A" ;
            picture 'hmg.png' ;
            ACTION MsgInfo( 'New!' ) ;
            tooltip 'tooltip new 2'

         TOOLBUTTON oButton2 ;
            Caption 'open' + CRLF + "ALT+B" ;
            picture 'hmg.png' ;
            ACTION  MsgInfo( 'Open!' ) ; // HMGAPP():ShowObjectsTree() ;
            tooltip 'tooltip open 2'

         TOOLBUTTON oButton3 ;
            Caption 'save' + CRLF + "ALT+C" ;
            picture 'hmg.png' ;
            ACTION MsgInfo( 'save!' ) ;
            tooltip 'tooltip save 2'

      END TOOLBAR

   END WITH

   MainForm:Activate()

RETURN NIL

/*..............................................................................
   ShowDim
..............................................................................*/
STATIC FUNCTION ShowDim()

   MsgStop( " W= " + hb_ValToExp( MainForm:Image1:ImageWidth() ) + " x H= " + hb_ValToExp( MainForm:Image1:ImageHeight() ) )

RETURN NIL

**************************
static function RESIZE_IMG
**************************

MainForm:Image1:Width  := MainForm:Width  
MainForm:Image1:Height := MainForm:Height

MainForm:Image1:refresh()

return NIL