Firma.au3

#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.6.1
Author: Sora2000
#ce ----------------------------------------------------------------------------
#include-once ; me ne ero dimenticato XD
#include <gdiplus.au3>
#include <guiconstantsex.au3>
#include <windowsconstants.au3>



Func About($TITLE_PROGRAMMA,$AUTORE,$DESCRIZIONE,$VER,$X,$Y)
Global $Grafico,$Form1
$Form12 = GUICreate("About", 485, 251,$X, $Y,BitOR($WS_MINIMIZEBOX,$WS_POPUP,$WS_GROUP), $WS_EX_LAYERED)
GUICtrlCreatePic("", 0, 0, 485, 251)
GUICtrlSetState(-1, 128)
Switch @OSVersion
Case "Win_XP"
GUICtrlSetBkColor(-1, 0)
GUISetBkColor(0)
Case "WIN_7" Or @OSVersion="WIN_VISTA"
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUISetBkColor(0xFFFFFF)
EndSwitch
GUISetState(@SW_SHOW)
_GDIPlus_Startup()
$Grafico=_GDIPlus_GraphicsCreateFromHWND ($Form12)

$Penna=_GDIPlus_PenCreate()

_GDIPlus_PenSetWidth($Penna,20)

For $i=0 to 240 step 1
Sleep(0.8)
_GDIPlus_GraphicsDrawLine($Grafico,36,0, 36, $i, $Penna)
_GDIPlus_GraphicsDrawLine($Grafico,75,0, 75, $i, $Penna)
_GDIPlus_PenSetColor($Penna,0xAF00C200)
Next


For $a=11 to 500 Step 1
Sleep(0.8)
_GDIPlus_GraphicsDrawLine($Grafico,$a, 214,11,214, $Penna)
_GDIPlus_GraphicsDrawLine($Grafico,$a+50, 214-40,11,214-40, $Penna)
Next
$Penna2=_GDIPlus_PenCreate()
_GDIPlus_PenSetWidth($Penna2,150)


For $AE=481 to 94 step -1
Sleep(0.8)
_GDIPlus_GraphicsDrawLine($Grafico,$AE,80,481,80, $Penna2)
Next

$hBrush = _GDIPlus_BrushCreateSolid (0x9FFF0000) ;COLORE AUTORE
$hBrush1 = _GDIPlus_BrushCreateSolid (0x90000000) ;COLORE VERSIONE
$hBrush2 = _GDIPlus_BrushCreateSolid (0xFFFFFFFF) ;COLORE Descrizione
$hFormat = _GDIPlus_StringFormatCreate ()
$hFamily = _GDIPlus_FontFamilyCreate ("Courier New")
$hFont = _GDIPlus_FontCreate ($hFamily, 16, 3)
$hFont1 = _GDIPlus_FontCreate ($hFamily, 8)
$hFont2 = _GDIPlus_FontCreate ($hFamily, 12, 3)
$tLayout = _GDIPlus_RectFCreate (80, 180, 500, 30)
$tLayout1 = _GDIPlus_RectFCreate (172,17, 600, 30)
$tLayout2 = _GDIPlus_RectFCreate (390,234, 100, 40)
$tLayout3 = _GDIPlus_RectFCreate (112,46, 500, 100)
_GDIPlus_GraphicsDrawStringEx ($Grafico, "Programma Creato da "&$AUTORE, $hFont, $tLayout, $hFormat, $hBrush)
_GDIPlus_GraphicsDrawStringEx ($Grafico, $TITLE_PROGRAMMA, $hFont, $tLayout1, $hFormat, $hBrush)
_GDIPlus_GraphicsDrawStringEx ($Grafico, "Versione "&$VER, $hFont1, $tLayout2, $hFormat, $hBrush1)
_GDIPlus_GraphicsDrawStringEx ($Grafico, $DESCRIZIONE, $hFont2, $tLayout3, $hFormat, $hBrush2)

do
Until GUIGetMsg($Form12)=$GUI_EVENT_CLOSE
GUIDelete($Form12)
EndFunc

About("Titolo del programma creato","Autore","Descrizione Programma","Versione",$X,$Y)