home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 25
/
CD_ASCQ_25_1095.iso
/
win
/
fr
/
wninova
/
wnitxtbt
/
ftxt3d.frm
< prev
next >
Wrap
Text File
|
1995-08-03
|
15KB
|
443 lines
VERSION 2.00
Begin Form FTxt3D
BackColor = &H00C0C0C0&
BorderStyle = 1 'Trait simple fixe
Caption = "DΘmo Control Etiquette 3D (WINO_3DTXTCLASS_GRP2)"
ClientHeight = 6120
ClientLeft = 1185
ClientTop = 1440
ClientWidth = 7920
ClipControls = 0 'False
Height = 6525
Left = 1125
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6120
ScaleWidth = 7920
Top = 1095
Width = 8040
Begin WINO_3DTXTCLASS_GRP2 WinoTxt
BackColor = &H00C0C0C0&
BordEpaisseur = 5
BordExterieur = 6 'MontΘ Double
BordInterieur = 6 'MontΘ Double
BordLargeur = 2
BordLargeurint = 1
Caption = "Bien d'autres Effets ...."
CaptionAlignV = 2 'Bas
CaptionCouleur = &H00FF0000&
Height = 6150
Left = 0
TabIndex = 0
Top = 0
Width = 7920
Begin WINO_3DBTNCLASS_GRP2 CmdWino
Autosize = 2 'Taille Bitmap
BackColor = &H00C0C0C0&
Bitmap3D = -1 'True
DessineFocus = -1 'True
Height = 810
ImageDisable = FTXT3D.FRX:0000
ImageDown = FTXT3D.FRX:030A
ImageUp = FTXT3D.FRX:0614
Left = 3660
MousePointer = 10 'FlΦche vers le haut
Ombrage = 2 'Ombre Pleine
TabIndex = 29
TexteImage = 0 'False
Top = 4455
Width = 660
End
Begin WINO_3DTXTCLASS_GRP2 WinoTxt3D1
BackColor = &H00C0C0C0&
BordEpaisseur = 5
BordInterieur = 5 'MontΘ
BordLargeurint = 1
Caption = "Ce contr⌠le remplace le controle Etiquette standard"
CaptionDecalage = -3
CaptionEffet3D = 1 'EnfoncΘ LΘger
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Times New Roman"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 1380
Left = 380
TabIndex = 28
Top = 380
Width = 7155
End
Begin Frame Cadre1
BackColor = &H00C0C0C0&
Caption = "Modifier Bord IntΘrieur"
ClipControls = 0 'False
Height = 1125
Index = 4
Left = 4665
TabIndex = 23
Top = 4245
Width = 2970
Begin OptionButton OptionBordI
BackColor = &H00C0C0C0&
Caption = "Exemple 4"
Height = 270
Index = 3
Left = 1665
TabIndex = 27
Top = 690
Width = 1250
End
Begin OptionButton OptionBordI
BackColor = &H00C0C0C0&
Caption = "Exemple 3"
Height = 270
Index = 2
Left = 1665
TabIndex = 26
Top = 330
Width = 1250
End
Begin OptionButton OptionBordI
BackColor = &H00C0C0C0&
Caption = "Exemple 2"
Height = 270
Index = 1
Left = 175
TabIndex = 25
Top = 705
Width = 1250
End
Begin OptionButton OptionBordI
BackColor = &H00C0C0C0&
Caption = "Exemple 1"
Height = 270
Index = 0
Left = 175
TabIndex = 24
Top = 330
Width = 1250
End
End
Begin Frame Cadre1
BackColor = &H00C0C0C0&
Caption = "Modifier Bord ExtΘrieur"
ClipControls = 0 'False
Height = 1125
Index = 3
Left = 285
TabIndex = 18
Top = 4260
Width = 2970
Begin OptionButton OptionBordE
BackColor = &H00C0C0C0&
Caption = "Exemple 1"
Height = 270
Index = 0
Left = 175
TabIndex = 19
Top = 330
Width = 1250
End
Begin OptionButton OptionBordE
BackColor = &H00C0C0C0&
Caption = "Exemple 2"
Height = 270
Index = 1
Left = 175
TabIndex = 20
Top = 705
Width = 1250
End
Begin OptionButton OptionBordE
BackColor = &H00C0C0C0&
Caption = "Exemple 3"
Height = 270
Index = 2
Left = 1665
TabIndex = 21
Top = 330
Width = 1250
End
Begin OptionButton OptionBordE
BackColor = &H00C0C0C0&
Caption = "Exemple 4"
Height = 270
Index = 3
Left = 1665
TabIndex = 22
Top = 690
Width = 1250
End
End
Begin Frame Cadre1
BackColor = &H00C0C0C0&
Caption = "Exemples d'effets 3D du Texte"
ClipControls = 0 'False
Height = 1170
Index = 1
Left = 315
TabIndex = 16
Top = 2925
Width = 7290
Begin OptionButton OptionT3D
BackColor = &H00C0C0C0&
Caption = "Aucun"
Height = 255
Index = 0
Left = 175
TabIndex = 9
Top = 360
Width = 1110
End
Begin OptionButton OptionT3D
BackColor = &H00C0C0C0&
Caption = "EnfoncΘ 1"
Height = 255
Index = 1
Left = 1770
TabIndex = 10
Top = 360
Width = 1280
End
Begin OptionButton OptionT3D
BackColor = &H00C0C0C0&
Caption = "EnfoncΘ 2"
Height = 255
Index = 2
Left = 1770
TabIndex = 11
Top = 735
Width = 1280
End
Begin OptionButton OptionT3D
BackColor = &H00C0C0C0&
Caption = "SoulevΘ 1"
Height = 255
Index = 3
Left = 3585
TabIndex = 12
Top = 360
Width = 1200
End
Begin OptionButton OptionT3D
BackColor = &H00C0C0C0&
Caption = "SoulevΘ 2"
Height = 255
Index = 4
Left = 3585
TabIndex = 13
Top = 735
Width = 1200
End
Begin OptionButton OptionT3D
BackColor = &H00C0C0C0&
Caption = "DΘcalΘ"
Height = 255
Index = 5
Left = 5700
TabIndex = 14
Top = 150
Width = 1100
End
Begin HScrollBar DefDecalage
Height = 270
Left = 5250
Max = 10
Min = -10
TabIndex = 15
Top = 825
Value = -3
Visible = 0 'False
Width = 1845
End
Begin WINO_3DTXTCLASS_GRP2 WinoTxt3D2
BackColor = &H00000000&
BordExterieur = 2 'EnfoncΘ Double
Caption = "DΘcalage = -3"
CaptionCouleur = &H0000FF00&
Height = 285
Left = 5250
TabIndex = 17
TabStop = 0 'False
Top = 480
Visible = 0 'False
Width = 1845
End
End
Begin Frame Cadre1
BackColor = &H00C0C0C0&
Caption = "Position Verticale du Texte"
ClipControls = 0 'False
Height = 780
Index = 2
Left = 4125
TabIndex = 5
Top = 1980
Width = 3480
Begin OptionButton OptionV
BackColor = &H00C0C0C0&
Caption = "Bas"
Height = 210
Index = 2
Left = 2565
TabIndex = 8
Top = 405
Width = 700
End
Begin OptionButton OptionV
BackColor = &H00C0C0C0&
Caption = "Milieu"
Height = 210
Index = 1
Left = 1350
TabIndex = 7
Top = 405
Width = 900
End
Begin OptionButton OptionV
BackColor = &H00C0C0C0&
Caption = "Haut"
Height = 210
Index = 0
Left = 135
TabIndex = 6
Top = 400
Width = 1000
End
End
Begin Frame Cadre1
BackColor = &H00C0C0C0&
Caption = "Position Horizontale du Texte"
ClipControls = 0 'False
Height = 780
Index = 0
Left = 315
TabIndex = 1
Top = 1980
Width = 3480
Begin OptionButton OptionH
BackColor = &H00C0C0C0&
Caption = "Gauche"
Height = 210
Index = 0
Left = 135
TabIndex = 2
Top = 400
Width = 1000
End
Begin OptionButton OptionH
BackColor = &H00C0C0C0&
Caption = "Milieu"
Height = 210
Index = 1
Left = 1350
TabIndex = 3
Top = 405
Width = 900
End
Begin OptionButton OptionH
BackColor = &H00C0C0C0&
Caption = "Droite"
Height = 210
Index = 2
Left = 2490
TabIndex = 4
Top = 405
Width = 900
End
End
End
End
Option Explicit
Dim OldIdxH%, OldIdxV%, OldIdxT3D%, OldIdxBE%, OldIdxBI%
Sub CmdWino_Click ()
Unload Me
End Sub
Sub DefDecalage_Change ()
WinoTxt3D1.CaptionDecalage = DefDecalage.Value
WinoTxt3D2.Caption = "DΘcalage = " & DefDecalage.Value
End Sub
Sub Form_Load ()
WinoTxt.Top = 0: WinoTxt.Left = 0
WinoTxt.Width = FTxt3D.ScaleWidth: WinoTxt.Height = FTxt3D.ScaleHeight
Msg = "Bien d'autres Effets ne sont pas prΘsentΘs dans cette dΘmo," & LN
Msg = Msg & "mais vous pouvez les tester en modifiant les propriΘtΘs dans les sources."
WinoTxt.Caption = Msg
Msg = "Ce contr⌠le remplace le contr⌠le Etiquette standard" & LN
Msg = Msg & "Voici quelques exemples"
WinoTxt3D1.Caption = Msg
OptionH(WinoTxt3D1.CaptionAlignH).Value = True
OptionV(WinoTxt3D1.CaptionAlignV).Value = True
OptionT3D(WinoTxt3D1.CaptionEffet3D).Value = True
OptionBordE(0).Value = True: OptionBordI(0).Value = True
Call CentrerF(FTxt3D)
End Sub
Sub OptionBordE_Click (Index As Integer)
OptionBordE(OldIdxBE).ForeColor = QBColor(0)
OptionBordE(Index).ForeColor = QBColor(12)
Select Case Index
Case 0
WinoTxt3D1.BordExterieur = 1
Case 1
WinoTxt3D1.BordExterieur = 2
Case 2
WinoTxt3D1.BordExterieur = 5
Case 3
WinoTxt3D1.BordExterieur = 6
End Select
OldIdxBE = Index
End Sub
Sub OptionBordI_Click (Index As Integer)
OptionBordI(OldIdxBI).ForeColor = QBColor(0)
OptionBordI(Index).ForeColor = QBColor(12)
Select Case Index
Case 0
WinoTxt3D1.BordInterieur = 5
Case 1
WinoTxt3D1.BordInterieur = 6
Case 2
WinoTxt3D1.BordInterieur = 1
Case 3
WinoTxt3D1.BordInterieur = 2
End Select
OldIdxBI = Index
End Sub
Sub OptionH_Click (Index As Integer)
OptionH(OldIdxH).ForeColor = QBColor(0)
OptionH(Index).ForeColor = QBColor(12)
WinoTxt3D1.CaptionAlignH = Index
OldIdxH = Index
End Sub
Sub OptionT3D_Click (Index As Integer)
OptionT3D(OldIdxT3D).ForeColor = QBColor(0)
OptionT3D(Index).ForeColor = QBColor(12)
WinoTxt3D1.CaptionEffet3D = Index
If Index = 5 Then
OptionT3D(5).Top = 150
WinoTxt3D2.Visible = True
DefDecalage.Visible = True
Else 'If OldIdxT3D = 5 Then
WinoTxt3D2.Visible = False
DefDecalage.Visible = False
OptionT3D(5).Top = OptionT3D(0).Top
End If
OldIdxT3D = Index
End Sub
Sub OptionV_Click (Index As Integer)
OptionV(OldIdxV).ForeColor = QBColor(0)
OptionV(Index).ForeColor = QBColor(12)
WinoTxt3D1.CaptionAlignV = Index
OldIdxV = Index
End Sub
