2013-06-19 07:50

     $RESOURCE btn_BMP AS "Boutons.bmp"

     $INCLUDE "QTButton94.inc"
     $INCLUDE "QTButton_AddOns.inc"

     DECLARE SUB Form_Show()

'isXP_QTBtn = False

     CREATE Form AS QFORM
      CAPTION = "QTButton Add-Ons"
      ClientWidth = 251
      ClientHeight = 198
      Center
      CREATE Label4 AS QLABEL
       CAPTION = "Bouton normal :"
       Left = 8
       Top = 8
       Width = 88
       Transparent = 1
      END CREATE
      CREATE Button1 AS QBUTTON
       CAPTION = "Button1"
       Left = 8
       Top = 24
      END CREATE
      CREATE Button2 AS QBUTTON
       CAPTION = "Button2"
       Left = 88
       Top = 24
       TabOrder = 1
      END CREATE
      CREATE Button3 AS QBUTTON
       CAPTION = "Button3"
       Left = 168
       Top = 24
       TabOrder = 2
      END CREATE
      CREATE Label1 AS QLABEL
       CAPTION = "Vrai QTButton :"
       Left = 8
       Top = 56
       Width = 96
       Transparent = 1
      END CREATE
      CREATE Button4 AS QTBUTTON
       NumBMPs = 4
       CAPTION = "Button1"
       Left = 8
       Top = 72
       TabOrder = 3
      END CREATE
      CREATE Button5 AS QTBUTTON
       NumBMPs = 4
       CAPTION = "Button2"
       Left = 88
       Top = 72
       TabOrder = 4
      END CREATE
      CREATE Button6 AS QTBUTTON
       NumBMPs = 4
       CAPTION = "Button3"
       Left = 168
       Top = 72
       TabOrder = 5
      END CREATE
      CREATE Label2 AS QLABEL
       CAPTION = "QButton utilisant l'Add-on :"
       Left = 8
       Top = 104
       Width = 136
       Transparent = 1
      END CREATE
      CREATE Button7 AS QBUTTON
       CAPTION = "Button1"
       Left = 8
       Top = 120
       TabOrder = 14
      END CREATE
      CREATE Button8 AS QBUTTON
       CAPTION = "Button2"
       Left = 88
       Top = 120
       TabOrder = 15
      END CREATE
      CREATE Button9 AS QBUTTON
       CAPTION = "Button3"
       Left = 168
       Top = 120
       TabOrder = 16
      END CREATE
      CREATE Label3 AS QLABEL
       CAPTION = "QCoolBtn utilisant l'Add-on :"
       Left = 8
       Top = 152
       Width = 136
       Transparent = 1
      END CREATE
      CREATE CoolBtn1 AS QCOOLBTN
       Left = 8
       Top = 168
       Width = 23
       Height = 22
       GroupIndex = True
      END CREATE
      CREATE CoolBtn2 AS QCOOLBTN
       Left = 40
       Top = 168
       Width = 23
       Height = 22
       GroupIndex = True
      END CREATE
      CREATE CoolBtn3 AS QCOOLBTN
       Left = 72
       Top = 168
       Width = 23
       Height = 22
       GroupIndex = True
      END CREATE
      CREATE CoolBtn4 AS QCOOLBTN
       Left = 104
       Top = 168
       Width = 23
       Height = 22
       GroupIndex = True
      END CREATE
      CREATE CoolBtn5 AS QCOOLBTN
       Left = 136
       Top = 168
       Width = 23
       Height = 22
       GroupIndex = True
      END CREATE
      CREATE CoolBtn6 AS QCOOLBTN
       Left = 168
       Top = 168
       Width = 23
       Height = 22
       GroupIndex = True
      END CREATE
      OnShow = Form_Show
      OnClick = Form_Show
     END CREATE

     Form.SHOWMODAL

     SUB Form_Show
      Fast_QBtnToQTBtn( xpt_pushbtn, True, 4, Button7)
      Fast_QBtnToQTBtn( xpt_tabbtn, True, 4, Button8)
      Fast_QBtnToQTBtn( xpt_toolbarbtn, True, 4, Button9)
      Fast_QCBtnToQTBtn( xpt_pushbtn, True, 4, CoolBtn1)
      Fast_QCBtnToQTBtn( xpt_pushbtn, True, 4, CoolBtn2)
      Fast_QCBtnToQTBtn( xpt_toolbarbtn, True, 4, CoolBtn3)
      Fast_QCBtnToQTBtn( xpt_toolbarbtn, True, 4, CoolBtn4)
      Fast_QCBtnToQTBtn( xpt_tabbtn, True, 4, CoolBtn5)
      Fast_QCBtnToQTBtn( xpt_tabbtn, True, 4, CoolBtn6)
     END SUB

2013-06-19 07:50