-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathFrmFlex.frm
174 lines (159 loc) · 4.73 KB
/
FrmFlex.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
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
VERSION 5.00
Object = "{BEEECC20-4D5F-4F8B-BFDC-5D9B6FBDE09D}#1.0#0"; "vsflex8.ocx"
Begin VB.Form frmFlexSimple
BackColor = &H00E0E0E0&
BorderStyle = 3 'Fixed Dialog
Caption = "Consulta"
ClientHeight = 5265
ClientLeft = 45
ClientTop = 375
ClientWidth = 9675
ClipControls = 0 'False
BeginProperty Font
Name = "Trebuchet MS"
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5265
ScaleWidth = 9675
StartUpPosition = 2 'CenterScreen
Begin VSFlex8Ctl.VSFlexGrid fg
Height = 5220
Left = 15
TabIndex = 0
Top = 15
Width = 9645
_cx = 17013
_cy = 9208
Appearance = 1
BorderStyle = 1
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Trebuchet MS"
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
MousePointer = 0
BackColor = 14331047
ForeColor = -2147483640
BackColorFixed = 15120763
ForeColorFixed = -2147483630
BackColorSel = 14859077
ForeColorSel = -2147483635
BackColorBkg = -2147483636
BackColorAlternate= 15573900
GridColor = -2147483633
GridColorFixed = -2147483632
TreeColor = -2147483632
FloodColor = 192
SheetBorder = -2147483642
FocusRect = 2
HighLight = 1
AllowSelection = -1 'True
AllowBigSelection= 0 'False
AllowUserResizing= 0
SelectionMode = 1
GridLines = 1
GridLinesFixed = 2
GridLineWidth = 1
Rows = 50
Cols = 10
FixedRows = 1
FixedCols = 1
RowHeightMin = 0
RowHeightMax = 0
ColWidthMin = 0
ColWidthMax = 0
ExtendLastCol = 0 'False
FormatString = $"FrmFlex.frx":0000
ScrollTrack = 0 'False
ScrollBars = 3
ScrollTips = 0 'False
MergeCells = 0
MergeCompare = 0
AutoResize = -1 'True
AutoSizeMode = 0
AutoSearch = 0
AutoSearchDelay = 2
MultiTotals = -1 'True
SubtotalPosition= 1
OutlineBar = 0
OutlineCol = 0
Ellipsis = 0
ExplorerBar = 0
PicturesOver = 0 'False
FillStyle = 0
RightToLeft = 0 'False
PictureType = 0
TabBehavior = 0
OwnerDraw = 0
Editable = 0
ShowComboButton = 1
WordWrap = 0 'False
TextStyle = 0
TextStyleFixed = 0
OleDragMode = 0
OleDropMode = 0
DataMode = 3
VirtualData = -1 'True
DataMember = ""
ComboSearch = 3
AutoSizeMouse = -1 'True
FrozenRows = 0
FrozenCols = 0
AllowUserFreezing= 0
BackColorFrozen = 0
ForeColorFrozen = 0
WallPaperAlignment= 9
AccessibleName = ""
AccessibleDescription= ""
AccessibleValue = ""
AccessibleRole = 24
End
End
Attribute VB_Name = "frmFlexSimple"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim first As Boolean
Private Sub fg_DblClick()
Unload Me
End Sub
Private Sub fg_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 13, vbKeyEscape
KeyAscii = 0
Unload Me
End Select
End Sub
Private Sub Form_Activate()
'Me.Refresh
DoEvents
If Not first Then
first = True
'ocultar la columna rowguid
fg.ColHidden(fg.Cols - 1) = True
DoEvents
fg.Visible = True
fg.AutoSearch = flexSearchFromCursor
fg.TabStop = True
fg.Select 1, 1, 1, fg.Cols - 1
fg.SetFocus
End If
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Set frmFlexSimple = Nothing
End Sub