Option Explicit
Public bFind As Boolean
Public DoWhat As Integer
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdFind_Click()
DoWhat = 1
Me.Hide
AddCombo cmbFind, cmbFind.Text
End Sub
Private Sub cmdMarkAll_Click()
DoWhat = 2
Me.Hide
End Sub
Private Sub Form_Load()
DoWhat = 0
'Flatten Me
Me.Left = GetSetting("ScintillaClass", "Settings", "FindLeft", (Screen.Width - Me.Width) \ 2)
Me.Top = GetSetting("ScintillaClass", "Settings", "FindTop", (Screen.Height - Me.Height) \ 2)
chkCase.Value = GetSetting("ScintillaClass", "Settings", "FchkCase", 0)
chkRegExp.Value = GetSetting("ScintillaClass", "Settings", "FchkRegEx", 0)
chkWhole.Value = GetSetting("ScintillaClass", "Settings", "FchkWhole", 0)
chkWrap.Value = GetSetting("ScintillaClass", "Settings", "FchkWrap", 1)
optUp.Value = GetSetting("ScintillaClass", "Settings", "FOptUp", 0)
ComboLoadHistory cmbFind
If cmbFind.ListCount > 0 Then
cmbFind.Text = cmbFind.List(0)
End If
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Form_Unload(Cancel As Integer)
SaveSetting "ScintillaClass", "Settings", "FindLeft", Me.Left
SaveSetting "ScintillaClass", "Settings", "FindTop", Me.Top
SaveSetting "ScintillaClass", "Settings", "FchkCase", chkCase.Value
SaveSetting "ScintillaClass", "Settings", "FchkRegEx", chkRegExp.Value
SaveSetting "ScintillaClass", "Settings", "FchkWhole", chkWhole.Value
SaveSetting "ScintillaClass", "Settings", "FchkWrap", chkWrap.Value
SaveSetting "ScintillaClass", "Settings", "FOptUp", optUp.Value
End Sub