Update of /cvsroot/swebs/swebswebserver/winui In directory sc8-pr-cvs1:/tmp/cvs-serv2477/swebswebserver/winui Modified Files: .cvsignore WinUI.vbp basTransparency.bas frmAbout.frm frmMain.frm frmMain.frx frmRegistration.frm frmRegistration.frx frmSplash.frm frmSplash.frx frmTip.frm frmTip.frx frmUpdate.frm swebscc.exe Added Files: Splash-1.gif Removed Files: Title.jpg Log Message: Yesterday was the new about box, today, the new, updated, uber cool splash screen:) --- NEW FILE: Splash-1.gif --- (This appears to be a binary file; contents omitted.) Index: .cvsignore =================================================================== RCS file: /cvsroot/swebs/swebswebserver/winui/.cvsignore,v retrieving revision 1.8 retrieving revision 1.9 diff -u -d -r1.8 -r1.9 --- .cvsignore 19 Nov 2003 12:07:10 -0000 1.8 +++ .cvsignore 20 Nov 2003 15:51:51 -0000 1.9 @@ -1,8 +1,8 @@ upgrade.xml installer -swebscc.DEP -WinUI.PDM -WinUI.csi TransExtract.exe sHTTP.dll -About-1.ai +*.DEP +*.PDM +*.csi +*.ai Index: WinUI.vbp =================================================================== RCS file: /cvsroot/swebs/swebswebserver/winui/WinUI.vbp,v retrieving revision 1.71 retrieving revision 1.72 diff -u -d -r1.71 -r1.72 --- WinUI.vbp 19 Nov 2003 15:55:19 -0000 1.71 +++ WinUI.vbp 20 Nov 2003 15:51:51 -0000 1.72 @@ -30,7 +30,7 @@ CompatibleMode="0" MajorVer=1 MinorVer=0 -RevisionVer=200 +RevisionVer=203 AutoIncrementVer=1 ServerSupportFiles=0 VersionCompanyName="SWEBS Development Team" Index: basTransparency.bas =================================================================== RCS file: /cvsroot/swebs/swebswebserver/winui/basTransparency.bas,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- basTransparency.bas 19 Nov 2003 15:55:19 -0000 1.2 +++ basTransparency.bas 20 Nov 2003 15:51:51 -0000 1.3 @@ -117,10 +117,10 @@ CombineRgn lngPicRegion, lngPicRegion, lngPixelRegion, RGN_XOR DeleteObject lngPixelRegion Else - If ii + 50 < lngPicWidth Then - lngPixelColor = GetPixel(lngPicDC, ii + 50, i) + If ii + 200 < lngPicWidth Then + lngPixelColor = GetPixel(lngPicDC, ii + 200, i) If lngPixelColor <> lngPicTransColor Then - ii = ii + 50 + ii = ii + 200 End If End If End If Index: frmAbout.frm =================================================================== RCS file: /cvsroot/swebs/swebswebserver/winui/frmAbout.frm,v retrieving revision 1.39 retrieving revision 1.40 diff -u -d -r1.39 -r1.40 --- frmAbout.frm 19 Nov 2003 15:55:19 -0000 1.39 +++ frmAbout.frm 20 Nov 2003 15:51:51 -0000 1.40 @@ -19,7 +19,7 @@ StartUpPosition = 2 'CenterScreen Begin VB.Timer tmrCreditsScroll Interval = 50 - Left = 7560 + Left = 5160 Top = 0 End Begin VB.PictureBox picCreditsScroll @@ -47,6 +47,7 @@ BorderStyle = 0 Enabled = -1 'True ReadOnly = -1 'True + MousePointer = 1 Appearance = 0 FileName = "D:\MyDocs\Projects\swebs\swebswebserver\winui\credits.rtf" TextRTF = $"frmAbout.frx":6960 Index: frmMain.frm =================================================================== RCS file: /cvsroot/swebs/swebswebserver/winui/frmMain.frm,v retrieving revision 1.81 retrieving revision 1.82 diff -u -d -r1.81 -r1.82 --- frmMain.frm 19 Nov 2003 15:55:19 -0000 1.81 +++ frmMain.frm 20 Nov 2003 15:51:52 -0000 1.82 @@ -16,19 +16,55 @@ ScaleHeight = 7305 ScaleWidth = 12075 StartUpPosition = 2 'CenterScreen + Begin VB.Frame fraLogs + BackColor = &H00FFFFFF& + BorderStyle = 0 'None + Height = 5895 + Left = 2520 + TabIndex = 36 + Top = 840 + Width = 6975 + Begin RichTextLib.RichTextBox rtfViewLogFiles + Height = 5415 + Left = 120 + TabIndex = 70 + Top = 480 + Width = 6735 + _ExtentX = 11880 + _ExtentY = 9551 + _Version = 393217 + Enabled = -1 'True + ReadOnly = -1 'True + ScrollBars = 3 + Appearance = 0 + AutoVerbMenu = -1 'True + TextRTF = $"frmMain.frx":0CCA + End + Begin VB.ComboBox cmbViewLogFiles + Appearance = 0 'Flat + Height = 315 + ItemData = "frmMain.frx":0D4C + Left = 120 + List = "frmMain.frx":0D4E + Style = 2 'Dropdown List + TabIndex = 37 + Top = 120 + Width = 6735 + End + End Begin VB.Frame fraConfigvHost BackColor = &H00FFFFFF& BorderStyle = 0 'None - Height = 5535 + Height = 5895 Left = 2520 TabIndex = 20 Top = 840 Width = 6975 Begin VB.ListBox lstvHosts Height = 5130 - ItemData = "frmMain.frx":0CCA + ItemData = "frmMain.frx":0D50 Left = 120 - List = "frmMain.frx":0CCC + List = "frmMain.frx":0D52 TabIndex = 25 Top = 240 Width = 1815 @@ -82,7 +118,7 @@ ForeColor = &H00FF0000& Height = 225 Left = 2160 - MouseIcon = "frmMain.frx":0CCE + MouseIcon = "frmMain.frx":0D54 MousePointer = 99 'Custom TabIndex = 107 Top = 5160 @@ -106,7 +142,7 @@ ForeColor = &H00FF0000& Height = 225 Left = 3270 - MouseIcon = "frmMain.frx":0E20 + MouseIcon = "frmMain.frx":0EA6 MousePointer = 99 'Custom TabIndex = 106 Top = 5160 @@ -129,7 +165,7 @@ ForeColor = &H00FF0000& Height = 225 Left = 6240 - MouseIcon = "frmMain.frx":0F72 + MouseIcon = "frmMain.frx":0FF8 MousePointer = 99 'Custom TabIndex = 105 Top = 1680 @@ -152,7 +188,7 @@ ForeColor = &H00FF0000& Height = 225 Left = 6240 - MouseIcon = "frmMain.frx":10C4 + MouseIcon = "frmMain.frx":114A MousePointer = 99 'Custom TabIndex = 104 Top = 2280 @@ -198,16 +234,16 @@ Begin VB.Frame fraConfigISAPI BackColor = &H00FFFFFF& BorderStyle = 0 'None - Height = 5535 + Height = 5895 Left = 2520 TabIndex = 30 Top = 840 Width = 6975 Begin VB.ListBox lstISAPI Height = 5130 - ItemData = "frmMain.frx":1216 + ItemData = "frmMain.frx":129C Left = 120 - List = "frmMain.frx":121D + List = "frmMain.frx":12A3 TabIndex = 33 Top = 240 Width = 1815 @@ -245,7 +281,7 @@ ForeColor = &H00FF0000& Height = 225 Left = 5880 - MouseIcon = "frmMain.frx":122B + MouseIcon = "frmMain.frx":12B1 MousePointer = 99 'Custom TabIndex = 101 Top = 600 @@ -269,7 +305,7 @@ ForeColor = &H00FF0000& Height = 225 Left = 3255 - MouseIcon = "frmMain.frx":137D + MouseIcon = "frmMain.frx":1403 MousePointer = 99 'Custom TabIndex = 100 Top = 5160 @@ -292,7 +328,7 @@ ForeColor = &H00FF0000& Height = 225 Left = 2145 - MouseIcon = "frmMain.frx":14CF + MouseIcon = "frmMain.frx":1555 MousePointer = 99 'Custom TabIndex = 99 Top = 5160 @@ -320,7 +356,7 @@ Begin VB.Frame fraStatus BackColor = &H00FFFFFF& BorderStyle = 0 'None - Height = 5535 + Height = 5895 Left = 2520 TabIndex = 1 Top = 840 @@ -397,7 +433,7 @@ ForeColor = &H00FF0000& Height = 195 Left = 660 - MouseIcon = "frmMain.frx":1621 + MouseIcon = "frmMain.frx":16A7 MousePointer = 99 'Custom TabIndex = 58 ToolTipText = "Click here for details." @@ -448,7 +484,7 @@ ForeColor = &H00FF0000& Height = 225 Left = 2145 - MouseIcon = "frmMain.frx":1773 + MouseIcon = "frmMain.frx":17F9 MousePointer = 99 'Custom TabIndex = 94 Top = 720 @@ -471,7 +507,7 @@ ForeColor = &H00FF0000& Height = 225 Left = 1305 - MouseIcon = "frmMain.frx":18C5 + MouseIcon = "frmMain.frx":194B MousePointer = 99 'Custom TabIndex = 93 Top = 720 @@ -494,7 +530,7 @@ ForeColor = &H00FF0000& Height = 225 Left = 330 - MouseIcon = "frmMain.frx":1A17 + MouseIcon = "frmMain.frx":1A9D MousePointer = 99 'Custom TabIndex = 92 Top = 720 @@ -521,44 +557,10 @@ End End End - Begin VB.Frame fraLogs - BackColor = &H00FFFFFF& - BorderStyle = 0 'None - Height = 5535 - Left = 2520 - TabIndex = 36 - Top = 840 - Width = 6975 - Begin RichTextLib.RichTextBox rtfViewLogFiles - Height = 5055 - Left = 120 - TabIndex = 70 - Top = 480 - Width = 6735 - _ExtentX = 11880 - _ExtentY = 8916 - _Version = 393217 - BorderStyle = 0 - ReadOnly = -1 'True - ScrollBars = 3 - AutoVerbMenu = -1 'True - TextRTF = $"frmMain.frx":1B69 - End - Begin VB.ComboBox cmbViewLogFiles - Height = 315 - ItemData = "frmMain.frx":1BEB - Left = 120 - List = "frmMain.frx":1BED - Style = 2 'Dropdown List - TabIndex = 37 - Top = 120 - Width = 6735 - End - End Begin VB.Frame fraConfigBasic BackColor = &H00FFFFFF& BorderStyle = 0 'None - Height = 5535 + Height = 5895 Left = 2520 TabIndex = 2 Top = 840 @@ -713,7 +715,7 @@ Begin VB.Frame fraConfigAdv BackColor = &H00FFFFFF& BorderStyle = 0 'None - Height = 5535 + Height = 5895 Left = 2520 TabIndex = 11 Top = 840 @@ -840,7 +842,7 @@ End Begin VB.Frame fraNewvHost BorderStyle = 0 'None - Height = 5535 + Height = 5895 Left = 2520 TabIndex = 38 Top = 840 Index: frmMain.frx =================================================================== RCS file: /cvsroot/swebs/swebswebserver/winui/frmMain.frx,v retrieving revision 1.23 retrieving revision 1.24 diff -u -d -r1.23 -r1.24 Binary files /tmp/cvsC5abKR and /tmp/cvsq6g8bz differ Index: frmRegistration.frm =================================================================== RCS file: /cvsroot/swebs/swebswebserver/winui/frmRegistration.frm,v retrieving revision 1.17 retrieving revision 1.18 diff -u -d -r1.17 -r1.18 --- frmRegistration.frm 17 Nov 2003 11:43:08 -0000 1.17 +++ frmRegistration.frm 20 Nov 2003 15:51:52 -0000 1.18 @@ -1,5 +1,6 @@ VERSION 5.00 Begin VB.Form frmRegistration + BackColor = &H00FFFFFF& BorderStyle = 4 'Fixed ToolWindow Caption = " SWEBS Web Server - Registration" ClientHeight = 4395 @@ -13,14 +14,6 @@ ScaleWidth = 6120 ShowInTaskbar = 0 'False StartUpPosition = 1 'CenterOwner - Begin VB.CommandButton cmdSubmit - Caption = "&Submit" - Height = 375 - Left = 2513 - TabIndex = 12 - Top = 3960 - Width = 1095 - End Begin VB.ComboBox cmbUse Height = 315 ItemData = "frmRegistration.frx":0000 @@ -77,7 +70,31 @@ Top = 600 Width = 3015 End + Begin VB.Label lblSubmit + Alignment = 2 'Center + AutoSize = -1 'True + BackStyle = 0 'Transparent + Caption = "&Submit" + BeginProperty Font + Name = "Arial" + Size = 9 + Charset = 0 + Weight = 700 + Underline = -1 'True + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + ForeColor = &H00FF0000& + Height = 225 + Left = 2753 + MouseIcon = "frmRegistration.frx":0101 + MousePointer = 99 'Custom + TabIndex = 12 + Top = 4080 + Width = 615 + End Begin VB.Label lblUse + BackColor = &H00FFFFFF& Caption = "What will you use this software for?" Height = 255 Left = 120 @@ -86,6 +103,7 @@ Width = 2535 End Begin VB.Label lblExpiriance + BackColor = &H00FFFFFF& Caption = "How much computer experience do you have?" Height = 255 Left = 120 @@ -94,6 +112,7 @@ Width = 3375 End Begin VB.Label lblFindUs + BackColor = &H00FFFFFF& Caption = "How did you find out about us?" Height = 255 Left = 120 @@ -102,6 +121,7 @@ Width = 2535 End Begin VB.Label lblWhere + BackColor = &H00FFFFFF& Caption = "Where are you using this?" Height = 255 Left = 120 @@ -110,6 +130,7 @@ Width = 2055 End Begin VB.Label lblComputers + BackColor = &H00FFFFFF& Caption = "How Many Computers Do You Own?" Height = 255 Left = 120 @@ -118,6 +139,7 @@ Width = 2895 End Begin VB.Label lblEMail + BackColor = &H00FFFFFF& Caption = "What is your e-mail address? (We will not contact you, this is simply used to track installations)." Height = 375 Left = 120 @@ -155,19 +177,19 @@ Option Explicit -Private Sub cmdSubmit_Click() +Private Sub lblSubmit_Click() Dim strResult As String Dim strQuery As String If txtEmail.Text = "" Then MsgBox Translator.GetText("You must provide a e-mail address."), vbInformation + vbApplicationModal + vbOKOnly txtEmail.SetFocus - Core.EventLog.AddEvent "SWEBS_Core_DLL.frmRegistration.cmdSubmit_Click", "User did not enter email address." + Core.EventLog.AddEvent "SWEBS_Core_DLL.frmRegistration.lblSubmit_Click", "User did not enter email address." Exit Sub End If Me.MousePointer = vbHourglass - cmdSubmit.Enabled = False + lblSubmit.Enabled = False txtEmail.Enabled = False cmbComputers.Enabled = False cmbWhere.Enabled = False @@ -182,14 +204,14 @@ Select Case strResult Case "Completed" Call Util.SaveRegistryString(&H80000002, "SOFTWARE\SWS", "RegID", txtEmail.Text) - Core.EventLog.AddEvent "SWEBS_Core_DLL.frmRegistration.cmdSubmit_Click", "Registration completed." + Core.EventLog.AddEvent "SWEBS_Core_DLL.frmRegistration.lblSubmit_Click", "Registration completed." Case "Duplicate" MsgBox Translator.GetText("You have already registered, you only need to register once."), vbApplicationModal + vbInformation + vbOKOnly Call Util.SaveRegistryString(&H80000002, "SOFTWARE\SWS", "RegID", txtEmail.Text) - Core.EventLog.AddEvent "SWEBS_Core_DLL.frmRegistration.cmdSubmit_Click", "Registration duplicate." + Core.EventLog.AddEvent "SWEBS_Core_DLL.frmRegistration.lblSubmit_Click", "Registration duplicate." Case Else MsgBox Translator.GetText("There was a unknown error. Registration Failed./r/rThe Registration server returned the following information:\r") & strResult - Core.EventLog.AddEvent "SWEBS_Core_DLL.frmRegistration.cmdSubmit_Click", "Registration failed." + Core.EventLog.AddEvent "SWEBS_Core_DLL.frmRegistration.lblSubmit_Click", "Registration failed." End Select Unload Me End Sub Index: frmRegistration.frx =================================================================== RCS file: /cvsroot/swebs/swebswebserver/winui/frmRegistration.frx,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 Binary files /tmp/cvsTuGLgV and /tmp/cvsuvUfmG differ Index: frmSplash.frm =================================================================== RCS file: /cvsroot/swebs/swebswebserver/winui/frmSplash.frm,v retrieving revision 1.15 retrieving revision 1.16 diff -u -d -r1.15 -r1.16 --- frmSplash.frm 17 Nov 2003 11:43:08 -0000 1.15 +++ frmSplash.frm 20 Nov 2003 15:51:52 -0000 1.16 @@ -21,7 +21,6 @@ StartUpPosition = 2 'CenterScreen Begin VB.Label lblStatus Alignment = 1 'Right Justify - AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Loading..." BeginProperty Font @@ -33,12 +32,12 @@ Italic = 0 'False Strikethrough = 0 'False EndProperty - ForeColor = &H00404040& + ForeColor = &H00FFFFFF& Height = 210 - Left = 7740 + Left = 3000 TabIndex = 0 - Top = 1560 - Width = 795 + Top = 1440 + Width = 4995 End End Attribute VB_Name = "frmSplash" @@ -70,6 +69,8 @@ Option Explicit +Dim lngOriginalRgn As Long + Private Sub Form_Click() Me.Hide End Sub @@ -80,8 +81,12 @@ Private Sub Form_Load() Me.MousePointer = vbHourglass + Me.Width = Me.ScaleX(Me.Picture.Width, vbHimetric, vbTwips) + Me.Height = Me.ScaleY(Me.Picture.Height, vbHimetric, vbTwips) + lngOriginalRgn = FormRegion(Me) End Sub Private Sub Form_Unload(Cancel As Integer) + FormRemoveRegion Me.hWnd, lngOriginalRgn Me.MousePointer = vbDefault End Sub Index: frmSplash.frx =================================================================== RCS file: /cvsroot/swebs/swebswebserver/winui/frmSplash.frx,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 Binary files /tmp/cvsuWPqwZ and /tmp/cvsya2eAO differ Index: frmTip.frm =================================================================== RCS file: /cvsroot/swebs/swebswebserver/winui/frmTip.frm,v retrieving revision 1.17 retrieving revision 1.18 diff -u -d -r1.17 -r1.18 --- frmTip.frm 17 Nov 2003 11:43:08 -0000 1.17 +++ frmTip.frm 20 Nov 2003 15:51:52 -0000 1.18 @@ -1,5 +1,6 @@ VERSION 5.00 Begin VB.Form frmTip + BackColor = &H00FFFFFF& Caption = "Tip of the Day" ClientHeight = 3720 ClientLeft = 2370 @@ -16,30 +17,25 @@ WhatsThisButton = -1 'True WhatsThisHelp = -1 'True Begin VB.CheckBox chkLoadTipsAtStartup + BackColor = &H00FFFFFF& Caption = "&Show Tips at Startup" Height = 315 Left = 120 - TabIndex = 3 + TabIndex = 1 Top = 3360 Value = 1 'Checked Width = 2055 End - Begin VB.CommandButton cmdNextTip - Caption = "&Next Tip" - Height = 375 - Left = 4080 - TabIndex = 2 - Top = 600 - Width = 1215 - End - Begin VB.PictureBox Picture1 - BackColor = &H00FFFFFF& + Begin VB.PictureBox picTip + Appearance = 0 'Flat + BackColor = &H80000005& + ForeColor = &H80000008& Height = 3075 Left = 120 Picture = "frmTip.frx":0CCA - ScaleHeight = 3015 - ScaleWidth = 3675 - TabIndex = 1 + ScaleHeight = 3045 + ScaleWidth = 3705 + TabIndex = 0 Top = 120 Width = 3735 Begin VB.Label lblTitle @@ -55,7 +51,7 @@ EndProperty Height = 375 Left = 240 - TabIndex = 6 + TabIndex = 4 Top = 600 Width = 3135 End @@ -64,7 +60,7 @@ Caption = "Did you know..." Height = 255 Left = 540 - TabIndex = 5 + TabIndex = 3 Top = 180 Width = 2655 End @@ -72,20 +68,56 @@ BackColor = &H00FFFFFF& Height = 1995 Left = 180 - TabIndex = 4 + TabIndex = 2 Top = 960 Width = 3375 End End - Begin VB.CommandButton cmdOK - Cancel = -1 'True - Caption = "OK" - Default = -1 'True - Height = 375 - Left = 4080 - TabIndex = 0 - Top = 120 - Width = 1215 + Begin VB.Label lblNextTip + Alignment = 2 'Center + AutoSize = -1 'True + BackStyle = 0 'Transparent + Caption = "&Next Tip" + BeginProperty Font + Name = "Arial" + Size = 9 + Charset = 0 + Weight = 700 + Underline = -1 'True + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + ForeColor = &H00FF0000& + Height = 225 + Left = 4335 + MouseIcon = "frmTip.frx":0FD4 + MousePointer = 99 'Custom + TabIndex = 6 + Top = 720 + Width = 705 + End + Begin VB.Label lblOK + Alignment = 2 'Center + AutoSize = -1 'True + BackStyle = 0 'Transparent + Caption = "&OK" + BeginProperty Font + Name = "Arial" + Size = 9 + Charset = 0 + Weight = 700 + Underline = -1 'True + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + ForeColor = &H00FF0000& + Height = 225 + Left = 4545 + MouseIcon = "frmTip.frx":1126 + MousePointer = 99 'Custom + TabIndex = 5 + Top = 240 + Width = 285 End End Attribute VB_Name = "frmTip" @@ -127,11 +159,11 @@ End If End Sub -Private Sub cmdNextTip_Click() +Private Sub lblNextTip_Click() GetTip End Sub -Private Sub cmdOK_Click() +Private Sub lblOK_Click() Unload Me End Sub Index: frmTip.frx =================================================================== RCS file: /cvsroot/swebs/swebswebserver/winui/frmTip.frx,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 Binary files /tmp/cvsYqk0c3 and /tmp/cvsABScdW differ Index: frmUpdate.frm =================================================================== RCS file: /cvsroot/swebs/swebswebserver/winui/frmUpdate.frm,v retrieving revision 1.16 retrieving revision 1.17 diff -u -d -r1.16 -r1.17 --- frmUpdate.frm 17 Nov 2003 11:43:08 -0000 1.16 +++ frmUpdate.frm 20 Nov 2003 15:51:52 -0000 1.17 @@ -1,5 +1,6 @@ VERSION 5.00 Begin VB.Form frmUpdate + BackColor = &H00FFFFFF& BorderStyle = 4 'Fixed ToolWindow Caption = " SWEBS Web Server - Control Center Update" ClientHeight = 5280 @@ -38,12 +39,14 @@ Width = 1815 End Begin VB.Frame fraDetails + BackColor = &H00FFFFFF& Height = 3975 Left = 120 TabIndex = 1 Top = 720 Width = 8775 Begin VB.TextBox txtDesc + Appearance = 0 'Flat BeginProperty Font Name = "Lucida Console" Size = 9 @@ -62,6 +65,7 @@ Width = 8535 End Begin VB.Label lblFileSize + BackColor = &H00FFFFFF& Caption = "File Size: 0,000,000" Height = 255 Left = 7080 @@ -70,6 +74,7 @@ Width = 1575 End Begin VB.Label lblDesc + BackColor = &H00FFFFFF& Caption = "Description:" Height = 255 Left = 120 @@ -78,6 +83,7 @@ Width = 855 End Begin VB.Label lblUpdateLevel + BackColor = &H00FFFFFF& Caption = "Update Level: 0000" Height = 255 Left = 4800 @@ -86,6 +92,7 @@ Width = 1575 End Begin VB.Label lblVersion + BackColor = &H00FFFFFF& Caption = "Version: 00.00.0000" Height = 255 Left = 2400 @@ -94,6 +101,7 @@ Width = 1575 End Begin VB.Label lblDate + BackColor = &H00FFFFFF& Caption = "Date: 00/00/0000" Height = 255 Left = 120 @@ -103,6 +111,7 @@ End End Begin VB.Label lblTitle + BackColor = &H00FFFFFF& Caption = $"frmUpdate.frx":0000 Height = 495 Left = 120 Index: swebscc.exe =================================================================== RCS file: /cvsroot/swebs/swebswebserver/winui/swebscc.exe,v retrieving revision 1.68 retrieving revision 1.69 diff -u -d -r1.68 -r1.69 Binary files /tmp/cvswBxD4a and /tmp/cvsIHKFRc differ --- Title.jpg DELETED --- |