Maby u want something like this:
PHP Code:
#include <_Transinput.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
If Not FileExists(@ScriptDir & "/Bild.JPG") Then InetGet("http://www.karpowitz.de/lichthtml/wp-content/uploads/2010/10/Chuck_and_Snoopy_Peanuts_Comic_Strip.jpg", @ScriptDir & "/Bild.JPG")
Do
Sleep(10)
Until FileExists("Bild.jpg")
$Form1 = GUICreate("Form1", 621, 445, 193, 125)
$Pic1 = GUICtrlCreatePic(@ScriptDir & "/Bild.JPG", 0, 0, 620, 444, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$label = GUICtrlCreateLabel("write here!", 220, 200, 250, 25)
_TransInput_Create($label,12)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
FileDelete(@ScriptDir & "/Bild.JPG")
Exit
EndSwitch
Wend
_Transinput.au3:
PHP Code:
#include-once
Dim $aTransIn[1][3] = [["Ctrl_Input","Ctrl_Lable","Text"]]
$DUMMY = GUICreate("DUMMY")
AdlibRegister("_TransInput_Update",50)
$dll = DllOpen("user32.dll")
Func _TransInput_Create(ByRef $ctrlID,$ifSize=8.5)
;SEuBo
$hParent_Wnd = DllCall($dll,"hwnd","GetParent","hwnd", GUICtrlGetHandle($ctrlID))
$hParent_Wnd = $hParent_Wnd[0]
$cOldText = ControlGetText($hParent_Wnd,"",$ctrlID)
$cPos = ControlGetPos($hParent_Wnd,"",$ctrlID)
If Not @error Then
$oldGUI = GUISwitch($DUMMY)
GUISwitch($oldGUI)
$nCtrlID = GUICtrlCreateLabel($cOldText,$cPos[0],$cPos[1],$cPos[2],$cPos[3])
GUICtrlSetBkColor(-1,-2)
GUICtrlSetFont(-1,$ifSize)
$hwnd_gui = GUICreate("",$cPos[2],$cPos[3],$cPos[0],$cPos[1],0x80000000,BitOR(0x00000040,0x00000008),$hParent_Wnd)
GUICtrlDelete($ctrlID)
$ctrlID = GUICtrlCreateInput($cOldText,0,0,$cPos[2],$cPos[3])
GUICtrlSetState(-1,2048)
GUICtrlSetFont(-1,$ifSize)
WinSetTrans($hwnd_gui,"",1)
GUISetState(@SW_SHOW,$hwnd_gui)
ReDim $aTransIn[UBound($aTransIn)+1][3]
$aTransIn[UBound($aTransIn)-1][0] = $nCtrlID
$aTransIn[UBound($aTransIn)-1][1] = $ctrlID
$aTransIn[UBound($aTransIn)-1][2] = $cOldText
GUISwitch($oldGUI)
Return $nCtrlID
EndIf
EndFunc
Func _TransInput_Update()
For $i = 1 to UBound($aTransIn)-1
If $aTransIn[$i][2] <> GUICtrlRead($aTransIn[$i][1]) Then
$aTransIn[$i][2] = GUICtrlRead($aTransIn[$i][1])
GUICtrlSetData($aTransIn[$i][0],$aTransIn[$i][2])
EndIf
Next
EndFunc