Серый форум — AHK V2: Edit. Добавляем строки и скролим вниз

Re: AHK V2: Edit. Добавляем строки и скролим вниз

null@example.com (Anfanger) — Sat, 24 Aug 2024 19:56:37 +0000

teadrinker пишет:

Anfanger
Отлично, что используете v2. В скрипте есть недостаток: если во время заполнения кликнуть в edit куда-нибудь выше, порядок сломается.

Спасибо. Не учёл, что можно изменить положение курсора.

Исправил.


MyGui := Gui()
MyEdit := MyGui.Add("Edit", "r9 w300", )
MyGui.Show

NewlineEdit := "`r`n"
GuiEditAppend(MyEdit, "Start:")

Loop 50
{
	GuiEditAppend(MyEdit, NewlineEdit . A_Index)
	Sleep 1000
}


GuiEditAppend(hEdit, Append) {
    ; Calculate required size and allocate a buffer.
    buf := Buffer(StrPut(Append))
    ; Copy or convert the string.
    StrPut(Append, buf)
    Static EM_SETSEL:=0xB1
	; Устанавливаем курсор в конец текста
    SendMessage EM_SETSEL, -2, -1, hEdit			
	Static EM_REPLACESEL:=0x00C2
	SendMessage EM_REPLACESEL, False, buf.Ptr, hEdit
}

Re: AHK V2: Edit. Добавляем строки и скролим вниз

null@example.com (teadrinker) — Sat, 24 Aug 2024 08:18:16 +0000

Нет вроде.

Re: AHK V2: Edit. Добавляем строки и скролим вниз

null@example.com (Alectric) — Sat, 24 Aug 2024 07:59:14 +0000

В AHK v2 нет встроенных методов добавления строк?

Re: AHK V2: Edit. Добавляем строки и скролим вниз

null@example.com (teadrinker) — Sat, 24 Aug 2024 07:11:02 +0000

Anfanger
Отлично, что используете v2. В скрипте есть недостаток: если во время заполнения кликнуть в edit куда-нибудь выше, порядок сломается.

AHK V2: Edit. Добавляем строки и скролим вниз

null@example.com (Anfanger) — Sat, 24 Aug 2024 00:17:18 +0000

Идея взята с www.autohotkey.com и переделана под AHK V2. Спасибо just me


MyGui := Gui()
MyEdit := MyGui.Add("Edit", "r9 w300", )
MyGui.Show

NewlineEdit := "`r`n"
GuiEditAppend(MyEdit, "Start:")

Loop 20
{
	GuiEditAppend(MyEdit, NewlineEdit . A_Index)
	Sleep 500
}


GuiEditAppend(hEdit, Append) {
    ; Calculate required size and allocate a buffer.
    buf := Buffer(StrPut(Append))
    ; Copy or convert the string.
    StrPut(Append, buf)
	SendMessage 0x00C2, False, buf.Ptr, hEdit
}