Magic Colors

[CoePSX]

I was working on the functions for the past few days, but now I made a GUI interface for it.

This little app is very simple... It uses the gradient colors to make nice text effects on Orkut, MSN,

Forums and HTML.

Like this: From red to green!

Play with it, it's very simple to use.

OBS: I tried to put this code in [ autoit][/ autoit] tags, but some lines of the code got messed up.

I think it's becaus of some of the MSN Plus characters before the color tags.

Anyway, here's the code.

EDIT: Changed RegRead and RegWrite for IniRead and IniWrite.

EDIT: Language errors fixed.

EDIT: ColorGradient bugfix and three colors gradients added. Just like this one here.

Magic_Colors_en.au3

Edited August 18, 2006 by CoePSX

[WTS]

I was working on the functions for the past few days, but now I made a GUI interface for it.

This little app is very simple... It uses the gradient colors to make nice text effects on Orkut, MSN,

Forums and HTML.

Like this: From red to green!

Play with it, it's very simple to use.

;

OBS: I tried to put this code in [ autoit][/ autoit] tags, but some lines of the code got messed up.

I think it's becaus of some of the MSN Plus characters before the color tags.

Anyway, here's the code.

awesome

magic colors

i have a suggestion, instead of reg, maybe use inifile instead??

;read
Dim $Color1, $Color1, $MyIni = 'magiccolors.ini'
Global $Color1 = IniRead($MyIni,'Color', 'Color1',$Color1)
Global $Color2 = IniRead($MyIni,'Color', 'Color2',$Color1)

;write 
IniWrite($MyIni,'Color','Color1',$Color1)
IniWrite($MyIni,'Color','Color2',$Color2)

Edited August 17, 2006 by WTS

[jvanegmond]

This is funny!

[CoePSX]

Done.

Settings now use a Ini file. Thanks for the suggestion.

[NELyon]

<<<Codemyster>>>

[RazerM]

This is really cool, although you use the old MSN Plus colouring

[CoePSX]

The new [c=#FFFFFF][/c] style is only compatible with WLM... the users of MSN 7.5 don't see those colors.

[rakudave]

lol, this is cool!

[RazerM]

i know

[nitekram]

How do you go about changing the colors?

this is what it looks like

[RazerM]

Click the 1 or 2

[nitekram]

Click the 1 or 2

I may be blind but where is there a 1 or 2

Attached is the screen shot

[CoePSX]

I'm sorry, the default colors were black before i changed the code to ini settings.

Seems that I missed two group names when translating it to english :">

Anyway, "cores" is actually colors, click the left and right edged of the black rect and you will be able to select the right colors.

I will update the code now.

Done.

Edited August 17, 2006 by CoePSX

[nitekram]

I'm sorry, the default colors were black before i changed the code to ini settings.

Seems that I missed two group names when translating it to english :">

Anyway, "cores" is actually colors, click the left and right edged of the black rect and you will be able to select the right colors.

I will update the code now.

Done.

Now I see - are you going to add a button in there or something so stupid people like me can figure it out?

[CoePSX]

Actually, I tried with a button and it got pretty ugly. I like the wrapped labels, they stay with the right color and it looks nice

[nitekram]

Actually, I tried with a button and it got pretty ugly. I like the wrapped labels, they stay with the right color and it looks nice

I got to love this - great work, I also like your screen saver - do still have your first code you published before the screen saver was suggested?

Hope that is not too much color for everyone.

[CoePSX]

Sure, this is the very first one.

Note that the calculations of the degrees are wrong, you should use pi to calculate X and Y like I do in the screensaver.

But this is the original one:

expandcollapse popup

#NoTrayIcon
Opt("WinTitleMatchMode", 2)

If MsgBox(65, "Magic", "You're gonna see a math magic now. Click OK to open MSPaint.") = 2 Then Exit
Run("mspaint.exe", "", @SW_MAXIMIZE)
WinWaitActive("Paint", "")
If MsgBox(65, "Magic", "Expand the drawing area so that it covers the whole screen. And keep it maximized.") = 2 Then Exit
If MsgBox(65, "Magic", "Select the pencil.") = 2 Then Exit
If MsgBox(36,"Magic", "Can we start?") = 7 Then Exit
MsgBox(64,  "Magic", "You can stop it at any timen just pressing ESC.")

HotKeySet ("{ESC}", "Quit")
WinActivate("Paint", "")
For $i = 2 To 11
    MagicDraw($i)
    Sleep(1000)
    Send("^+n")
Next

MsgBox(64, "Magic", "Hope you liked it!")
WinKill("Paint", "")

Func MagicDraw($iNumber)
    Local $IncreaseSize = 0.25
    Local $PicSize = 10
    Local $CircleSize = 14
    Switch @DesktopWidth
        Case 1280
            $IncreaseSize = 1
        Case 1024
            $IncreaseSize = 0.72
        Case 800
            $IncreaseSize = 0.5
    EndSwitch
    MouseMove(@DesktopWidth/2,@DesktopHeight/2,0)
    For $R = 1 To 360
        $PicSize += $IncreaseSize
        Local $X = Sin($R * $iNumber) * $PicSize + @DesktopWidth/2
        Local $Y= Cos($R * $iNumber) * $PicSize + @DesktopHeight/2
        MouseDown("left")
        MouseMove($X,$Y,0)
        MouseUp("left")
    Next
EndFunc

Func Quit()
    MouseUp("left")
    Exit
EndFunc

[nitekram]

Sure, this is the very first one.

Note that the calculations of the degrees are wrong, you should use pi to calculate X and Y like I do in the screensaver.

But this is the original one:

expandcollapse popup

#NoTrayIcon
Opt("WinTitleMatchMode", 2)

If MsgBox(65, "Magic", "You're gonna see a math magic now. Click OK to open MSPaint.") = 2 Then Exit
Run("mspaint.exe", "", @SW_MAXIMIZE)
WinWaitActive("Paint", "")
If MsgBox(65, "Magic", "Expand the drawing area so that it covers the whole screen. And keep it maximized.") = 2 Then Exit
If MsgBox(65, "Magic", "Select the pencil.") = 2 Then Exit
If MsgBox(36,"Magic", "Can we start?") = 7 Then Exit
MsgBox(64,  "Magic", "You can stop it at any timen just pressing ESC.")

HotKeySet ("{ESC}", "Quit")
WinActivate("Paint", "")
For $i = 2 To 11
    MagicDraw($i)
    Sleep(1000)
    Send("^+n")
Next

MsgBox(64, "Magic", "Hope you liked it!")
WinKill("Paint", "")

Func MagicDraw($iNumber)
    Local $IncreaseSize = 0.25
    Local $PicSize = 10
    Local $CircleSize = 14
    Switch @DesktopWidth
        Case 1280
            $IncreaseSize = 1
        Case 1024
            $IncreaseSize = 0.72
        Case 800
            $IncreaseSize = 0.5
    EndSwitch
    MouseMove(@DesktopWidth/2,@DesktopHeight/2,0)
    For $R = 1 To 360
        $PicSize += $IncreaseSize
        Local $X = Sin($R * $iNumber) * $PicSize + @DesktopWidth/2
        Local $Y= Cos($R * $iNumber) * $PicSize + @DesktopHeight/2
        MouseDown("left")
        MouseMove($X,$Y,0)
        MouseUp("left")
    Next
EndFunc

Func Quit()
    MouseUp("left")
    Exit
EndFunc

Thanks - really great job.

[ivan]

Neat

Edited August 17, 2006 by ivan

[Skrip]

Great Job!