nWriter

« Older   Newer »
  Share  
nico2960™
CAT_IMG Posted on 5/3/2011, 14:47     +1   -1




nWriter
Version: 1.12

nWriter è un blocco note personalizzabile, così per avere un pò di allegria quando si scrive

*Qualità:
-Possibilità di cambiare font
-Possibilità di cambiare grandezza
-Possibilità di cambiare colore del carattere e dello sfondo

*Aggiornamenti futuri:
-Sto pensando ad un modo per personalizzare altezza e largezza (Fatto: v1.12)

#############
nWriter.au3
nWriter.exe
#############


Edited by nico2960™ - 20/3/2011, 11:15
 
Top
Cale92
CAT_IMG Posted on 5/3/2011, 18:59     +1   -1




ho dato un'occhiata veloce solo al source comunque ti consiglio di mettere un exitloop quando chiudi le gui delle opzioni. comunque bravo per essere il tuo primo programma. la prossima volta prova a fare qualcosa da zero, non sarà facile ma sarà molta di più la soddisfazione XD
 
Top
themetaldrummer
CAT_IMG Posted on 5/3/2011, 21:17     +1   -1




per l'altezza e la larghezza intendi della gui? bè se si fai due inputbox contenute in delle variabili, poi quando devi settarle sulla gui richiami le varibili nella funzione GUICreate()

ma ci credi che volevo farla anche io una cosa simile? ora sono impegnato con una cosa moooolto più complicata
 
Top
The_Jokers
CAT_IMG Posted on 5/3/2011, 21:57     +1   -1




bello
 
Top
nico2960™
CAT_IMG Posted on 6/3/2011, 07:58     +1   -1




CITAZIONE (Cale92 @ 5/3/2011, 18:59) 
ho dato un'occhiata veloce solo al source comunque ti consiglio di mettere un exitloop quando chiudi le gui delle opzioni. comunque bravo per essere il tuo primo programma. la prossima volta prova a fare qualcosa da zero, non sarà facile ma sarà molta di più la soddisfazione XD

inizialmente avevo messo exitloop ma quando andavo a chiudere (per un motivo a me sconosciuto) il primo click nn succedeva nulla e al secondo si chiudeva tutto il programma

CITAZIONE (themetaldrummer @ 5/3/2011, 21:17) 
per l'altezza e la larghezza intendi della gui? bè se si fai due inputbox contenute in delle variabili, poi quando devi settarle sulla gui richiami le varibili nella funzione GUICreate()

più o meno era quello che pensavo... comunque io volevo farlo da programma aperto, dalle opzioni, quindi comunque con riavvio
 
Top
SyntX
CAT_IMG Posted on 11/3/2011, 14:52     +1   -1




CITAZIONE (nico2960™ @ 6/3/2011, 07:58) 
CITAZIONE (Cale92 @ 5/3/2011, 18:59) 
ho dato un'occhiata veloce solo al source comunque ti consiglio di mettere un exitloop quando chiudi le gui delle opzioni. comunque bravo per essere il tuo primo programma. la prossima volta prova a fare qualcosa da zero, non sarà facile ma sarà molta di più la soddisfazione XD

inizialmente avevo messo exitloop ma quando andavo a chiudere (per un motivo a me sconosciuto) il primo click nn succedeva nulla e al secondo si chiudeva tutto il programma

CITAZIONE (themetaldrummer @ 5/3/2011, 21:17) 
per l'altezza e la larghezza intendi della gui? bè se si fai due inputbox contenute in delle variabili, poi quando devi settarle sulla gui richiami le varibili nella funzione GUICreate()

più o meno era quello che pensavo... comunque io volevo farlo da programma aperto, dalle opzioni, quindi comunque con riavvio

Perto che si chiudeva XD Devi mettere prima GuiDelete() e poi ExitLoop :)

EDIT

Vabbe io lo fatto XD Lo posto e dico già che a nessuno deve saltare in mente di dire che ho rubato il source o l'ho copiato. Io solo ho eliminato tutti quei bug e ho migliorato un po il programma. Quindi..SHHHHHH XD Nico se vuoi puoi completare il tuo originale o prendere questo ed aggiungere altre cose che vuoi tu :) Quindi:

