diff --git a/FrmHex.frm b/FrmHex.frm index 7eaa3ac..ee1327b 100644 --- a/FrmHex.frm +++ b/FrmHex.frm @@ -1,15 +1,16 @@ VERSION 5.00 Begin VB.Form FrmHex BorderStyle = 1 'Fixed Single - Caption = "Hexadecimal Color Scroller" + Caption = "Hex Color Scroller" ClientHeight = 1680 ClientLeft = 45 ClientTop = 330 - ClientWidth = 5895 + ClientWidth = 5880 + KeyPreview = -1 'True LinkTopic = "Form1" MaxButton = 0 'False ScaleHeight = 1680 - ScaleWidth = 5895 + ScaleWidth = 5880 StartUpPosition = 2 'CenterScreen Begin VB.Timer tmrNoteClear Enabled = 0 'False @@ -20,10 +21,10 @@ Begin VB.Form FrmHex Begin VB.CommandButton CmdCopy Caption = "C&opy" Height = 375 - Left = 3480 + Left = 3000 TabIndex = 8 Top = 1200 - Width = 1095 + Width = 1335 End Begin VB.TextBox TxtBlue Alignment = 2 'Center @@ -75,10 +76,10 @@ Begin VB.Form FrmHex Begin VB.CommandButton CmdClose Caption = "&Close" Height = 375 - Left = 4680 + Left = 4440 TabIndex = 9 Top = 1200 - Width = 1095 + Width = 1335 End Begin VB.HScrollBar HsBlue Height = 255 @@ -115,14 +116,24 @@ Private Sub CmdClose_Click() End Sub Private Sub CmdCopy_Click() + On Error GoTo endCopy Clipboard.Clear ' `-> I doubt this has any use; but just incase... Clipboard.SetText TxtHex.Text Me.Caption = Me.Caption & " - Copied to clipboard" tmrNoteClear.Enabled = True + Exit Sub + +endCopy: + MsgBox "Failed to copy to clipboard.", vbExclamation, "Error" +End Sub + +Private Sub Form_KeyPress(KeyAscii As Integer) + If KeyAscii = vbKeyEscape Then End End Sub Private Sub Form_Load() + Me.Caption = Me.Caption & " v" & App.Major & "." & App.Minor & "." & App.Revision Me.Tag = Me.Caption ' `-> Store the title in "memory" for easy changing if someone clicks copy Me.BackColor = RGB(HsRed.Value, HsGreen.Value, HsBlue.Value) diff --git a/Hex Scroll.exe b/Hex Scroll.exe index f892442..ede36f0 100644 Binary files a/Hex Scroll.exe and b/Hex Scroll.exe differ diff --git a/Hex Scroll.vbp b/Hex Scroll.vbp index b0d23b8..58eb9b7 100644 --- a/Hex Scroll.vbp +++ b/Hex Scroll.vbp @@ -1,6 +1,6 @@ Type=Exe Form=FrmHex.frm -Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\WINXP\system32\stdole2.tlb#OLE Automation +Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\WINXP\system32\stdole2.tlb#OLE Automation IconForm="FrmHex" Startup="FrmHex" HelpFile="" @@ -12,13 +12,13 @@ HelpContextID="0" CompatibleMode="0" MajorVer=1 MinorVer=0 -RevisionVer=1 +RevisionVer=2 AutoIncrementVer=0 ServerSupportFiles=0 VersionCompanyName="Jigsy" VersionFileDescription="Tells you the #Hex and R,G,B value of a color" VersionLegalCopyright="N/A - Open Source Software" -VersionProductName="Hex Scroll" +VersionProductName="Hex Color Scroll" CompilationType=0 OptimizationType=0 FavorPentiumPro(tm)=0 diff --git a/Hex Scroll.vbw b/Hex Scroll.vbw index ac247b6..3412452 100644 --- a/Hex Scroll.vbw +++ b/Hex Scroll.vbw @@ -1 +1 @@ -FrmHex = 44, 44, 746, 681, , 22, 22, 724, 659, C +FrmHex = 85, 28, 787, 665, C, 22, 22, 724, 659, C