home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 25 / CD_ASCQ_25_1095.iso / win / fr / wninova / wnickbor / fdemobor.frm < prev    next >
Text File  |  1995-08-03  |  15KB  |  395 lines
  1. VERSION 2.00
  2. Begin Form FDemoBord 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Trait simple fixe
  5.    Caption         =   "DΘmo Bord 3D (WINO_BORD3DCLASS_GRP2)"
  6.    ClientHeight    =   6030
  7.    ClientLeft      =   1275
  8.    ClientTop       =   1320
  9.    ClientWidth     =   7290
  10.    ClipControls    =   0   'False
  11.    ControlBox      =   0   'False
  12.    Height          =   6435
  13.    Left            =   1215
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   6030
  17.    ScaleWidth      =   7290
  18.    Top             =   975
  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          =   5175
  27.       Index           =   1
  28.       Left            =   0
  29.       TabIndex        =   2
  30.       Top             =   0
  31.       Width           =   7290
  32.       Begin WINO_BORD3DCLASS_GRP2 BordDemo 
  33.          BackColor       =   &H00C0C0C0&
  34.          BordCouleur     =   0  'GRIS
  35.          BordEpaisseur   =   2
  36.          BordExterieur   =   2  'EnfoncΘ Double
  37.          BordInterieur   =   2  'EnfoncΘ Double
  38.          Caption         =   "PropriΘtΘs : EnfantContour et EnfantLargeur"
  39.          CaptionCouleur  =   &H00FF0000&
  40.          CaptionEffet3D  =   3  'SoulevΘ LΘger
  41.          EnfantContour   =   1  'Ombre
  42.          EnfantLargeur   =   3
  43.          FontBold        =   -1  'True
  44.          FontItalic      =   0   'False
  45.          FontName        =   "Courier New"
  46.          FontSize        =   12
  47.          FontStrikethru  =   0   'False
  48.          FontUnderline   =   0   'False
  49.          Height          =   2175
  50.          Index           =   3
  51.          Left            =   180
  52.          TabIndex        =   16
  53.          Top             =   2820
  54.          Width           =   6930
  55.          Begin HScrollBar DefEnfant 
  56.             Height          =   255
  57.             Index           =   1
  58.             Left            =   3900
  59.             Max             =   10
  60.             MousePointer    =   10  'FlΦche vers le haut
  61.             TabIndex        =   18
  62.             Top             =   1460
  63.             Width           =   2580
  64.          End
  65.          Begin HScrollBar DefEnfant 
  66.             Height          =   255
  67.             Index           =   0
  68.             Left            =   435
  69.             Max             =   9
  70.             MousePointer    =   10  'FlΦche vers le haut
  71.             TabIndex        =   17
  72.             Top             =   1460
  73.             Width           =   2580
  74.          End
  75.          Begin Label Etiquette1 
  76.             Alignment       =   2  'CentrΘ
  77.             BackColor       =   &H00FF0000&
  78.             Caption         =   "EnfantLargeur = 10"
  79.             ForeColor       =   &H0000FFFF&
  80.             Height          =   225
  81.             Index           =   1
  82.             Left            =   3900
  83.             TabIndex        =   20
  84.             Top             =   600
  85.             Width           =   2580
  86.          End
  87.          Begin Label Etiquette1 
  88.             Alignment       =   2  'CentrΘ
  89.             BackColor       =   &H00FF0000&
  90.             Caption         =   "EnfantContour = 10"
  91.             ForeColor       =   &H0000FFFF&
  92.             Height          =   225
  93.             Index           =   0
  94.             Left            =   435
  95.             TabIndex        =   19
  96.             Top             =   600
  97.             Width           =   2580
  98.          End
  99.       End
  100.       Begin WINO_BORD3DCLASS_GRP2 BordDemo 
  101.          BackColor       =   &H00C0C0C0&
  102.          BordCouleur     =   0  'GRIS
  103.          BordExterieur   =   2  'EnfoncΘ Double
  104.          BordLargeurint  =   0
  105.          Caption         =   "Exemples d'effets 3D du Caption"
  106.          CaptionCouleur  =   &H00FF0000&
  107.          CaptionEffet3D  =   3  'SoulevΘ LΘger
  108.          FontBold        =   -1  'True
  109.          FontItalic      =   0   'False
  110.          FontName        =   "Courier New"
  111.          FontSize        =   12
  112.          FontStrikethru  =   0   'False
  113.          FontUnderline   =   0   'False
  114.          Height          =   870
  115.          Index           =   2
  116.          Left            =   180
  117.          TabIndex        =   10
  118.          Top             =   1890
  119.          Width           =   6930
  120.          Begin WINO_CK3DCLASS_GPR2 RdTxt3D 
  121.             BackColor       =   &H00C0C0C0&
  122.             Caption         =   "SoulevΘ 2"
  123.             CaptionEffet3D  =   1  'EnfoncΘ LΘger
  124.             Height          =   255
  125.             Index           =   4
  126.             Left            =   5550
  127.             MousePointer    =   10  'FlΦche vers le haut
  128.             TabIndex        =   15
  129.             Top             =   375
  130.             TypeCoche       =   1  'RadioBouton 
  131.             Valeur          =   0   'False
  132.             Width           =   1280
  133.          End
  134.          Begin WINO_CK3DCLASS_GPR2 RdTxt3D 
  135.             BackColor       =   &H00C0C0C0&
  136.             Caption         =   "SoulevΘ 1"
  137.             CaptionEffet3D  =   1  'EnfoncΘ LΘger
  138.             Height          =   255
  139.             Index           =   3
  140.             Left            =   4095
  141.             MousePointer    =   10  'FlΦche vers le haut
  142.             TabIndex        =   14
  143.             Top             =   375
  144.             TypeCoche       =   1  'RadioBouton 
  145.             Valeur          =   0   'False
  146.             Width           =   1280
  147.          End
  148.          Begin WINO_CK3DCLASS_GPR2 RdTxt3D 
  149.             BackColor       =   &H00C0C0C0&
  150.             Caption         =   "EnfoncΘ 2"
  151.             CaptionEffet3D  =   1  'EnfoncΘ LΘger
  152.             Height          =   255
  153.             Index           =   2
  154.             Left            =   2700
  155.             MousePointer    =   10  'FlΦche vers le haut
  156.             TabIndex        =   13
  157.             Top             =   375
  158.             TypeCoche       =   1  'RadioBouton 
  159.             Valeur          =   0   'False
  160.             Width           =   1280
  161.          End
  162.          Begin WINO_CK3DCLASS_GPR2 RdTxt3D 
  163.             BackColor       =   &H00C0C0C0&
  164.             Caption         =   "EnfoncΘ 1"
  165.             CaptionEffet3D  =   1  'EnfoncΘ LΘger
  166.             Height          =   255
  167.             Index           =   1
  168.             Left            =   1300
  169.             MousePointer    =   10  'FlΦche vers le haut
  170.             TabIndex        =   12
  171.             Top             =   375
  172.             TypeCoche       =   1  'RadioBouton 
  173.             Valeur          =   0   'False
  174.             Width           =   1280
  175.          End
  176.          Begin WINO_CK3DCLASS_GPR2 RdTxt3D 
  177.             BackColor       =   &H00C0C0C0&
  178.             Caption         =   "Aucun"
  179.             CaptionEffet3D  =   1  'EnfoncΘ LΘger
  180.             Height          =   255
  181.             Index           =   0
  182.             Left            =   120
  183.             MousePointer    =   10  'FlΦche vers le haut
  184.             TabIndex        =   11
  185.             Top             =   375
  186.             TypeCoche       =   1  'RadioBouton 
  187.             Valeur          =   0   'False
  188.             Width           =   1110
  189.          End
  190.       End
  191.       Begin WINO_BORD3DCLASS_GRP2 BordDemo 
  192.          BackColor       =   &H00C0C0C0&
  193.          BordCouleur     =   0  'GRIS
  194.          BordEpaisseur   =   3
  195.          Caption         =   "PropriΘtΘ : BordEnHaut"
  196.          CaptionCouleur  =   &H00FF0000&
  197.          CaptionEffet3D  =   3  'SoulevΘ LΘger
  198.          FontBold        =   -1  'True
  199.          FontItalic      =   0   'False
  200.          FontName        =   "Courier New"
  201.          FontSize        =   12
  202.          FontStrikethru  =   0   'False
  203.          FontUnderline   =   0   'False
  204.          Height          =   825
  205.          Index           =   1
  206.          Left            =   180
  207.          TabIndex        =   7
  208.          Top             =   990
  209.          Width           =   6930
  210.          Begin WINO_CK3DCLASS_GPR2 RdTxtH 
  211.             BackColor       =   &H00C0C0C0&
  212.             Caption         =   "True"
  213.             CaptionEffet3D  =   3  'SoulevΘ LΘger
  214.             Height          =   270
  215.             Index           =   0
  216.             Left            =   1755
  217.             MousePointer    =   10  'FlΦche vers le haut
  218.             TabIndex        =   8
  219.             Top             =   375
  220.             TypeCoche       =   1  'RadioBouton 
  221.             Valeur          =   0   'False
  222.             Width           =   1530
  223.          End
  224.          Begin WINO_CK3DCLASS_GPR2 RdTxtH 
  225.             BackColor       =   &H00C0C0C0&
  226.             Caption         =   "False"
  227.             CaptionEffet3D  =   3  'SoulevΘ LΘger
  228.             Height          =   270
  229.             Index           =   1
  230.             Left            =   3975
  231.             MousePointer    =   10  'FlΦche vers le haut
  232.             TabIndex        =   9
  233.             Top             =   375
  234.             TypeCoche       =   1  'RadioBouton 
  235.             Valeur          =   0   'False
  236.             Width           =   1530
  237.          End
  238.       End
  239.       Begin WINO_BORD3DCLASS_GRP2 BordDemo 
  240.          BackColor       =   &H00C0C0C0&
  241.          BordCouleur     =   0  'GRIS
  242.          BordExterieur   =   6  'MontΘ Double
  243.          BordInterieur   =   0  'Rien
  244.          BordLargeurint  =   0
  245.          Caption         =   "Alignement : Caption au Milieu"
  246.          CaptionCouleur  =   &H00FF0000&
  247.          CaptionEffet3D  =   3  'SoulevΘ LΘger
  248.          FontBold        =   -1  'True
  249.          FontItalic      =   0   'False
  250.          FontName        =   "Courier New"
  251.          FontSize        =   12
  252.          FontStrikethru  =   0   'False
  253.          FontUnderline   =   0   'False
  254.          Height          =   825
  255.          Index           =   0
  256.          Left            =   180
  257.          TabIndex        =   3
  258.          Tag             =   "Alignement : Caption "
  259.          Top             =   105
  260.          Width           =   6930
  261.          Begin WINO_CK3DCLASS_GPR2 RdCaption 
  262.             BackColor       =   &H00C0C0C0&
  263.             Caption         =   "Droite"
  264.             CaptionEffet3D  =   3  'SoulevΘ LΘger
  265.             Height          =   270
  266.             Index           =   2
  267.             Left            =   5500
  268.             MousePointer    =   10  'FlΦche vers le haut
  269.             TabIndex        =   6
  270.             Top             =   375
  271.             TypeCoche       =   1  'RadioBouton 
  272.             Valeur          =   0   'False
  273.             Width           =   1395
  274.          End
  275.          Begin WINO_CK3DCLASS_GPR2 RdCaption 
  276.             BackColor       =   &H00C0C0C0&
  277.             Caption         =   "Milieu"
  278.             CaptionEffet3D  =   3  'SoulevΘ LΘger
  279.             Height          =   270
  280.             Index           =   1
  281.             Left            =   2965
  282.             MousePointer    =   10  'FlΦche vers le haut
  283.             TabIndex        =   5
  284.             Top             =   375
  285.             TypeCoche       =   1  'RadioBouton 
  286.             Valeur          =   0   'False
  287.             Width           =   1530
  288.          End
  289.          Begin WINO_CK3DCLASS_GPR2 RdCaption 
  290.             BackColor       =   &H00C0C0C0&
  291.             Caption         =   "Gauche"
  292.             CaptionEffet3D  =   3  'SoulevΘ LΘger
  293.             Height          =   270
  294.             Index           =   0
  295.             Left            =   240
  296.             MousePointer    =   10  'FlΦche vers le haut
  297.             TabIndex        =   4
  298.             Top             =   375
  299.             TypeCoche       =   1  'RadioBouton 
  300.             Valeur          =   0   'False
  301.             Width           =   1530
  302.          End
  303.       End
  304.    End
  305.    Begin WINO_BORD3DCLASS_GRP2 Bord3D1 
  306.       BackColor       =   &H00C0C0C0&
  307.       BordAlignement  =   4  'FixΘ en Bas
  308.       BordCouleur     =   0  'GRIS
  309.       BordEnHaut      =   -1  'True
  310.       BordEpaisseur   =   5
  311.       EnfantContour   =   1  'Ombre
  312.       Height          =   855
  313.       Index           =   0
  314.       Left            =   0
  315.       TabIndex        =   0
  316.       Top             =   5175
  317.       Width           =   7290
  318.       Begin CommandButton Cmd 
  319.          BackColor       =   &H00C0C0C0&
  320.          Cancel          =   -1  'True
  321.          Caption         =   "&Fermer"
  322.          Height          =   450
  323.          Left            =   2880
  324.          MousePointer    =   10  'FlΦche vers le haut
  325.          TabIndex        =   1
  326.          Top             =   195
  327.          Width           =   1425
  328.       End
  329.    End
  330. End
  331. Option Explicit
  332. Dim OldIdxC%, OldIdxH%, OldIdxT3D%
  333.  
  334. Sub Cmd_Click ()
  335.   Unload Me
  336. End Sub
  337.  
  338. Sub DefEnfant_Change (Index As Integer)
  339.   Select Case Index
  340.     Case 0  ' Modifier PropriΘtΘ EnfantCOntour
  341.       Etiquette1(0).Caption = "EnfantContour = " & DefEnfant(0).Value
  342.       BordDemo(3).EnfantContour = DefEnfant(0).Value
  343.     Case 1  ' Modifier PropriΘtΘ EnfantLargeur
  344.       Etiquette1(1).Caption = "EnfantLargeur = " & DefEnfant(1).Value
  345.       BordDemo(3).EnfantLargeur = DefEnfant(1).Value
  346.   End Select
  347. End Sub
  348.  
  349. Sub Form_Load ()
  350.   RdCaption(BordDemo(0).CaptionAlignement).Valeur = True
  351.   RdTxtH((BordDemo(1).BordEnHaut) + 1).Valeur = True
  352.   RdTxt3D(BordDemo(2).CaptionEffet3D).Valeur = True
  353.   DefEnfant(0).Value = BordDemo(3).EnfantContour
  354.   DefEnfant(1).Value = BordDemo(3).EnfantLargeur
  355.   Call CentrerF(FDemoBord)
  356. End Sub
  357.  
  358. Sub RdCaption_Click (Index As Integer)
  359.   Select Case Index
  360.     Case 0
  361.       BordDemo(0).Caption = BordDemo(0).Tag & "α Gauche"
  362.     Case 1
  363.       BordDemo(0).Caption = BordDemo(0).Tag & "au Milieu"
  364.     Case 2
  365.       BordDemo(0).Caption = BordDemo(0).Tag & "α Droite"
  366.   End Select
  367.   BordDemo(0).CaptionAlignement = Index
  368.   RdCaption(Index).CaptionCouleur = QBColor(12)
  369.   RdCaption(Index).CaptionEffet3D = 1
  370.   RdCaption(OldIdxC).CaptionCouleur = QBColor(0)
  371.   RdCaption(OldIdxC).CaptionEffet3D = 3
  372.   OldIdxC = Index
  373. End Sub
  374.  
  375. Sub RdTxt3D_Click (Index As Integer)
  376.   BordDemo(2).CaptionTransparent = False
  377.   RdTxt3D(OldIdxT3D).CaptionCouleur = QBColor(0)
  378.   RdTxt3D(Index).CaptionCouleur = QBColor(12)
  379.   If (Index = 2) Or (Index = 4) Then BordDemo(2).CaptionTransparent = True
  380.   BordDemo(2).CaptionEffet3D = Index
  381.   OldIdxT3D = Index
  382.  
  383. End Sub
  384.  
  385. Sub RdTxtH_Click (Index As Integer)
  386.   BordDemo(1).BordEnHaut = Index - 1
  387.   RdTxtH(Index).CaptionCouleur = QBColor(12)
  388.   RdTxtH(Index).CaptionEffet3D = 1
  389.   RdTxtH(OldIdxH).CaptionCouleur = QBColor(0)
  390.   RdTxtH(OldIdxH).CaptionEffet3D = 3
  391.   OldIdxH = Index
  392.  
  393. End Sub
  394.  
  395.