nWriter v1.0
Fix:
- Bug Chiusura Finestre (ora le finestre si chiudono bene)
- Colori / Font / Size (ora non serve piu riavviare il programma)
- Default Settings (ora salva le impostazioni in un file.ini usando una funzione migliore di quella di prima)
- Altri piccoli accorgimenti
Aggiunte:
- Controlla se ce un file settings di default se no manda una msgbox
SOURCE:
SPOILER (click to view)
#NoTrayIcon
#include <buttonconstants.au3>
#include <guiconstantsex.au3>
#include <windowsconstants.au3>
#include <editconstants.au3>
#include <staticconstants.au3>
#include <comboconstants.au3>
#include <file.au3>

Global $version="0.9"
Global $dir=@AppDataDir&"\nWriter"

;Base
If Not FileExists($dir&"\banner.jpg") Then
FileInstall("C:\Users\Nicolò\Documents\AutoIt\progetti\writer\banner.jpg",$dir&"\banner.jpg")
EndIf

;Gui
$GUI=GUICreate("nWriter",700,500)
$menu=GUICtrlCreateMenu("File")
$apri=GUICtrlCreateMenuItem("Apri",$menu)
$salva=GUICtrlCreateMenuItem("Salva",$menu)
$esci=GUICtrlCreateMenuItem("Esci",$menu)
$opzioni=GUICtrlCreateMenu("Opzioni")
$colore=GUICtrlCreateMenuItem("Colore",$opzioni)
$carattere=GUICtrlCreateMenuItem("Carattere",$opzioni)
$ab=GUICtrlCreateMenu("?")
$about=GUICtrlCreateMenuItem("About",$ab)

;Edit
$edit=GUICtrlCreateEdit("",0,100,700,380)
Global $font=IniRead (@ScriptDir&"/Settings.ini", "", "FontStyle", "")
Global $fontcolor=IniRead (@ScriptDir&"/Settings.ini", "", "Color", "")
Global $size=IniRead (@ScriptDir&"/Settings.ini", "", "FontSize", "")
Global $editcolor=IniRead (@ScriptDir&"/Settings.ini", "", "BackGroundColor", "")
GUICtrlSetFont($edit,$size,400,1,$font)
GUICtrlSetBkColor($edit,$editcolor)
GUICtrlSetColor($edit,$fontcolor)
GUICtrlCreatePic($dir&"\banner.jpg",0,0,700,100)
GUISetState(@SW_SHOW,$GUI)

If Not FileExists (@ScriptDir&"/Settings.ini") Then
MsgBox (16, "nWriter", "File configurazioni base non esistente. Impostare il programma.")
EndIf

;######################################################################################################

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $esci
Exit
Case $apri
Apri()
Case $salva
Salva()
Case $colore
Colore()
Case $carattere
Carattere()
Case $about
About()
EndSwitch
WEnd

Func Apri()
$domandafile=FileOpenDialog("Seleziona un file di testo",@DesktopDir,"File di testo (*.txt)|Tutti i file (*.*)")
$aprifile=FileRead($domandafile)
GUICtrlSetData($edit,$aprifile)
EndFunc

Func Salva()
$salvafile=FileSaveDialog("Salva il file",@DesktopDir,"File di testo (*.txt)")
FileWrite($salvafile&".txt",GUICtrlRead($edit))
EndFunc

