SpiffyTek
/
SMACheck
Archived
1
0
Fork 0

Added "Paste from Clipboard" option to GUI

This commit is contained in:
MadMakz 2013-01-24 12:00:39 +01:00
parent e9b16cba25
commit b3d7adddad
3 changed files with 14 additions and 1 deletions

View File

@ -14,7 +14,7 @@
;#AutoIt3Wrapper_Res_ProductVersion=x.x.x.x ; Broken, use #AutoIt3Wrapper_Res_Field=ProductVersion|x.x.x as workarround.
#AutoIt3Wrapper_Res_Field=ProductVersion|Freeware
#AutoIt3Wrapper_Res_Fileversion=1.1.2.94
#AutoIt3Wrapper_Res_Fileversion=1.1.2.95
#AutoIt3Wrapper_Res_FileVersion_AutoIncrement=N ;(Y/N/P) AutoIncrement FileVersion After Aut2EXE is finished. default=N. P=Prompt, Will ask at Compilation time if you want to increase the versionnumber
#AutoIt3Wrapper_Res_Language=1033 ;Resource Language code . german = 1031, english (U.S.) = 1033. default 2057=English (United Kingdom). For a List see http://technet.microsoft.com/en-us/library/dd346950.aspx
@ -32,6 +32,9 @@
#AutoIt3Wrapper_res_file_add=.\resources\gfx\guibg.jpg, rt_rcdata, img_bg ; http://www.autoitscript.com/forum/topic/51103-resources-udf/
#AutoIt3Wrapper_res_file_add=.\resources\gfx\GUiBG_PopUp.jpg, rt_rcdata, img_bg_popup
;; Ui ions
#AutoIt3Wrapper_res_file_add=.\resources\gfx\paste20.png, rt_rcdata, paste.png
;; Ui Statuscions
#AutoIt3Wrapper_res_file_add=.\resources\gfx\tick16.png, rt_rcdata, tick.png
#AutoIt3Wrapper_res_file_add=.\resources\gfx\warning16.png, rt_rcdata, warning.png

View File

@ -3,6 +3,7 @@
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Clipboard.au3>
#include "includes/ext/resources.au3"
#include "includes/ext/_XMLDomWrapper.au3"
@ -29,6 +30,9 @@ Func _main()
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$gSteamId = GUICtrlCreateInput("", 112, 70, 145, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$gButton_GetClipb = GUICtrlCreateButton("", 260, 68, 24, 24)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
_ResourceSetImageToCtrl(-1, "paste.png", $RT_RCDATA)
$gButton_Submit = GUICtrlCreateButton("Check", 144, 104, 83, 25, $BS_CENTER)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GuiCtrlSetState(-1, 512)
@ -45,6 +49,12 @@ Func _main()
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
Case $gButton_GetClipb
_ClipBoard_Open($GUi)
$hMemory = _ClipBoard_GetDataEx($CF_TEXT)
_ClipBoard_Close()
$tData = DllStructCreate("char Text[8192]", $hMemory)
GUICtrlSetData($gSteamId, DllStructGetData($tData, "Text"))
Case $gButton_Submit
$iSteamId = StringStripWS(GUICtrlRead($gSteamId), 8)
If $iSteamId = "" Then

BIN
resources/gfx/paste20.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 604 B