home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 25 / CD_ASCQ_25_1095.iso / win / fr / wninova / wnickbor / fdemcoch.frm < prev    next >
Text File  |  1995-08-03  |  14KB  |  375 lines
  1. VERSION 2.00
  2. Begin Form FDemoCoche 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Trait simple fixe
  5.    Caption         =   "DΘmo Coche 3D (WINO_CK3DCLASS_GRP2)"
  6.    ClientHeight    =   6255
  7.    ClientLeft      =   1170
  8.    ClientTop       =   2025
  9.    ClientWidth     =   7290
  10.    ClipControls    =   0   'False
  11.    ControlBox      =   0   'False
  12.    Height          =   6660
  13.    Left            =   1110
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   6255
  17.    ScaleWidth      =   7290
  18.    Top             =   1680
  19.    Width           =   7410
  20.    Begin WINO_BORD3DCLASS_GRP2 Bord3D1 
  21.       BackColor       =   &H00C0C0C0&
  22.       BordAlignement  =   3  'FixΘ en Haut
  23.       BordCouleur     =   0  'GRIS
  24.       BordEnHaut      =   -1  'True
  25.       BordEpaisseur   =   5
  26.       Height          =   5385
  27.       Index           =   1
  28.       Left            =   0
  29.       TabIndex        =   2
  30.       Top             =   0
  31.       Width           =   7290
  32.       Begin WINO_BORD3DCLASS_GRP2 BordDemo 
  33.          BackColor       =   &H00000000&
  34.          BordCouleur     =   0  'GRIS
  35.          BordEnHaut      =   -1  'True
  36.          BordEpaisseur   =   2
  37.          BordExterieur   =   2  'EnfoncΘ Double
  38.          BordInterieur   =   2  'EnfoncΘ Double
  39.          CaptionCouleur  =   &H00FF0000&
  40.          CaptionEffet3D  =   3  'SoulevΘ LΘger
  41.          FontBold        =   -1  'True
  42.          FontItalic      =   0   'False
  43.          FontName        =   "Courier New"
  44.          FontSize        =   12
  45.          FontStrikethru  =   0   'False
  46.          FontUnderline   =   0   'False
  47.          Height          =   1170
  48.          Index           =   3
  49.          Left            =   180
  50.          TabIndex        =   14
  51.          Top             =   4035
  52.          Width           =   6930
  53.          Begin Label Etiquette1 
  54.             Alignment       =   2  'CentrΘ
  55.             BackColor       =   &H00000000&
  56.             Caption         =   "Vous pouvez modifier l'Effet 3D du Caption etc..."
  57.             FontBold        =   -1  'True
  58.             FontItalic      =   0   'False
  59.             FontName        =   "Courier New"
  60.             FontSize        =   12
  61.             FontStrikethru  =   0   'False
  62.             FontUnderline   =   0   'False
  63.             ForeColor       =   &H0000FF00&
  64.             Height          =   810
  65.             Index           =   1
  66.             Left            =   135
  67.             TabIndex        =   15
  68.             Top             =   180
  69.             Width           =   6660
  70.          End
  71.       End
  72.       Begin WINO_BORD3DCLASS_GRP2 BordDemo 
  73.          BackColor       =   &H00C0C0C0&
  74.          BordCouleur     =   0  'GRIS
  75.          BordExterieur   =   2  'EnfoncΘ Double
  76.          BordLargeurint  =   0
  77.          Caption         =   "Case α Cocher et Case d'Option utilisant des images BMP externes"
  78.          CaptionCouleur  =   &H00FF0000&
  79.          CaptionEffet3D  =   3  'SoulevΘ LΘger
  80.          FontBold        =   -1  'True
  81.          FontItalic      =   0   'False
  82.          FontName        =   "Courier New"
  83.          FontSize        =   12
  84.          FontStrikethru  =   0   'False
  85.          FontUnderline   =   0   'False
  86.          Height          =   1410
  87.          Index           =   2
  88.          Left            =   180
  89.          TabIndex        =   9
  90.          Top             =   2520
  91.          Width           =   6930
  92.          Begin WINO_CK3DCLASS_GPR2 ExCocheBmp 
  93.             BackColor       =   &H00C0C0C0&
  94.             Caption         =   "Case α Cocher"
  95.             CaptionEffet3D  =   1  'EnfoncΘ LΘger
  96.             Height          =   300
  97.             ImageCoche      =   FDEMCOCH.FRX:0000
  98.             ImagePasCoche   =   FDEMCOCH.FRX:00FA
  99.             Index           =   1
  100.             Left            =   4665
  101.             MousePointer    =   10  'FlΦche vers le haut
  102.             TabIndex        =   13
  103.             Top             =   960
  104.             Valeur          =   0   'False
  105.             Width           =   1725
  106.          End
  107.          Begin WINO_CK3DCLASS_GPR2 ExOptBmp 
  108.             BackColor       =   &H00C0C0C0&
  109.             Caption         =   "Case d'Option"
  110.             CaptionEffet3D  =   1  'EnfoncΘ LΘger
  111.             Height          =   300
  112.             ImageCoche      =   FDEMCOCH.FRX:01F4
  113.             ImagePasCoche   =   FDEMCOCH.FRX:02EE
  114.             Index           =   1
  115.             Left            =   705
  116.             MousePointer    =   10  'FlΦche vers le haut
  117.             TabIndex        =   11
  118.             Top             =   960
  119.             TypeCoche       =   1  'RadioBouton 
  120.             Valeur          =   0   'False
  121.             Width           =   1725
  122.          End
  123.          Begin WINO_CK3DCLASS_GPR2 ExCocheBmp 
  124.             BackColor       =   &H00C0C0C0&
  125.             Caption         =   "Case α Cocher"
  126.             CaptionEffet3D  =   1  'EnfoncΘ LΘger
  127.             Height          =   300
  128.             ImageCoche      =   FDEMCOCH.FRX:03E8
  129.             ImagePasCoche   =   FDEMCOCH.FRX:04E2
  130.             Index           =   0
  131.             Left            =   4665
  132.             MousePointer    =   10  'FlΦche vers le haut
  133.             TabIndex        =   12
  134.             Top             =   645
  135.             Valeur          =   0   'False
  136.             Width           =   1725
  137.          End
  138.          Begin WINO_CK3DCLASS_GPR2 ExOptBmp 
  139.             BackColor       =   &H00C0C0C0&
  140.             Caption         =   "Case d'Option"
  141.             CaptionEffet3D  =   1  'EnfoncΘ LΘger
  142.             Height          =   300
  143.             ImageCoche      =   FDEMCOCH.FRX:05DC
  144.             ImagePasCoche   =   FDEMCOCH.FRX:06D6
  145.             Index           =   0
  146.             Left            =   705
  147.             MousePointer    =   10  'FlΦche vers le haut
  148.             TabIndex        =   10
  149.             Top             =   645
  150.             TypeCoche       =   1  'RadioBouton 
  151.             Valeur          =   0   'False
  152.             Width           =   1725
  153.          End
  154.          Begin Line Ligne1 
  155.             BorderWidth     =   2
  156.             Index           =   0
  157.             X1              =   3465
  158.             X2              =   3465
  159.             Y1              =   540
  160.             Y2              =   1335
  161.          End
  162.       End
  163.       Begin WINO_BORD3DCLASS_GRP2 BordDemo 
  164.          BackColor       =   &H00C0C0C0&
  165.          BordCouleur     =   0  'GRIS
  166.          BordEpaisseur   =   3
  167.          Caption         =   "Avantage de la PropriΘtΘ : Groupe"
  168.          CaptionCouleur  =   &H00FF0000&
  169.          CaptionEffet3D  =   3  'SoulevΘ LΘger
  170.          FontBold        =   -1  'True
  171.          FontItalic      =   0   'False
  172.          FontName        =   "Courier New"
  173.          FontSize        =   12
  174.          FontStrikethru  =   0   'False
  175.          FontUnderline   =   0   'False
  176.          Height          =   1485
  177.          Index           =   1
  178.          Left            =   180
  179.          TabIndex        =   6
  180.          Top             =   990
  181.          Width           =   6930
  182.          Begin WINO_CK3DCLASS_GPR2 RdGroupe1 
  183.             BackColor       =   &H00C0C0C0&
  184.             Caption         =   "Option du Groupe 2"
  185.             CaptionEffet3D  =   3  'SoulevΘ LΘger
  186.             Groupe          =   1
  187.             Height          =   300
  188.             Index           =   1
  189.             Left            =   4185
  190.             MousePointer    =   10  'FlΦche vers le haut
  191.             TabIndex        =   17
  192.             Top             =   1075
  193.             TypeCoche       =   1  'RadioBouton 
  194.             Valeur          =   0   'False
  195.             Width           =   2055
  196.          End
  197.          Begin WINO_CK3DCLASS_GPR2 RdGroupe1 
  198.             BackColor       =   &H00C0C0C0&
  199.             Caption         =   "Option du Groupe 2"
  200.             CaptionEffet3D  =   3  'SoulevΘ LΘger
  201.             Groupe          =   1
  202.             Height          =   300
  203.             Index           =   0
  204.             Left            =   4185
  205.             MousePointer    =   10  'FlΦche vers le haut
  206.             TabIndex        =   16
  207.             Top             =   775
  208.             TypeCoche       =   1  'RadioBouton 
  209.             Valeur          =   0   'False
  210.             Width           =   2055
  211.          End
  212.          Begin WINO_CK3DCLASS_GPR2 RdGroupe0 
  213.             BackColor       =   &H00C0C0C0&
  214.             Caption         =   "Option du Groupe 1"
  215.             CaptionEffet3D  =   3  'SoulevΘ LΘger
  216.             Height          =   300
  217.             Index           =   1
  218.             Left            =   705
  219.             MousePointer    =   10  'FlΦche vers le haut
  220.             TabIndex        =   8
  221.             Top             =   1075
  222.             TypeCoche       =   1  'RadioBouton 
  223.             Valeur          =   0   'False
  224.             Width           =   2055
  225.          End
  226.          Begin WINO_CK3DCLASS_GPR2 RdGroupe0 
  227.             BackColor       =   &H00C0C0C0&
  228.             Caption         =   "Option du Groupe 1"
  229.             CaptionEffet3D  =   3  'SoulevΘ LΘger
  230.             Height          =   300
  231.             Index           =   0
  232.             Left            =   705
  233.             MousePointer    =   10  'FlΦche vers le haut
  234.             TabIndex        =   7
  235.             Top             =   775
  236.             TypeCoche       =   1  'RadioBouton 
  237.             Valeur          =   0   'False
  238.             Width           =   2055
  239.          End
  240.          Begin Label Etiquette1 
  241.             Alignment       =   2  'CentrΘ
  242.             BackColor       =   &H00000000&
  243.             Caption         =   "Chaque groupe fonctionne indΘpendement de l'autre, etc.."
  244.             ForeColor       =   &H0000FF00&
  245.             Height          =   435
  246.             Index           =   0
  247.             Left            =   120
  248.             TabIndex        =   18
  249.             Top             =   300
  250.             Width           =   6705
  251.          End
  252.          Begin Line Ligne1 
  253.             BorderWidth     =   2
  254.             Index           =   1
  255.             X1              =   3465
  256.             X2              =   3465
  257.             Y1              =   570
  258.             Y2              =   1365
  259.          End
  260.       End
  261.       Begin WINO_BORD3DCLASS_GRP2 BordDemo 
  262.          BackColor       =   &H00C0C0C0&
  263.          BordCouleur     =   0  'GRIS
  264.          BordExterieur   =   6  'MontΘ Double
  265.          BordInterieur   =   0  'Rien
  266.          BordLargeurint  =   0
  267.          Caption         =   "PropriΘtΘ : TypeCoche = "
  268.          CaptionCouleur  =   &H00FF0000&
  269.          CaptionEffet3D  =   3  'SoulevΘ LΘger
  270.          FontBold        =   -1  'True
  271.          FontItalic      =   0   'False
  272.          FontName        =   "Courier New"
  273.          FontSize        =   12
  274.          FontStrikethru  =   0   'False
  275.          FontUnderline   =   0   'False
  276.          Height          =   825
  277.          Index           =   0
  278.          Left            =   180
  279.          TabIndex        =   3
  280.          Tag             =   "PropriΘtΘ : TypeCoche = "
  281.          Top             =   105
  282.          Width           =   6930
  283.          Begin WINO_CK3DCLASS_GPR2 DemoType 
  284.             BackColor       =   &H00C0C0C0&
  285.             Caption         =   "1 - Case d'Option"
  286.             CaptionEffet3D  =   3  'SoulevΘ LΘger
  287.             Height          =   270
  288.             Index           =   1
  289.             Left            =   3945
  290.             MousePointer    =   10  'FlΦche vers le haut
  291.             TabIndex        =   5
  292.             Top             =   400
  293.             TypeCoche       =   1  'RadioBouton 
  294.             Valeur          =   0   'False
  295.             Width           =   2145
  296.          End
  297.          Begin WINO_CK3DCLASS_GPR2 DemoType 
  298.             BackColor       =   &H00C0C0C0&
  299.             Caption         =   "0 - Case α Cocher"
  300.             CaptionEffet3D  =   3  'SoulevΘ LΘger
  301.             Height          =   270
  302.             Index           =   0
  303.             Left            =   1110
  304.             MousePointer    =   10  'FlΦche vers le haut
  305.             TabIndex        =   4
  306.             Top             =   400
  307.             Valeur          =   0   'False
  308.             Width           =   2145
  309.          End
  310.       End
  311.    End
  312.    Begin WINO_BORD3DCLASS_GRP2 Bord3D1 
  313.       BackColor       =   &H00C0C0C0&
  314.       BordAlignement  =   4  'FixΘ en Bas
  315.       BordCouleur     =   0  'GRIS
  316.       BordEnHaut      =   -1  'True
  317.       BordEpaisseur   =   5
  318.       EnfantContour   =   1  'Ombre
  319.       Height          =   855
  320.       Index           =   0
  321.       Left            =   0
  322.       TabIndex        =   0
  323.       Top             =   5400
  324.       Width           =   7290
  325.       Begin CommandButton Cmd 
  326.          BackColor       =   &H00C0C0C0&
  327.          Cancel          =   -1  'True
  328.          Caption         =   "&Fermer"
  329.          Height          =   450
  330.          Left            =   2880
  331.          MousePointer    =   10  'FlΦche vers le haut
  332.          TabIndex        =   1
  333.          Top             =   195
  334.          Width           =   1425
  335.       End
  336.    End
  337. End
  338. Option Explicit
  339. Dim OldIdxT%
  340.  
  341. Sub Cmd_Click ()
  342.   Unload Me
  343. End Sub
  344.  
  345. Sub DemoType_Click (Index As Integer)
  346.   Select Case Index
  347.     Case 0
  348.       BordDemo(0).Caption = BordDemo(0).Tag & "0 - Case α Cocher"
  349.       DemoType(0).TypeCoche = 0: DemoType(1).TypeCoche = 0
  350.     Case 1
  351.     '  DemoType(1).Valeur = True
  352.       DemoType(0).Valeur = False
  353.       BordDemo(0).Caption = BordDemo(0).Tag & "1 - Case d'Option"
  354.       DemoType(0).TypeCoche = 1: DemoType(1).TypeCoche = 1
  355.   End Select
  356.   DemoType(Index).CaptionCouleur = QBColor(12)
  357.   DemoType(Index).CaptionEffet3D = 1
  358.   DemoType(OldIdxT).CaptionCouleur = QBColor(0)
  359.   DemoType(OldIdxT).CaptionEffet3D = 3
  360.   OldIdxT = Index
  361.  
  362. End Sub
  363.  
  364. Sub Form_Load ()
  365.   DemoType(1).Valeur = True
  366.   ExOptBmp(0).Valeur = True: ExCocheBmp(0).Valeur = True
  367.   BordDemo(2).Caption = "Case α Cocher et Case d'Option" & LN & "utilisant des images BMP externes"
  368.   Etiquette1(0).Caption = "Chaque groupe fonctionne indΘpendement de l'autre," & LN & "malgrΘ qu'ils soient dans le mΩme contr⌠le Bord"
  369.   RdGroupe0(0).Valeur = True: RdGroupe1(1).Valeur = True
  370.   Etiquette1(1).Caption = "Vous pouvez aussi modifier" & LN & "l'Effet 3D du Caption" & LN & "pendant le DΘveloppement ou l'ExΘcution"
  371.   
  372.   Call CentrerF(FDemoCoche)
  373. End Sub
  374.  
  375.