Func Colore()
#Region ### START Koda GUI section ### Form=
Global $guisetcolori = GUICreate("Colore", 266, 217, 254, 124)
$Group1 = GUICtrlCreateGroup("Colore Carattere", 8, 8, 249, 97)
$Button1 = GUICtrlCreateButton("", 16, 24, 33, 33)
GUICtrlSetBkColor(-1, 0x000000)
$Button2 = GUICtrlCreateButton("", 56, 64, 33, 33)
GUICtrlSetBkColor(-1, 0x0000FF)
$Button3 = GUICtrlCreateButton("", 96, 24, 33, 33)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Button4 = GUICtrlCreateButton("", 176, 24, 33, 33)
GUICtrlSetBkColor(-1, 0xFFA500)
$Button5 = GUICtrlCreateButton("", 136, 24, 33, 33)
GUICtrlSetBkColor(-1, 0xFFFF00)
$Button6 = GUICtrlCreateButton("", 216, 24, 33, 33)
GUICtrlSetBkColor(-1, 0xFF0000)
$Button7 = GUICtrlCreateButton("", 16, 64, 33, 33)
GUICtrlSetBkColor(-1, 0x800080)
$Button8 = GUICtrlCreateButton("", 56, 24, 33, 33)
GUICtrlSetBkColor(-1, 0x808080)
$Button9 = GUICtrlCreateButton("", 96, 64, 33, 33)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$Button10 = GUICtrlCreateButton("", 136, 64, 33, 33)
GUICtrlSetBkColor(-1, 0x00FF00)
$Button11 = GUICtrlCreateButton("", 176, 64, 33, 33)
GUICtrlSetBkColor(-1, 0x008000)
$Button12 = GUICtrlCreateButton("", 216, 64, 33, 33)
GUICtrlSetBkColor(-1, 0x800000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Colore Sfondo", 8, 112, 249, 97)
$Button13 = GUICtrlCreateButton("", 16, 128, 33, 33)
GUICtrlSetBkColor(-1, 0x000000)
$Button14 = GUICtrlCreateButton("", 56, 128, 33, 33)
GUICtrlSetBkColor(-1, 0x808080)
$Button15 = GUICtrlCreateButton("", 96, 128, 33, 33)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Button16 = GUICtrlCreateButton("", 136, 128, 33, 33)
GUICtrlSetBkColor(-1, 0xFFFF00)
$Button17 = GUICtrlCreateButton("", 176, 128, 33, 33)
GUICtrlSetBkColor(-1, 0xFFA500)
$Button18 = GUICtrlCreateButton("", 216, 128, 33, 33)
GUICtrlSetBkColor(-1, 0xFF0000)
$Button19 = GUICtrlCreateButton("", 16, 168, 33, 33)
GUICtrlSetBkColor(-1, 0x800080)
$Button20 = GUICtrlCreateButton("", 56, 168, 33, 33)
GUICtrlSetBkColor(-1, 0x0000FF)
$Button21 = GUICtrlCreateButton("", 96, 168, 33, 33)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$Button22 = GUICtrlCreateButton("", 136, 168, 33, 33)
GUICtrlSetBkColor(-1, 0x00FF00)
$Button23 = GUICtrlCreateButton("", 176, 168, 33, 33)
GUICtrlSetBkColor(-1, 0x008000)
$Button24 = GUICtrlCreateButton("", 216, 168, 33, 33)
GUICtrlSetBkColor(-1, 0x800000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState()
#EndRegion ### END Koda GUI section ###

While 1
$nMsg2 = GUIGetMsg()
Switch $nMsg2
Case $GUI_EVENT_CLOSE
GUIDelete($guisetcolori)
ExitLoop
Case $Button1
IniWrite (@ScriptDir&"/Settings.ini", "", "Color", "0x000000")
GUICtrlSetColor ($edit, 0x000000)
GUIDelete($guisetcolori)
ExitLoop
Case $Button2
IniWrite (@ScriptDir&"/Settings.ini", "", "Color", "0x0000FF")
GUICtrlSetColor ($edit, 0x0000FF)
GUIDelete($guisetcolori)
ExitLoop
Case $Button3
IniWrite (@ScriptDir&"/Settings.ini", "", "Color", "0xFFFFFF")
GUICtrlSetColor ($edit, 0xFFFFFF)
GUIDelete($guisetcolori)
ExitLoop
Case $Button4
IniWrite (@ScriptDir&"/Settings.ini", "", "Color", "0xFFA500")
GUICtrlSetColor ($edit, 0xFFA500)
GUIDelete($guisetcolori)
ExitLoop
Case $Button5
IniWrite (@ScriptDir&"/Settings.ini", "", "Color", "0xFFFF00")
GUICtrlSetColor ($edit, 0xFFFF00)
GUIDelete($guisetcolori)
ExitLoop
Case $Button6
IniWrite (@ScriptDir&"/Settings.ini", "", "Color", "0xFF0000")
GUICtrlSetColor ($edit, 0xFF0000)
GUIDelete($guisetcolori)
ExitLoop
Case $Button7
IniWrite (@ScriptDir&"/Settings.ini", "", "Color", "0x800080")
GUICtrlSetColor ($edit, 0x800080)
GUIDelete($guisetcolori)
ExitLoop
Case $Button8
IniWrite (@ScriptDir&"/Settings.ini", "", "Color", "0x808080")
GUICtrlSetColor ($edit, 0x808080)
GUIDelete($guisetcolori)
ExitLoop
Case $Button9
IniWrite (@ScriptDir&"/Settings.ini", "", "Color", "0xA6CAF0")
GUICtrlSetColor ($edit, 0xA6CAF0)
GUIDelete($guisetcolori)
ExitLoop
Case $Button10
IniWrite (@ScriptDir&"/Settings.ini", "", "Color", "0x00FF00")
GUICtrlSetColor ($edit, 0x00FF00)
GUIDelete($guisetcolori)
ExitLoop
Case $Button11
IniWrite (@ScriptDir&"/Settings.ini", "", "Color", "0x008000")
GUICtrlSetColor ($edit, 0x008000)
GUIDelete($guisetcolori)
ExitLoop
Case $Button12
IniWrite (@ScriptDir&"/Settings.ini", "", "Color", "0x800000")
GUICtrlSetColor ($edit, 0x800000)
GUIDelete($guisetcolori)
ExitLoop
Case $Button13
IniWrite (@ScriptDir&"/Settings.ini", "", "BackGroundColor", "0x000000")
GUICtrlSetBkColor ($edit, 0x000000)
GUIDelete($guisetcolori)
ExitLoop
Case $Button14
IniWrite (@ScriptDir&"/Settings.ini", "", "BackGroundColor", "0x808080")
GUICtrlSetBkColor ($edit, 0x808080)
GUIDelete($guisetcolori)
ExitLoop
Case $Button15
IniWrite (@ScriptDir&"/Settings.ini", "", "BackGroundColor", "0xFFFFFF")
GUICtrlSetBkColor ($edit, 0xFFFFFF)
GUIDelete($guisetcolori)
ExitLoop
Case $Button16
IniWrite (@ScriptDir&"/Settings.ini", "", "BackGroundColor", "0xFFFF00")
GUICtrlSetBkColor ($edit, 0xFFFF00)
GUIDelete($guisetcolori)
ExitLoop
Case $Button17
IniWrite (@ScriptDir&"/Settings.ini", "", "BackGroundColor", "0xFFA500")
GUICtrlSetBkColor ($edit, 0xFFA500)
GUIDelete($guisetcolori)
ExitLoop
Case $Button18
IniWrite (@ScriptDir&"/Settings.ini", "", "BackGroundColor", "0xFF0000")
GUICtrlSetBkColor ($edit, 0xFF0000)
GUIDelete($guisetcolori)
ExitLoop
Case $Button19
IniWrite (@ScriptDir&"/Settings.ini", "", "BackGroundColor", "0x800080")
GUICtrlSetBkColor ($edit, 0x800080)
GUIDelete($guisetcolori)
ExitLoop
Case $Button20
IniWrite (@ScriptDir&"/Settings.ini", "", "BackGroundColor", "0x0000FF")
GUICtrlSetBkColor ($edit, 0x0000FF)
GUIDelete($guisetcolori)
ExitLoop
Case $Button21
IniWrite (@ScriptDir&"/Settings.ini", "", "BackGroundColor", "0xA6CAF0")
GUICtrlSetBkColor ($edit, 0xA6CAF0)
GUIDelete($guisetcolori)
ExitLoop
Case $Button22
IniWrite (@ScriptDir&"/Settings.ini", "", "BackGroundColor", "0x00FF00")
GUICtrlSetBkColor ($edit, 0x00FF00)
GUIDelete($guisetcolori)
ExitLoop
Case $Button23
IniWrite (@ScriptDir&"/Settings.ini", "", "BackGroundColor", "0x008000")
GUICtrlSetBkColor ($edit, 0x008000)
GUIDelete($guisetcolori)
ExitLoop
Case $Button24
IniWrite (@ScriptDir&"/Settings.ini", "", "BackGroundColor", "0x800000")
GUICtrlSetBkColor ($edit, 0x800000)
GUIDelete($guisetcolori)
ExitLoop
EndSwitch
WEnd
EndFunc

Func Carattere()
#Region ### START Koda GUI section ### Form=
Global $guisetcarattere = GUICreate("Carattere", 218, 59, 252, 122)
Global $combofont = GUICtrlCreateCombo("Lucida Console", 8, 8, 201, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$ctrlcombofont=GUICtrlSetData(-1, "Arial|Calibri|Comic Sans MS|Lucida Console|Times New Roman")
Global $combosize = GUICtrlCreateCombo("12", 8, 32, 81, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$ctrlcombosize=GUICtrlSetData(-1, "8|10|12|14|16|20|24")
$applica = GUICtrlCreateButton("Applica", 120, 32, 89, 17)
GUISetState()
#EndRegion ### END Koda GUI section ###

While 1
$nMsg3 = GUIGetMsg()
Switch $nMsg3
Case $GUI_EVENT_CLOSE
GUIDelete()
ExitLoop
Case $applica
Applica()
GUIDelete()
ExitLoop
EndSwitch
WEnd
EndFunc

Func Applica()
$fontappl=GUICtrlRead($combofont)
$sizeappl=GUICtrlRead($combosize)
IniWrite (@ScriptDir&"/Settings.ini", "", "FontSize", $sizeappl)
IniWrite (@ScriptDir&"/Settings.ini", "", "FontStyle", $fontappl)
GUICtrlSetFont ($edit,$sizeappl,400,1,$fontappl)
EndFunc

Func About()
MsgBox(0,"About","nWriter v"&$version&@CRLF&"by nico2960"&@CRLF&"nico2960.altervista.org")
EndFunc


Ora puoi ampliare il tuo programma XD Ciauuu



Edited by SyntX - 11/3/2011, 15:58
 
Top
xMasteRx
CAT_IMG Posted on 11/3/2011, 23:17     +1   -1




se scrivi qualcosa nel input, poi fai apri e fai Cancel si cancella il testo...
metti un If Not @error Then ...procedura normale ... EndIf appena dopo il FileOpenDialog()
e poi metti come colore default il bianco... xD
e metti il file Settings.ini in @TempDir... è piu elegante xD
 
Top
nico2960™
CAT_IMG Posted on 12/3/2011, 17:05     +1   -1




CITAZIONE (SyntX @ 11/3/2011, 14:52)
CITAZIONE (nico2960™ @ 6/3/2011, 07:58) 
CITAZIONE (Cale92 @ 5/3/2011, 18:59) 
ho dato un'occhiata veloce solo al source comunque ti consiglio di mettere un exitloop quando chiudi le gui delle opzioni. comunque bravo per essere il tuo primo programma. la prossima volta prova a fare qualcosa da zero, non sarà facile ma sarà molta di più la soddisfazione XD

inizialmente avevo messo exitloop ma quando andavo a chiudere (per un motivo a me sconosciuto) il primo click nn succedeva nulla e al secondo si chiudeva tutto il programma

CITAZIONE (themetaldrummer @ 5/3/2011, 21:17) 
per l'altezza e la larghezza intendi della gui? bè se si fai due inputbox contenute in delle variabili, poi quando devi settarle sulla gui richiami le varibili nella funzione GUICreate()

più o meno era quello che pensavo... comunque io volevo farlo da programma aperto, dalle opzioni, quindi comunque con riavvio

Perto che si chiudeva XD Devi mettere prima GuiDelete() e poi ExitLoop :)

EDIT

Vabbe io lo fatto XD Lo posto e dico già che a nessuno deve saltare in mente di dire che ho rubato il source o l'ho copiato. Io solo ho eliminato tutti quei bug e ho migliorato un po il programma. Quindi..SHHHHHH XD Nico se vuoi puoi completare il tuo originale o prendere questo ed aggiungere altre cose che vuoi tu :) Quindi:

nWriter v1.0
Fix:
- Bug Chiusura Finestre (ora le finestre si chiudono bene)
- Colori / Font / Size (ora non serve piu riavviare il programma)
- Default Settings (ora salva le impostazioni in un file.ini usando una funzione migliore di quella di prima)
- Altri piccoli accorgimenti
Aggiunte:
- Controlla se ce un file settings di default se no manda una msgbox
SOURCE:
SPOILER (click to view)
#NoTrayIcon
#include <buttonconstants.au3>
#include <guiconstantsex.au3>
#include <windowsconstants.au3>
#include <editconstants.au3>
#include <staticconstants.au3>
#include <comboconstants.au3>
#include <file.au3>

Global $version="0.9"
Global $dir=@AppDataDir&"\nWriter"

;Base
If Not FileExists($dir&"\banner.jpg") Then
FileInstall("C:\Users\Nicolò\Documents\AutoIt\progetti\writer\banner.jpg",$dir&"\banner.jpg")
EndIf

;Gui
$GUI=GUICreate("nWriter",700,500)
$menu=GUICtrlCreateMenu("File")
$apri=GUICtrlCreateMenuItem("Apri",$menu)
$salva=GUICtrlCreateMenuItem("Salva",$menu)
$esci=GUICtrlCreateMenuItem("Esci",$menu)
$opzioni=GUICtrlCreateMenu("Opzioni")
$colore=GUICtrlCreateMenuItem("Colore",$opzioni)
$carattere=GUICtrlCreateMenuItem("Carattere",$opzioni)
$ab=GUICtrlCreateMenu("?")
$about=GUICtrlCreateMenuItem("About",$ab)

;Edit
$edit=GUICtrlCreateEdit("",0,100,700,380)
Global $font=IniRead (@ScriptDir&"/Settings.ini", "", "FontStyle", "")
Global $fontcolor=IniRead (@ScriptDir&"/Settings.ini", "", "Color", "")
Global $size=IniRead (@ScriptDir&"/Settings.ini", "", "FontSize", "")
Global $editcolor=IniRead (@ScriptDir&"/Settings.ini", "", "BackGroundColor", "")
GUICtrlSetFont($edit,$size,400,1,$font)
GUICtrlSetBkColor($edit,$editcolor)
GUICtrlSetColor($edit,$fontcolor)
GUICtrlCreatePic($dir&"\banner.jpg",0,0,700,100)
GUISetState(@SW_SHOW,$GUI)

If Not FileExists (@ScriptDir&"/Settings.ini") Then
MsgBox (16, "nWriter", "File configurazioni base non esistente. Impostare il programma.")
EndIf

;######################################################################################################

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $esci
Exit
Case $apri
Apri()
Case $salva
Salva()
Case $colore
Colore()
Case $carattere
Carattere()
Case $about
About()
EndSwitch
WEnd

Func Apri()
$domandafile=FileOpenDialog("Seleziona un file di testo",@DesktopDir,"File di testo (*.txt)|Tutti i file (*.*)")
$aprifile=FileRead($domandafile)
GUICtrlSetData($edit,$aprifile)
EndFunc

Func Salva()
$salvafile=FileSaveDialog("Salva il file",@DesktopDir,"File di testo (*.txt)")
FileWrite($salvafile&".txt",GUICtrlRead($edit))
EndFunc

Func Colore()
#Region ### START Koda GUI section ### Form=
Global $guisetcolori = GUICreate("Colore", 266, 217, 254, 124)
$Group1 = GUICtrlCreateGroup("Colore Carattere", 8, 8, 249, 97)
$Button1 = GUICtrlCreateButton("", 16, 24, 33, 33)
GUICtrlSetBkColor(-1, 0x000000)
$Button2 = GUICtrlCreateButton("", 56, 64, 33, 33)
GUICtrlSetBkColor(-1, 0x0000FF)
$Button3 = GUICtrlCreateButton("", 96, 24, 33, 33)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Button4 = GUICtrlCreateButton("", 176, 24, 33, 33)
GUICtrlSetBkColor(-1, 0xFFA500)
$Button5 = GUICtrlCreateButton("", 136, 24, 33, 33)
GUICtrlSetBkColor(-1, 0xFFFF00)
$Button6 = GUICtrlCreateButton("", 216, 24, 33, 33)
GUICtrlSetBkColor(-1, 0xFF0000)
$Button7 = GUICtrlCreateButton("", 16, 64, 33, 33)
GUICtrlSetBkColor(-1, 0x800080)
$Button8 = GUICtrlCreateButton("", 56, 24, 33, 33)
GUICtrlSetBkColor(-1, 0x808080)
$Button9 = GUICtrlCreateButton("", 96, 64, 33, 33)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$Button10 = GUICtrlCreateButton("", 136, 64, 33, 33)
GUICtrlSetBkColor(-1, 0x00FF00)
$Button11 = GUICtrlCreateButton("", 176, 64, 33, 33)
GUICtrlSetBkColor(-1, 0x008000)
$Button12 = GUICtrlCreateButton("", 216, 64, 33, 33)
GUICtrlSetBkColor(-1, 0x800000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Colore Sfondo", 8, 112, 249, 97)
$Button13 = GUICtrlCreateButton("", 16, 128, 33, 33)
GUICtrlSetBkColor(-1, 0x000000)
$Button14 = GUICtrlCreateButton("", 56, 128, 33, 33)
GUICtrlSetBkColor(-1, 0x808080)
$Button15 = GUICtrlCreateButton("", 96, 128, 33, 33)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Button16 = GUICtrlCreateButton("", 136, 128, 33, 33)
GUICtrlSetBkColor(-1, 0xFFFF00)
$Button17 = GUICtrlCreateButton("", 176, 128, 33, 33)
GUICtrlSetBkColor(-1, 0xFFA500)
$Button18 = GUICtrlCreateButton("", 216, 128, 33, 33)
GUICtrlSetBkColor(-1, 0xFF0000)
$Button19 = GUICtrlCreateButton("", 16, 168, 33, 33)
GUICtrlSetBkColor(-1, 0x800080)
$Button20 = GUICtrlCreateButton("", 56, 168, 33, 33)
GUICtrlSetBkColor(-1, 0x0000FF)
$Button21 = GUICtrlCreateButton("", 96, 168, 33, 33)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$Button22 = GUICtrlCreateButton("", 136, 168, 33, 33)
GUICtrlSetBkColor(-1, 0x00FF00)
$Button23 = GUICtrlCreateButton("", 176, 168, 33, 33)
GUICtrlSetBkColor(-1, 0x008000)
$Button24 = GUICtrlCreateButton("", 216, 168, 33, 33)
GUICtrlSetBkColor(-1, 0x800000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState()
#EndRegion ### END Koda GUI section ###

While 1
$nMsg2 = GUIGetMsg()
Switch $nMsg2
Case $GUI_EVENT_CLOSE
GUIDelete($guisetcolori)
ExitLoop
Case $Button1
IniWrite (@ScriptDir&"/Settings.ini", "", "Color", "0x000000")
GUICtrlSetColor ($edit, 0x000000)
GUIDelete($guisetcolori)
ExitLoop
Case $Button2
IniWrite (@ScriptDir&"/Settings.ini", "", "Color", "0x0000FF")
GUICtrlSetColor ($edit, 0x0000FF)
GUIDelete($guisetcolori)
ExitLoop
Case $Button3
IniWrite (@ScriptDir&"/Settings.ini", "", "Color", "0xFFFFFF")
GUICtrlSetColor ($edit, 0xFFFFFF)
GUIDelete($guisetcolori)
ExitLoop
Case $Button4
IniWrite (@ScriptDir&"/Settings.ini", "", "Color", "0xFFA500")
GUICtrlSetColor ($edit, 0xFFA500)
GUIDelete($guisetcolori)
ExitLoop
Case $Button5
IniWrite (@ScriptDir&"/Settings.ini", "", "Color", "0xFFFF00")
GUICtrlSetColor ($edit, 0xFFFF00)
GUIDelete($guisetcolori)
ExitLoop
Case $Button6
IniWrite (@ScriptDir&"/Settings.ini", "", "Color", "0xFF0000")
GUICtrlSetColor ($edit, 0xFF0000)
GUIDelete($guisetcolori)
ExitLoop
Case $Button7
IniWrite (@ScriptDir&"/Settings.ini", "", "Color", "0x800080")
GUICtrlSetColor ($edit, 0x800080)
GUIDelete($guisetcolori)
ExitLoop
Case $Button8
IniWrite (@ScriptDir&"/Settings.ini", "", "Color", "0x808080")
GUICtrlSetColor ($edit, 0x808080)
GUIDelete($guisetcolori)
ExitLoop
Case $Button9
IniWrite (@ScriptDir&"/Settings.ini", "", "Color", "0xA6CAF0")
GUICtrlSetColor ($edit, 0xA6CAF0)
GUIDelete($guisetcolori)
ExitLoop
Case $Button10
IniWrite (@ScriptDir&"/Settings.ini", "", "Color", "0x00FF00")
GUICtrlSetColor ($edit, 0x00FF00)
GUIDelete($guisetcolori)
ExitLoop
Case $Button11
IniWrite (@ScriptDir&"/Settings.ini", "", "Color", "0x008000")
GUICtrlSetColor ($edit, 0x008000)
GUIDelete($guisetcolori)
ExitLoop
Case $Button12
IniWrite (@ScriptDir&"/Settings.ini", "", "Color", "0x800000")
GUICtrlSetColor ($edit, 0x800000)
GUIDelete($guisetcolori)
ExitLoop
Case $Button13
IniWrite (@ScriptDir&"/Settings.ini", "", "BackGroundColor", "0x000000")
GUICtrlSetBkColor ($edit, 0x000000)
GUIDelete($guisetcolori)
ExitLoop
Case $Button14
IniWrite (@ScriptDir&"/Settings.ini", "", "BackGroundColor", "0x808080")
GUICtrlSetBkColor ($edit, 0x808080)
GUIDelete($guisetcolori)
ExitLoop
Case $Button15
IniWrite (@ScriptDir&"/Settings.ini", "", "BackGroundColor", "0xFFFFFF")
GUICtrlSetBkColor ($edit, 0xFFFFFF)
GUIDelete($guisetcolori)
ExitLoop
Case $Button16
IniWrite (@ScriptDir&"/Settings.ini", "", "BackGroundColor", "0xFFFF00")
GUICtrlSetBkColor ($edit, 0xFFFF00)
GUIDelete($guisetcolori)
ExitLoop
Case $Button17
IniWrite (@ScriptDir&"/Settings.ini", "", "BackGroundColor", "0xFFA500")
GUICtrlSetBkColor ($edit, 0xFFA500)
GUIDelete($guisetcolori)
ExitLoop
Case $Button18
IniWrite (@ScriptDir&"/Settings.ini", "", "BackGroundColor", "0xFF0000")
GUICtrlSetBkColor ($edit, 0xFF0000)
GUIDelete($guisetcolori)
ExitLoop
Case $Button19
IniWrite (@ScriptDir&"/Settings.ini", "", "BackGroundColor", "0x800080")
GUICtrlSetBkColor ($edit, 0x800080)
GUIDelete($guisetcolori)
ExitLoop
Case $Button20
IniWrite (@ScriptDir&"/Settings.ini", "", "BackGroundColor", "0x0000FF")
GUICtrlSetBkColor ($edit, 0x0000FF)
GUIDelete($guisetcolori)
ExitLoop
Case $Button21
IniWrite (@ScriptDir&"/Settings.ini", "", "BackGroundColor", "0xA6CAF0")
GUICtrlSetBkColor ($edit, 0xA6CAF0)
GUIDelete($guisetcolori)
ExitLoop
Case $Button22
IniWrite (@ScriptDir&"/Settings.ini", "", "BackGroundColor", "0x00FF00")
GUICtrlSetBkColor ($edit, 0x00FF00)
GUIDelete($guisetcolori)
ExitLoop
Case $Button23
IniWrite (@ScriptDir&"/Settings.ini", "", "BackGroundColor", "0x008000")
GUICtrlSetBkColor ($edit, 0x008000)
GUIDelete($guisetcolori)
ExitLoop
Case $Button24
IniWrite (@ScriptDir&"/Settings.ini", "", "BackGroundColor", "0x800000")
GUICtrlSetBkColor ($edit, 0x800000)
GUIDelete($guisetcolori)
ExitLoop
EndSwitch
WEnd
EndFunc

Func Carattere()
#Region ### START Koda GUI section ### Form=
Global $guisetcarattere = GUICreate("Carattere", 218, 59, 252, 122)
Global $combofont = GUICtrlCreateCombo("Lucida Console", 8, 8, 201, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$ctrlcombofont=GUICtrlSetData(-1, "Arial|Calibri|Comic Sans MS|Lucida Console|Times New Roman")
Global $combosize = GUICtrlCreateCombo("12", 8, 32, 81, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$ctrlcombosize=GUICtrlSetData(-1, "8|10|12|14|16|20|24")
$applica = GUICtrlCreateButton("Applica", 120, 32, 89, 17)
GUISetState()
#EndRegion ### END Koda GUI section ###

While 1
$nMsg3 = GUIGetMsg()
Switch $nMsg3
Case $GUI_EVENT_CLOSE
GUIDelete()
ExitLoop
Case $applica
Applica()
GUIDelete()
ExitLoop
EndSwitch
WEnd
EndFunc

Func Applica()
$fontappl=GUICtrlRead($combofont)
$sizeappl=GUICtrlRead($combosize)
IniWrite (@ScriptDir&"/Settings.ini", "", "FontSize", $sizeappl)
IniWrite (@ScriptDir&"/Settings.ini", "", "FontStyle", $fontappl)
GUICtrlSetFont ($edit,$sizeappl,400,1,$fontappl)
EndFunc

Func About()
MsgBox(0,"About","nWriter v"&$version&@CRLF&"by nico2960"&@CRLF&"nico2960.altervista.org")
EndFunc


Ora puoi ampliare il tuo programma XD Ciauuu

Grazie dei suggerimenti ;)

CITAZIONE (xMasteRx @ 11/3/2011, 23:17)
se scrivi qualcosa nel input, poi fai apri e fai Cancel si cancella il testo...
metti un If Not @error Then ...procedura normale ... EndIf appena dopo il FileOpenDialog()

fatto

CITAZIONE (xMasteRx @ 11/3/2011, 23:17)
e poi metti come colore default il bianco... xD

fatto
 
Top
qwerty2
CAT_IMG Posted on 22/3/2011, 15:52     +1   -1




buon programma più serio di altri simili che si vedono in giro
 
Top
8 replies since 5/3/2011, 14:47   315 views
  Share  
 

Programmi
 

Create your forum and your blog! · Top Forum · Categories · Help · Status · Contacts · Powered by ForumCommunity