Archive Browser
Download matrixscreensaver.zip, last updated 07/07/2000 (34.72 KB)
Download- md5: 26afc89285581880adcea85741a89874
Attribute VB_Name = "modMatrixScr"
'--------------------------------'
' Matrix Screen Saver '
' Version 1.0 '
'--------------------------------'
'Copyright � 2000 by Ariad Software. All Rights Reserved
'Created : 06/07/2000
'Completed :
'Last Updated :
Option Explicit
DefInt A-Z
Public BackgroundClr As OLE_COLOR
Public HighlightTextClr As OLE_COLOR
Public DimmedTextClr As OLE_COLOR
Public Speed As Long
Public CharacterSet
Public CharacterSetChar$
Public FontData$
'---------------------------------------------------
'Name : FontToString
'Created : 26/05/2000 09:07
'---------------------------------------------------
'Author : Richard Moss
'Organisation: Ariad Software
'---------------------------------------------------
'Description : Converts a font object into a string
'---------------------------------------------------
'Returns : Returns a String Variable
'---------------------------------------------------
'Updates :
'
'---------------------------------------------------
' Ariad Procedure Builder Add-In 1.00.0036
Public Function FontToString(ByVal FontData As StdFont) As String
'##BD Converts a font object into a string
With FontData
FontToString = .Name & "," & .Size & "," & Abs(.Bold) & "," & Abs(.Italic) & "," & Abs(.Underline) & "," & Abs(.Strikethrough)
End With
End Function '(Public) Function FontToString () As String
'---------------------------------------------------
'Name : StringToFont
'Created : 26/05/2000 08:51
'---------------------------------------------------
'Author : Richard Moss
'Organisation: Ariad Software
'---------------------------------------------------
'Description : Converts a string into a font object
'---------------------------------------------------
'Returns : Returns a StdFont Object
'---------------------------------------------------
'Updates :
'
'---------------------------------------------------
' Ariad Procedure Builder Add-In 1.00.0036
Public Function StringToFont(ByVal FontData$) As StdFont
'##BD Converts a string into a font object
Dim Dat$()
'Parse FontData$, Dat$(), ",", ptsmASSplit, True, 10
Dat$ = Split(FontData$, ",")
Set StringToFont = New StdFont
With StringToFont
.Name = Dat$(0)
.Size = Val(Dat$(1))
.Bold = Val(Dat$(2))
.Italic = Val(Dat$(3))
.Underline = Val(Dat$(4))
.Strikethrough = Val(Dat$(5))
End With
End Function '(Public) Function StringToFont () As StdFont
'-------------------------------------------------------------------
'Name : About
'Created : 06/07/2000 21:06
'-------------------------------------------------------------------
'Author : Richard James Moss
'Organisation: Ariad Software
'-------------------------------------------------------------------
'Description : Displays version, copyright and contact information.
'-------------------------------------------------------------------
'Updates :
'
'-------------------------------------------------------------------
' Ariad Procedure Builder Add-In 1.00.0036
Public Sub About()
Attribute About.VB_Description = "Displays version, copyright and contact information."
Attribute About.VB_UserMemId = -552
'##BD Displays version, copyright and contact information.
On Error Resume Next
Dim Frm As frmAbout
Set Frm = New frmAbout
Frm.Show 1
On Error GoTo 0
End Sub '(Public) Sub About ()
'---------------------------------
'Name : Main
'Created : 06/07/2000 20:27
'---------------------------------
'Author : Richard James Moss
'Organisation: Ariad Software
'---------------------------------
'Description : Startup
'---------------------------------
'Updates :
'
'---------------------------------
' AS-PROCBUILD 1.00.0036
Public Sub Main()
'##BD Startup
If ScreenSaverActive() = 0 Then 'And App.PrevInstance = 0 Then
PreviewMode = -1
'load default settings
BackgroundClr = GetSetting("Matrix ScreenSaver", "Version 1.0", "BackgroundColour", QBColor(0))
HighlightTextClr = GetSetting("Matrix ScreenSaver", "Version 1.0", "HighlightTextColour", QBColor(10))
DimmedTextClr = GetSetting("Matrix ScreenSaver", "Version 1.0", "DimmedTextColour", QBColor(2))
Speed = GetSetting("Matrix ScreenSaver", "Version 1.0", "Speed", 75)
CharacterSet = GetSetting("Matrix ScreenSaver", "Version 1.0", "CharacterSet", 1)
CharacterSetChar = GetSetting("Matrix ScreenSaver", "Version 1.0", "CharacterSetChar")
FontData$ = GetSetting("Matrix ScreenSaver", "Version 1.0", "Font", "Courier New,15,0,0,0,0")
'ensure that neither the ss is running or a second copy of this app
Select Case Left$(UCase$(Command$), 2)
Case "/A" 'change password
'no password support (yet)
'so why not show about dialog?
About
Case "/C" 'config
frmConfig.Show 1
Case "/P" 'preview
PreviewSaver frmScreenSaver, Val(Trim$(Mid$(Command$, 3)))
Case "/S" 'display
PreviewMode = 0
Load frmScreenSaver
End Select
End If
End Sub '(Public) Sub Main ()
Donate
This software may be used free of charge, but as with all free software there are costs involved to develop and maintain.
If this site or its services have saved you time, please consider a donation to help with running costs and timely updates.
Donate