Menu
▾
▴
[swebs-commits] swebswebserver/winui About-1.gif,NONE,1.1 basTransparency.bas,NONE,1.1 .cvsignore,1.7,1.8 WinUI.lvw,1.24,1.25 WinUI.vbp,1.69,1.70 credits.rtf,1.22,1.23 frmAbout.frm,1.37,1.38 frmAbout.frx,1.23,1.24 frmMain.frm,1.79,1.80 swebscc.exe,1.66,1.67
|
From: <ple...@us...> - 2003-11-19 12:07:28
|
Update of /cvsroot/swebs/swebswebserver/winui
In directory sc8-pr-cvs1:/tmp/cvs-serv16381/swebswebserver/winui
Modified Files:
.cvsignore WinUI.lvw WinUI.vbp credits.rtf frmAbout.frm
frmAbout.frx frmMain.frm swebscc.exe
Added Files:
About-1.gif basTransparency.bas
Log Message:
Uber-cool new about box...
--- NEW FILE: About-1.gif ---
(This appears to be a binary file; contents omitted.)
--- NEW FILE: basTransparency.bas ---
Attribute VB_Name = "basTransparency"
'CSEH: Core - Custom
'***************************************************************************
'
' SWEBS/Core
'
' Copyright (c) 2003 Adam Caudill.
'
' This program is free software; you can redistribute it and/or modify
' it under the terms of the GNU General Public License as published by
' the Free Software Foundation; either version 2 of the License, or
' (at your option) any later version.
'
' This program is distributed in the hope that it will be useful,
' but WITHOUT ANY WARRANTY; without even the implied warranty of
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
' GNU General Public License for more details.
'
' You should have received a copy of the GNU General Public License
' along with this program; if not, write to the Free Software
' Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
'***************************************************************************
Private Declare Function CreateRectRgn Lib "gdi32" ( _
ByVal X1 As Long, _
ByVal Y1 As Long, _
ByVal X2 As Long, _
ByVal Y2 As Long _
) As Long
Private Declare Function CombineRgn Lib "gdi32" ( _
ByVal hDestRgn As Long, _
ByVal hSrcRgn1 As Long, _
ByVal hSrcRgn2 As Long, _
ByVal nCombineMode As Long _
) As Long
Private Declare Function OffsetRgn Lib "gdi32" ( _
ByVal hRgn As Long, _
ByVal X As Long, _
ByVal Y As Long _
) As Long
Private Declare Function SetWindowRgn Lib "user32" ( _
ByVal hWnd As Long, _
ByVal hRgn As Long, _
ByVal bRedraw As Boolean _
) As Long
Private Declare Function CreateCompatibleDC Lib "gdi32" ( _
ByVal hdc As Long _
) As Long
Private Declare Function GetPixel Lib "gdi32" ( _
ByVal hdc As Long, _
ByVal X As Long, _
ByVal Y As Long _
) As Long
Private Declare Function GetSystemMetrics Lib "user32" ( _
ByVal nIndex As Long _
) As Long
Private Declare Function SelectObject Lib "gdi32" ( _
ByVal hdc As Long, _
ByVal hObject As Long _
) As Long
Private Declare Function DeleteObject Lib "gdi32" ( _
ByVal hObject As Long _
) As Long
Private Declare Function DeleteDC Lib "gdi32" ( _
ByVal hdc As Long _
) As Long
Private Const RGN_AND = 1
Private Const RGN_COPY = 5
Private Const RGN_OR = 2
Private Const RGN_XOR = 3
Private Const RGN_DIFF = 4
Private Const SM_CYCAPTION = 4
Private Const SM_CXBORDER = 5
Private Const SM_CYBORDER = 6
Private Const SM_CXDLGFRAME = 7
Private Const SM_CYDLGFRAME = 8
Public Function FormRegion(frmForm As Form) As Long
Dim i As Long, ii As Long, lngPicWidth As Long, lngPicHeight As Long, lngTitleHeight As Long
Dim lngBorderWidth As Long, lngPicRegion As Long, lngPixelRegion As Long, lngPixelColor As Long
Dim lngPicDC As Long, lngPicTempBMP As Long, lngPicTransColor As Long, lngOriginalRgn As Long
Dim lngRetVal As Long
lngPicWidth = frmForm.ScaleX(frmForm.Picture.Width, vbTwips, vbPixels)
lngPicHeight = frmForm.ScaleY(frmForm.Picture.Height, vbTwips, vbPixels)
lngPicRegion = CreateRectRgn(0, 0, lngPicWidth, lngPicHeight)
lngPicDC = CreateCompatibleDC(frmForm.hdc)
lngPicTempBMP = SelectObject(lngPicDC, frmForm.Picture.Handle)
lngPicTransColor = GetPixel(lngPicDC, 0, 0)
For i = 0 To lngPicHeight
For ii = 0 To lngPicWidth
lngPixelColor = GetPixel(lngPicDC, i, ii)
If lngPixelColor = lngPicTransColor Then
lngPixelRegion = CreateRectRgn(i, ii, i + 1, ii + 1)
CombineRgn lngPicRegion, lngPicRegion, lngPixelRegion, RGN_XOR
DeleteObject lngPixelRegion
End If
Next ii
Next i
SelectObject lngPicDC, lngPicTempBMP
DeleteDC lngPicDC
DeleteObject lngPicTempBMP
lngOriginalRgn = SetWindowRgn(frmForm.hWnd, lngPicRegion, True)
FormRegion = lngOriginalRgn
End Function
Public Sub FormRemoveRegion(hWnd As Long, lngOriginalRgn As Long)
DeleteObject SetWindowRgn(hWnd, lngOriginalRgn, True)
End Sub
Index: .cvsignore
===================================================================
RCS file: /cvsroot/swebs/swebswebserver/winui/.cvsignore,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- .cvsignore 17 Nov 2003 11:43:07 -0000 1.7
+++ .cvsignore 19 Nov 2003 12:07:10 -0000 1.8
@@ -5,3 +5,4 @@
WinUI.csi
TransExtract.exe
sHTTP.dll
+About-1.ai
Index: WinUI.lvw
===================================================================
RCS file: /cvsroot/swebs/swebswebserver/winui/WinUI.lvw,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -d -r1.24 -r1.25
Binary files /tmp/cvsYg4cbb and /tmp/cvsCIbSVb differ
Index: WinUI.vbp
===================================================================
RCS file: /cvsroot/swebs/swebswebserver/winui/WinUI.vbp,v
retrieving revision 1.69
retrieving revision 1.70
diff -u -d -r1.69 -r1.70
--- WinUI.vbp 17 Nov 2003 11:43:07 -0000 1.69
+++ WinUI.vbp 19 Nov 2003 12:07:10 -0000 1.70
@@ -16,6 +16,7 @@
Class=cSysTray; cSysTray.cls
Module=basExceptionFilter; basExceptionFilter.bas
Form=frmNewISAPI.frm
+Module=basTransparency; ..\..\swebswebserver\winui\basTransparency.bas
IconForm="frmMain"
Startup="Sub Main"
HelpFile=""
@@ -29,7 +30,7 @@
CompatibleMode="0"
MajorVer=1
MinorVer=0
-RevisionVer=192
+RevisionVer=195
AutoIncrementVer=1
ServerSupportFiles=0
VersionCompanyName="SWEBS Development Team"
Index: credits.rtf
===================================================================
RCS file: /cvsroot/swebs/swebswebserver/winui/credits.rtf,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -d -r1.22 -r1.23
Binary files /tmp/cvskjTnoi and /tmp/cvs44WoVs differ
Index: frmAbout.frm
===================================================================
RCS file: /cvsroot/swebs/swebswebserver/winui/frmAbout.frm,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -d -r1.37 -r1.38
--- frmAbout.frm 17 Nov 2003 11:43:07 -0000 1.37
+++ frmAbout.frm 19 Nov 2003 12:07:10 -0000 1.38
@@ -1,36 +1,55 @@
VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form frmAbout
- BackColor = &H00FFFFFF&
- BorderStyle = 3 'Fixed Dialog
+ BorderStyle = 0 'None
Caption = "About SWEBS Web Server"
- ClientHeight = 5985
- ClientLeft = 45
- ClientTop = 435
- ClientWidth = 5280
+ ClientHeight = 6795
+ ClientLeft = 0
+ ClientTop = 0
+ ClientWidth = 8370
ForeColor = &H00000000&
Icon = "frmAbout.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
- ScaleHeight = 5985
- ScaleWidth = 5280
+ Picture = "frmAbout.frx":0CCA
+ ScaleHeight = 6795
+ ScaleWidth = 8370
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
- Begin RichTextLib.RichTextBox rtfCredits
- Height = 3735
- Left = 120
+ Begin VB.Timer tmrCreditsScroll
+ Interval = 50
+ Left = 5040
+ Top = 240
+ End
+ Begin VB.PictureBox picCreditsScroll
+ Appearance = 0 'Flat
+ AutoRedraw = -1 'True
+ BackColor = &H80000005&
+ BorderStyle = 0 'None
+ ForeColor = &H80000008&
+ Height = 5775
+ Left = 5640
+ ScaleHeight = 5775
+ ScaleWidth = 2175
TabIndex = 4
- Top = 1680
- Width = 5055
- _ExtentX = 8916
- _ExtentY = 6588
- _Version = 393217
- BorderStyle = 0
- ReadOnly = -1 'True
- ScrollBars = 2
- FileName = "D:\MyDocs\Projects\swebs\swebswebserver\winui\credits.rtf"
- TextRTF = $"frmAbout.frx":0CCA
+ Top = 120
+ Width = 2175
+ Begin RichTextLib.RichTextBox rtfCredits
+ Height = 7695
+ Left = 0
+ TabIndex = 5
+ Top = 0
+ Width = 2175
+ _ExtentX = 3836
+ _ExtentY = 13573
+ _Version = 393217
+ BorderStyle = 0
+ ReadOnly = -1 'True
+ Appearance = 0
+ FileName = "D:\MyDocs\Projects\swebs\swebswebserver\winui\credits.rtf"
+ TextRTF = $"frmAbout.frx":5EB5
+ End
End
Begin VB.Label lblClose
Alignment = 2 'Center
@@ -48,16 +67,17 @@
EndProperty
ForeColor = &H00FF0000&
Height = 225
- Left = 4455
- MouseIcon = "frmAbout.frx":16CD
+ Left = 7200
+ MouseIcon = "frmAbout.frx":62F9
MousePointer = 99 'Custom
- TabIndex = 5
- Top = 5640
+ TabIndex = 3
+ Top = 6120
Width = 495
End
Begin VB.Label lblHomePage
AutoSize = -1 'True
BackColor = &H00FFFFFF&
+ BackStyle = 0 'Transparent
Caption = "swebs.sourceforge.net"
BeginProperty Font
Name = "MS Sans Serif"
@@ -70,24 +90,18 @@
EndProperty
ForeColor = &H00FF0000&
Height = 195
- Left = 120
- MouseIcon = "frmAbout.frx":181F
+ Left = 5160
+ MouseIcon = "frmAbout.frx":644B
MousePointer = 99 'Custom
- TabIndex = 3
+ TabIndex = 2
ToolTipText = "Go To URL: http://swebs.sourceforge.net/"
- Top = 5640
+ Top = 6120
Width = 1605
End
- Begin VB.Image imgLogo
- Height = 480
- Left = 600
- Picture = "frmAbout.frx":1971
- Top = 120
- Width = 480
- End
Begin VB.Label lblUIBuild
Alignment = 2 'Center
BackColor = &H00FFFFFF&
+ BackStyle = 0 'Transparent
Caption = "Control Center Build: XXXX"
BeginProperty Font
Name = "Tahoma"
@@ -98,15 +112,17 @@
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
+ ForeColor = &H00FFFFFF&
Height = 255
Left = 960
- TabIndex = 2
- Top = 1200
- Width = 3015
+ TabIndex = 1
+ Top = 1560
+ Width = 3615
End
Begin VB.Label lblSrvVersion
Alignment = 2 'Center
BackColor = &H00FFFFFF&
+ BackStyle = 0 'Transparent
Caption = "Server Version: X.XX.XX"
BeginProperty Font
Name = "Tahoma"
@@ -117,38 +133,12 @@
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
+ ForeColor = &H00FFFFFF&
Height = 255
Left = 960
- TabIndex = 1
- Top = 840
- Width = 3015
- End
- Begin VB.Line lneUI
- Index = 1
- X1 = 600
- X2 = 4200
- Y1 = 600
- Y2 = 600
- End
- Begin VB.Label lblTitle
- Alignment = 2 'Center
- AutoSize = -1 'True
- BackColor = &H00FFFFFF&
- Caption = "SWEBS Web Server"
- BeginProperty Font
- Name = "Tahoma"
- Size = 15.75
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 375
- Left = 1118
TabIndex = 0
- Top = 240
- Width = 3045
+ Top = 1320
+ Width = 3615
End
End
Attribute VB_Name = "frmAbout"
@@ -180,17 +170,35 @@
Option Explicit
+Dim lngOriginalRgn As Long
+
+Private Sub Form_Unload(Cancel As Integer)
+ FormRemoveRegion Me.hWnd, lngOriginalRgn
+End Sub
+
Private Sub lblClose_Click()
Unload Me
End Sub
Private Sub Form_Load()
+ Me.Width = Me.ScaleX(Me.Picture.Width, vbHimetric, vbTwips)
+ Me.Height = Me.ScaleY(Me.Picture.Height, vbHimetric, vbTwips)
+ lngOriginalRgn = FormRegion(Me)
lblClose.Caption = Translator.GetText("&Close")
lblSrvVersion.Caption = Translator.GetText("Server Version") & ": " & Core.Version
lblUIBuild.Caption = Translator.GetText("Control Center Build") & ": " & App.Revision
rtfCredits.TextRTF = Replace(rtfCredits.TextRTF, "Lang-Maintainer", Translator.GetText("Lang-Maintainer"))
+ rtfCredits.Top = rtfCredits.Height * -1
End Sub
Private Sub lblHomePage_Click()
Core.Net.LaunchURL "http://swebs.sourceforge.net/html/index.php"
+End Sub
+
+Private Sub tmrCreditsScroll_Timer()
+ rtfCredits.Top = rtfCredits.Top - 5
+ If rtfCredits.Top < rtfCredits.Height * -1 Then
+ rtfCredits.Top = picCreditsScroll.Height + 10
+ End If
+ picCreditsScroll.Refresh
End Sub
Index: frmAbout.frx
===================================================================
RCS file: /cvsroot/swebs/swebswebserver/winui/frmAbout.frx,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -d -r1.23 -r1.24
Binary files /tmp/cvs8VVPfy and /tmp/cvsC8iieW differ
Index: frmMain.frm
===================================================================
RCS file: /cvsroot/swebs/swebswebserver/winui/frmMain.frm,v
retrieving revision 1.79
retrieving revision 1.80
diff -u -d -r1.79 -r1.80
--- frmMain.frm 17 Nov 2003 11:43:08 -0000 1.79
+++ frmMain.frm 19 Nov 2003 12:07:11 -0000 1.80
@@ -539,6 +539,7 @@
_ExtentY = 8916
_Version = 393217
BorderStyle = 0
+ Enabled = -1 'True
ReadOnly = -1 'True
ScrollBars = 3
AutoVerbMenu = -1 'True
@@ -1275,7 +1276,7 @@
Top = 120
Width = 3750
End
- Begin VB.Shape Shape1
+ Begin VB.Shape shpMain
BackColor = &H00804008&
BackStyle = 1 'Opaque
BorderStyle = 0 'Transparent
Index: swebscc.exe
===================================================================
RCS file: /cvsroot/swebs/swebswebserver/winui/swebscc.exe,v
retrieving revision 1.66
retrieving revision 1.67
diff -u -d -r1.66 -r1.67
Binary files /tmp/cvsM0e6eN and /tmp/cvsmEFAkr differ
|
