Some issues regarding setup files.

Firstly is it possible for me to modify the setup files so I can add custom backgrounds, change form and button colors etc...

Secondly how can I introduce a registeration system where they have to put in their name, email. When they send their details it adds it MySQL database so I can inform them with further updates. And also adds it to the registery so that it can fill this form in. Here is a screenshot from it.

http://img386.imageshack.us/img386/3...ansperancy.jpg

Thank you in advance.

Abdul

Moved from the CodeBank

Try Inno Setup and the third party tools. They can do most of what you want if not everything.

Do you recomment any?

I found this function in setup.vbp.

How can I change the background color?

VB Code:

Private Sub DrawBackGround()
    Const intBLUESTART% = 255
    Const intBLUEEND% = 0
    Const intBANDHEIGHT% = 2
    Const intSHADOWSTART% = 8
    Const intSHADOWCOLOR% = 0
    Const intTEXTSTART% = 4
    Const intTEXTCOLOR% = 15
    Const intRed% = 1
    Const intGreen% = 2
    Const intBlue% = 4
    Const intBackRed% = 8
    Const intBackGreen% = 16
    Const intBackBlue% = 32
    Dim sngBlueCur As Single
    Dim sngBlueStep As Single
    Dim intFormHeight As Integer
    Dim intFormWidth As Integer
    Dim intY As Integer
    Dim iColor As Integer
    Dim iRed As Single, iBlue As Single, iGreen As Single
    
    '
    'Get system values for height and width
    '
    intFormHeight = ScaleHeight
    intFormWidth = ScaleWidth
 
    If Len(ReadIniFile(gstrSetupInfoFile, gstrINI_SETUP, gstrINI_COLOR)) = 0 Then
        iColor = intBlue
    Else
        iColor = CInt(ReadIniFile(gstrSetupInfoFile, gstrINI_SETUP, gstrINI_COLOR))
    End If
    'Calculate step size and blue start value
    '
    sngBlueStep = intBANDHEIGHT * (intBLUEEND - intBLUESTART) / intFormHeight
    sngBlueCur = intBLUESTART
 
    '
    'Paint blue screen
    '
    For intY = 0 To intFormHeight Step intBANDHEIGHT
        If iColor And intBlue Then iBlue = sngBlueCur
        If iColor And intRed Then iRed = sngBlueCur
        If iColor And intGreen Then iGreen = sngBlueCur
        If iColor And intBackBlue Then iBlue = 255 - sngBlueCur
        If iColor And intBackRed Then iRed = 255 - sngBlueCur
        If iColor And intBackGreen Then iGreen = 255 - sngBlueCur
        Line (-1, intY - 1)-(intFormWidth, intY + intBANDHEIGHT), RGB(iRed, iGreen, iBlue), BF
        sngBlueCur = sngBlueCur + sngBlueStep
    Next intY
 
    '
    'Print 'shadowed' appname
    '
    CurrentX = intSHADOWSTART
    CurrentY = intSHADOWSTART
    ForeColor = QBColor(intSHADOWCOLOR)
    Print Caption
    CurrentX = intTEXTSTART
    CurrentY = intTEXTSTART
    ForeColor = QBColor(intTEXTCOLOR)
    Print Caption
End Sub

Quote:

---

Originally Posted by asgsoft

Do you recomment any?

---

I thought I just Did...

BTW: The are where the comment says "Paint blue screen' would probably be a good starting place.

There is someone on the forum who would know. You might want to ask RobDog888 or RhinoBull.

I tried Inno Setup as you recommended and I found it great. But I would love to change the way it looks, colors etc

For me its easier to modify the setup's background gadint color by editing the setupo.lst file.

Find the section named "[Setup]" and add an entry for "Color".

Ex:

[Setup]
Color=8

There are only the standard 16 color support for this. I forget which numbers relate to each color but shouldnt be hard to test out.

For the registration I would suggest looking at MartinLiss' example - http://vbforums.com/showthread.php?t=232146

You can change the way Inno looks. You have to look in the help documentation. It is there...