ViDock/Slice.cls at master · lee-soft/ViDock · GitHub

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
VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Slice"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'--------------------------------------------------------------------------------
'    Component  : Slice
'    Project    : ViDock
'
'    Description: A managed segment of a bitmap. Describes a portion of a skin
'                 bitmap resource
'
'--------------------------------------------------------------------------------
Option Explicit

Public Anchor         As AnchorPointConstants

Public Image          As GDIPImage

Public X              As Long

Public Y              As Long

Public StretchX       As Boolean

Public StretchY       As Boolean

Public StretchMarginX As Long

Public StretchMarginY As Long

Public Identifer      As String

Public Property Get Height() As Long
    If Image Is Nothing Then
        Exit Property
    End If

    Height = Image.Height
End Property

Public Property Get Width() As Long
    If Image Is Nothing Then
        Exit Property
    End If

    Width = Image.Width
End Property