-
Notifications
You must be signed in to change notification settings - Fork 1
/
Toolbar2.cls
80 lines (69 loc) · 2.43 KB
/
Toolbar2.cls
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "clsBSButton"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'-----------------------------------------------'
' Ariad Development Library 2.0 '
'-----------------------------------------------'
' Generic Button Template '
' Version 1.0 '
'-----------------------------------------------'
' For use with Toolbar, ToolBox and ButtonStrip '
'-----------------------------------------------'
'Copyright © 1998-9 by Ariad Software. All Rights Reserved
'Date Created:
'Last Updated: 12/07/99
'21/04/99
' - GroupID property added
'12/07/99
' - Pictures modified to use private array
' access via APicture property
Option Explicit
DefInt A-Z
Public Caption$, Tag$, ToolTipText$
Public Enabled As Boolean, Visible As Boolean
Public UseMaskColor As Boolean
Public Checked As Boolean
Public MaskColor As OLE_COLOR
Public ClientLeft As Single, ClientHeight As Single
Public ClientWidth As Single, ClientTop As Single
Public TextClientLeft As Single, TextClientHeight As Single
Public TextClientWidth As Single, TextClientTop As Single
Public Key$, Description$
Public Style As IFCTBButtonStyles
Public PlaceholderSize As Single
Public AlwaysShowCaption As Boolean
Public GroupID
Public TemporaryPicture As StdPicture
Dim m_Picture(2) As StdPicture
'----------------------------------------------------------------------
'Name : APicture
'Created : 12/07/1999 14:30
'Modified :
'Modified By :
'----------------------------------------------------------------------
'Author : Richard James Moss
'Organisation: Ariad Software
'----------------------------------------------------------------------
Public Property Get APicture(WhichPicture As IFCWhatPictures) As StdPicture
Set APicture = m_Picture(WhichPicture)
End Property '(Public) Property Get APicture () As StdPicture
Property Set APicture(WhichPicture As IFCWhatPictures, ByVal APicture As StdPicture)
Set m_Picture(WhichPicture) = APicture
End Property ' Property Set APicture
Private Sub Class_Terminate()
Dim I
For I = 0 To 2
Set m_Picture(I) = Nothing
Next
Set TemporaryPicture = Nothing
End Sub