📄 frmoptions.frm
字号:
EndProperty
Height = 165
Index = 1
Left = 1035
TabIndex = 38
Top = 120
Width = 465
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "Line"
BeginProperty Font
Name = "Small Fonts"
Size = 6.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 165
Index = 0
Left = 255
TabIndex = 37
Top = 120
Width = 330
End
End
End
Begin VB.CommandButton cmdDefaults
Caption = "恢复(&R)"
Height = 375
Left = 1860
TabIndex = 14
Top = 3300
Width = 1455
End
Begin VB.Frame Frame1
Caption = "颜色选项"
Height = 3015
Left = 180
TabIndex = 0
Top = 120
Width = 1875
Begin VB.Label lblColor
BorderStyle = 1 'Fixed Single
Height = 195
Index = 10
Left = 120
TabIndex = 24
Top = 2700
Width = 255
End
Begin VB.Label lblColor
BorderStyle = 1 'Fixed Single
Height = 195
Index = 9
Left = 120
TabIndex = 23
Top = 2460
Width = 255
End
Begin VB.Label lblColor
BorderStyle = 1 'Fixed Single
Height = 195
Index = 8
Left = 120
TabIndex = 22
Top = 2220
Width = 255
End
Begin VB.Label lblColor
BorderStyle = 1 'Fixed Single
Height = 195
Index = 7
Left = 120
TabIndex = 21
Top = 1980
Width = 255
End
Begin VB.Label lblColor
BorderStyle = 1 'Fixed Single
Height = 195
Index = 6
Left = 120
TabIndex = 20
Top = 1740
Width = 255
End
Begin VB.Label lblColor
BorderStyle = 1 'Fixed Single
Height = 195
Index = 5
Left = 120
TabIndex = 19
Top = 1500
Width = 255
End
Begin VB.Label lblColor
BorderStyle = 1 'Fixed Single
Height = 195
Index = 4
Left = 120
TabIndex = 18
Top = 1260
Width = 255
End
Begin VB.Label lblColor
BorderStyle = 1 'Fixed Single
Height = 195
Index = 3
Left = 120
TabIndex = 17
Top = 1020
Width = 255
End
Begin VB.Label lblColor
BorderStyle = 1 'Fixed Single
Height = 195
Index = 2
Left = 120
TabIndex = 16
Top = 780
Width = 255
End
Begin VB.Label lblColor
BorderStyle = 1 'Fixed Single
Height = 195
Index = 1
Left = 120
TabIndex = 15
Top = 540
Width = 255
End
Begin VB.Label lblColor
BorderStyle = 1 'Fixed Single
Height = 195
Index = 0
Left = 120
TabIndex = 12
Top = 300
Width = 255
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "TicCandleUpColor"
Height = 195
Index = 10
Left = 420
TabIndex = 11
Top = 2220
Width = 1290
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "TicCandleDnColor"
Height = 195
Index = 9
Left = 420
TabIndex = 10
Top = 2460
Width = 1290
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "VolColor"
Height = 195
Index = 8
Left = 480
TabIndex = 9
Top = 2700
Width = 585
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "光标颜色"
Height = 180
Index = 7
Left = 420
TabIndex = 8
Top = 1020
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "日期颜色"
Height = 180
Index = 6
Left = 420
TabIndex = 7
Top = 1260
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "TicBodyColor"
Height = 195
Index = 5
Left = 420
TabIndex = 6
Top = 1500
Width = 945
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "前景色"
Height = 180
Index = 4
Left = 420
TabIndex = 5
Top = 540
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "TicCloseColor"
Height = 195
Index = 3
Left = 420
TabIndex = 4
Top = 1980
Width = 975
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "TicOpenColor"
Height = 195
Index = 2
Left = 420
TabIndex = 3
Top = 1740
Width = 975
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "网格颜色"
Height = 180
Index = 1
Left = 420
TabIndex = 2
Top = 780
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "背景色"
Height = 180
Index = 0
Left = 420
TabIndex = 1
Top = 300
Width = 540
End
End
End
Attribute VB_Name = "frmOptions"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
' ：） 人人为我，我为人人 ：）
'枕善居汉化收藏整理
'发布日期：06/06/26
'描 述：实时股票图表曲线示例 Ver 1.0
'网 站：http://www.mndsoft.com/
'e-mail ：mndsoft@163.com 最新的邮箱,如果您有新的好的代码别忘记给枕善居哦
'OICQ ：88382850
'****************************************************************************
Option Explicit
Private rc1 As RECT, fBarTypeButtonDn As Boolean
Private Sub cmdBackup_Click()
FileCopy sINIsetFile$, sINIsetFile$ & ".BAK"
MsgBox "INI File was BackedUp to .BAK in the App Dir...", vbInformation + vbOKOnly, "INI BackUp Complete"
End Sub
Private Sub cmdcancel_Click()
Unload Me
End Sub
Private Sub cmdDefaults_Click()
Dim iResult As Integer
iResult = MsgBox("Are you sure you want to reset current settings?" & vbCrLf _
& "This will be permanent...", vbCritical + vbYesNo + vbDefaultButton2, "Reset to Defaults")
If iResult = vbNo Then Exit Sub
Call MakeIniFile
Call GetIniSettings
Call GetIndicatorSettings 'reload vars
Call frmMain.SetColors
Call frmMain.SetMargins
Call SetUpFontTb
Call frmMain.ChartBoxDraw
End Sub
Private Sub cmdSaveExit_Click()
Call SaveIniSettings
Unload Me
End Sub
Private Sub Form_Load()
lblColor(0).BackColor = iBackColor
lblColor(1).BackColor = iForeColor
lblColor(2).BackColor = iGridColor
lblColor(3).BackColor = iCrossHairColor
lblColor(4).BackColor = iDateMarkerColor
lblColor(5).BackColor = iTicBodyColor
lblColor(6).BackColor = iTicOpenColor
lblColor(7).BackColor = iTicCloseColor
lblColor(8).BackColor = iTicCandleUpColor
lblColor(9).BackColor = iTicCandleDnColor
lblColor(10).BackColor = iVolColor
txtCrosshairMode.Text = iCrossHairMode
txtScrollIncrement = iScrollIncrement
txtDiv1.Text = rSplit1
txtDiv2.Text = rSplit2
lblDiv1.Caption = "Min:" & iBottomPlotMargin / 2 & vbCrLf & "Max:" & rSplit2 - 10
lblDiv2.Caption = "Min:" & rSplit1 + 10 & vbCrLf & "Max:" & iBottomPlotMargin - 50
lblCHmode.Caption = "Min:1" & vbCrLf & "Max:15"
lblScrollIncrement.Caption = "Min:10" & vbCrLf & "Max:" & (rRightSideOffset \ iBarSpacing) - 1
Call SetUpFontTb
End Sub
Private Sub DrawTicType()
picBarTypeCont.Cls
Call DrawState(picTypeLine.hDC, 0, 0, picTypeLine.Picture, 0, 0, 0, 0, 0, DST_ICON Or DSS_DISABLED)
Call DrawState(picTypeHLOC.hDC, 0, 0, picTypeHLOC.Picture, 0, 0, 0, 0, 0, DST_ICON Or DSS_DISABLED)
Call DrawState(picTypeCandle.hDC, 0, 0, picTypeCandle.Picture, 0, 0, 0, 0, 0, DST_ICON Or DSS_DISABLED)
Select Case iTicType
Case ttLine
Call DrawState(picTypeLine.hDC, 0, 0, picTypeLine.Picture, 0, 0, 0, 0, 0, DST_ICON)
Call DrawHiLiteBox(picTypeLine)
Case ttHLOC
Call DrawState(picTypeHLOC.hDC, 0, 0, picTypeHLOC.Picture, 0, 0, 0, 0, 0, DST_ICON)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -