Code : Tout sélectionner
; Includes
#include <String.au3>
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <File.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#include <Array.au3>
#include <GuiListView.au3>
; Gui Conception
$Fenetre = GUICreate("Cards Creator",280,300)
$Card_List = GUICtrlCreateListView("ID|Name|Type",0,0,150,300)
GUICtrlCreateLabel("Nom de la carte",160,5)
$Input_name = GUICtrlCreateInput("Nom",160,25,100,25)
GUICtrlCreateLabel("Force",160,55)
$Input_force = GUICtrlCreateInput(0,160,75,100,25)
GUICtrlCreateLabel("Defense",160,105)
$Input_defense = GUICtrlCreateInput(0,160,125,100,25)
$Image = GUICtrlCreatePic("",160,155,100,100,$WS_EX_LAYOUTRTL+$SS_NOTIFY)
$Ajouter = GUICtrlCreateButton("Ajouter",160,260)
$Modifier = GUICtrlCreateButton("Modifier",215,260)
; Picture Gui
$Fenetre_pos = WinGetPos ( "Cards Creator")
$Fenetre_img = GUICreate("Cards Picture",200,300,$Fenetre_pos[0]+$Fenetre_pos[2]+25,$Fenetre_pos[1],0,-1,$Fenetre)
$Project_name = GUICtrlCreateInput("Nom du projet",5,5,185)
$validerprojet = GUICtrlCreateButton("Ouvrir...",75,27)
$Pictures_list = GUICtrlCreateListView("Nom",5,55,185,190)
$validerpic = GUICtrlCreateButton("Valider",78, 247)
GUISetState(@SW_SHOW,$Fenetre)
; Boucle (Deroulement)
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $Image
GUISetState(@SW_SHOW,$Fenetre_img)
Case $validerprojet
Global $Find_Pictures = _FileListToArray("C:\Users\"&@UserName&"\Documents\RPGVXAce\"&GUICtrlRead($Project_name)&"\Graphics\Cards")
If @error == 1 Then
MsgBox(0,"Erreur","Le chemin :"&@LF&"C:\Users\"&@UserName&"\Documents\RPGVXAce\"&GUICtrlRead($Project_name)&"\Graphics\Cards"&@LF& _
"est introuvable")
ElseIf @error == 4 Then
MsgBox(0,"Erreur","Aucune Image trouvée")
Else
For $Picture In $Find_Pictures
GUICtrlCreateListViewItem($Picture,$Pictures_list)
Next
_GUICtrlListView_DeleteItem($Pictures_list, 0)
EndIf
Case $validerpic
$CC_Pic_Index = _GUICtrlListView_GetSelectedIndices($Pictures_list, True)
$CC_Pic = _GUICtrlListView_GetItemText($Pictures_list, $CC_Pic_Index[1])
CreatImage("C:\Users\"&@UserName&"\Documents\RPGVXAce\"&GUICtrlRead($Project_name)&"\Graphics\Cards\"&$CC_Pic,$Fenetre)
GUISetState(@SW_HIDE,$Fenetre_img)
EndSwitch
WEnd
; Functions
Func CreatImage($chemin,$hGUI)
Local $hImage, $hGraphic
_GDIPlus_Startup()
$hImage = _GDIPlus_ImageLoadFromFile($chemin)
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGUI)
_GDIPlus_GraphicsDrawImage($hGraphic, $hImage, 160, 155)
EndFunc
Func CreatHash()
Return "{}"
EndFunc
Func AddHash($hash, $symbol, $data)
Return _StringInsert($hash, $symbol&" => "&$data&",", -1)
EndFunc
Func DeletHash($hash, $symbol)
Return StringRegExpReplace( $hash, $symbol&"\s=>\s(.*?),", "")
EndFunc
