-
Notifications
You must be signed in to change notification settings - Fork 7
/
Copy pathfrmPasteChar.frm
147 lines (135 loc) · 3.89 KB
/
frmPasteChar.frm
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
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
VERSION 5.00
Object = "{20D5284F-7B23-4F0A-B8B1-6C9D18B64F1C}#1.0#0"; "exlimiter.ocx"
Begin VB.Form frmPasteChar
Caption = "Paste Character/Equipment"
ClientHeight = 4290
ClientLeft = 60
ClientTop = 450
ClientWidth = 5385
ControlBox = 0 'False
Icon = "frmPasteChar.frx":0000
LinkTopic = "Form1"
ScaleHeight = 4290
ScaleWidth = 5385
StartUpPosition = 1 'CenterOwner
Begin exlimiter.EL EL1
Left = 4560
Top = 3180
_ExtentX = 1270
_ExtentY = 1270
End
Begin VB.CommandButton cmdPaste
Caption = "&Paste from Clipboard"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 1560
TabIndex = 2
Top = 0
Width = 2175
End
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Caption = "&Cancel"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 4020
TabIndex = 3
Top = 0
Width = 1275
End
Begin VB.CommandButton cmdContinue
Caption = "Co&ntinue"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 60
TabIndex = 1
Top = 0
Width = 1215
End
Begin VB.TextBox txtText
BeginProperty Font
Name = "Terminal"
Size = 9
Charset = 255
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3855
Left = 60
MaxLength = 10000
MultiLine = -1 'True
ScrollBars = 3 'Both
TabIndex = 0
Top = 360
Width = 5235
End
End
Attribute VB_Name = "frmPasteChar"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdCancel_Click()
Me.Hide
End Sub
Private Sub cmdContinue_Click()
txtText.SetFocus
Me.Tag = "1"
Me.Hide
End Sub
Private Sub cmdPaste_Click()
Dim nYesNo As Integer
If Not Clipboard.GetText = "" Then
If Not txtText.Text = "" Then
nYesNo = MsgBox("Clear paste area first?", vbYesNo + vbDefaultButton1 + vbQuestion, "Clear?")
Else
nYesNo = vbYes
End If
If nYesNo = vbYes Then
txtText.Text = Clipboard.GetText
Else
txtText.Text = Clipboard.GetText & vbCrLf & vbCrLf & txtText.Text
End If
End If
End Sub
Private Sub Form_Load()
With EL1
.CenterOnLoad = True
.FormInQuestion = Me
.MinWidth = 365
.MinHeight = 100
.EnableLimiter = True
End With
End Sub
Private Sub Form_Resize()
On Error Resume Next
If Me.WindowState = vbMinimized Then Exit Sub
txtText.Width = Me.Width - 240
txtText.Height = Me.Height - TITLEBAR_OFFSET - 825
End Sub