Expanding box [SOLVED]

[Aceguy]

anyone know of a beter more accurate way of doing this.....

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <Misc.au3>

Opt("GUIOnEventMode", 1)
$len=0
$Form1 = GUICreate("Form1", 24,26, 300, 300, $WS_POPUP, $WS_EX_TOPMOST)
$input=GUICtrlCreateInput("",2,2,20,22)
GUISetBkColor(0xaaaaaa)
GUISetState(@SW_SHOW)
while 1
    
sleep(50)
$len_new=StringLen(guictrlread($input))
if $len_new<>$len Then
    GUICtrlSetPos($input,2,2,int(20+($len_new*4.5)),22)
    $pos = ControlGetPos("Form1","",$input)
    WinMove("Form1","",300,300,$pos[2]+2,26)
    $len=$len_new
EndIf
WEnd

Edited March 26, 2009 by Aceguy

[youknowwho4eva]

I came up with this, but it only works well after about 6 characters.

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <Misc.au3>

Opt("GUIOnEventMode", 1)
$len=0
$Form1 = GUICreate("Form1", 24,26, 300, 300, $WS_POPUP, $WS_EX_TOPMOST)
$input=GUICtrlCreateInput("",2,2,20,22)
GUISetBkColor(0xaaaaaa)
GUISetState(@SW_SHOW)
while 1
   
sleep(50)
$len_new=StringLen(guictrlread($input))
if $len_new<>$len Then
    $width = Int(20+($len_new*4.5))
    GUICtrlSetPos($input,2,2,$width,22)
    $pos = ControlGetPos("Form1","",$input)
    WinMove("Form1","",300,300,$width + 4,26)
    $len=$len_new
EndIf
WEnd

Edit: also if you backspace, it doesn't move the window down a size... Idono

Edited March 26, 2009 by youknowwho4eva

[Melba23]

Aceguy,

Try this version:

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <SendMessage.au3>
#include <WinAPI.au3>

Opt("GUIOnEventMode", 1)

Opt("OnExitFunc", "_On_Exit")
$len = 0
$Form1 = GUICreate("Form1", 24, 26, 300, 300, $WS_POPUP, $WS_EX_TOPMOST)
$input = GUICtrlCreateInput("", 2, 2, 20, 22)
GUISetBkColor(0xaaaaaa)
GUISetState(@SW_SHOW)

; Create label to hold line as it grows
$hText_Label = GUICtrlCreateLabel("", 0, -50)
; Initialise Point32 method
$hWnd = ControlGetHandle($Form1, "", $hText_Label)
$hFont = _SendMessage($hWnd, $WM_GETFONT)
$hDC = _WinAPI_GetDC($hWnd)
$oFont = _WinAPI_SelectObject($hDC, $hFont)

While 1

    $len_new = _String_Len(GUICtrlRead($input))
;ConsoleWrite($len_new & @CRLF)
    If $len_new <> $len Then
        
        WinMove("Form1", "", 300, 300, $len_new + 24, 26)
        GUICtrlSetPos($input, 2, 2, $len_new + 20, 22)
        
        $len = $len_new
    EndIf
WEnd

Func _String_Len($sString)
    
    GUICtrlSetData($hText_Label, $sString)
    $tSize = _WinAPI_GetTextExtentPoint32($hDC, $sString)
    Return DllStructGetData($tSize, "X")
    
EndFunc

Func _On_Exit()
    _WinAPI_ReleaseDC($hWnd, $hDC)
EndFunc

M23

[Aceguy]

TY guys........ SUPERB... just what im after.