Серый форум — AHK: Edit

Re: AHK: Edit

null@example.com (serzh82saratov) — Mon, 09 Dec 2013 18:39:26 +0000

teadrinker пишет:

Каретку можно переместить вручную куда угодно, поэтому не факт, что она будет внизу.

Точно, был неправ.

Re: AHK: Edit

null@example.com (teadrinker) — Mon, 09 Dec 2013 13:13:54 +0000

Каретку можно переместить вручную куда угодно, поэтому не факт, что она будет внизу.

Re: AHK: Edit

null@example.com (serzh82saratov) — Mon, 09 Dec 2013 13:06:30 +0000

Вроде всегда внизу:


Нечетные := Array("Один", "3" , "5", "7", "9", "11", "13")
Четные := Array("2", "4", "6" , "8", "10", "Дюжина", "14", "16")
Gui, add, button, gGen, Сгенерировать
Gui, add, radio, vUnEven Checked, Четные
Gui, add, radio, , Нечетные
Gui, add, edit, r5 readonly vedit hwndhedit
Gui, Show
return

Gen:
   GuiControlGet, UnEven
   Arr := UnEven ? "Четные" : "Нечетные"
   Random, Rand, 1, % %Arr%.MaxIndex() 
   Control, EditPaste, % %Arr%[Rand] . "`r`n",, ahk_id %hedit%
   ControlFocus, , ahk_id %hedit%
   return

да и с параметром readonly каретка видимо совсем не требуется.

Re: AHK: Edit

null@example.com (teadrinker) — Mon, 09 Dec 2013 12:46:31 +0000

serzh82saratov пишет:

тут лишнее.

Не знаю, смотря чего хочет ТС. При нажатии кнопки каретка может не находиться в самом низу.

Re: AHK: Edit

null@example.com (serzh82saratov) — Mon, 09 Dec 2013 12:42:56 +0000

Точно нужно только EditPaste.
И

ControlSend, Edit1, ^{End}

тут лишнее.


Нечетные := Array("Один", "3" , "5", "7", "9", "11", "13")
Четные := Array("2", "4", "6" , "8", "10", "Дюжина", "14", "16")
Gui, add, button, gGen, Сгенерировать
Gui, add, radio, vUnEven Checked, Четные
Gui, add, radio, , Нечетные
Gui, add, edit, r5 readonly vedit hwndhedit
Gui, Show
return

Gen:
   GuiControlGet, UnEven
   Arr := UnEven ? "Четные" : "Нечетные"
   Random, Rand, 1, % %Arr%.MaxIndex() 
   Control, EditPaste, % %Arr%[Rand] . "`r`n",, ahk_id %hedit%
   return

Re: AHK: Edit

null@example.com (teadrinker) — Mon, 09 Dec 2013 12:37:39 +0000

Я б так сделал:

Нечетные := Array("Один", "3" , "5", "7", "9", "11", "13")
Четные := Array("2", "4", "6" , "8", "10", "Дюжина", "14", "16")
Gui, add, button, gGen, Сгенерировать
Gui, add, radio, vUnEven Checked, Четные
Gui, add, radio, , Нечетные
Gui, add, edit, r5 readonly vedit hwndhedit
Gui, Show
return

Gen:
   GuiControlGet, UnEven
   Arr := UnEven ? "Четные" : "Нечетные"
   Random, Rand, 1, % %Arr%.MaxIndex()
   ControlSend, Edit1, ^{End}
   Control, EditPaste, % %Arr%[Rand] . "`r`n",, ahk_id %hedit%
   return

Re: AHK: Edit

null@example.com (qwerlog) — Mon, 09 Dec 2013 12:25:13 +0000

Спасибо, помогли)

Re: AHK: Edit

null@example.com (serzh82saratov) — Mon, 09 Dec 2013 09:06:25 +0000

ypppu


Нечетные := Array("Один", "3" , "5", "7", "9", "11", "13")
Четные := Array("2", "4", "6" , "8", "10", "Дюжина", "14", "16")
Gui, add, button, gGen, Сгенерировать
Gui, add, radio, vUnEven Checked, Четные
Gui, add, radio, , Нечетные
Gui, add, edit, r5 readonly vedit hwndhedit
Gui, Show
return

Gen:
    GuiControlGet, UnEven
    GuiControlGet, edit
    Arr := UnEven ? "Четные" : "Нечетные"
    Random, Rand, 1, % %Arr%.MaxIndex() 
    GuiControl, -Redraw, edit
    GuiControl,, edit, % edit . %Arr%[Rand] . "`n"    
    GuiControl, +Redraw, edit
    ControlSend, Edit1, ^{End}
    return

Re: AHK: Edit

null@example.com (ypppu) — Mon, 09 Dec 2013 08:44:37 +0000

Каким образом? Не пойму, дайте пример.
Я говорю о том, что если часто нажимать "Сгенерировать" или зажать Enter, полоса прокрутки заметно мелькает.

Re: AHK: Edit

null@example.com (serzh82saratov) — Sun, 08 Dec 2013 19:47:48 +0000

ypppu пишет:

не будет мельканий

Разве

GuiControl Redraw

полностью это не устранит?

Re: AHK: Edit

null@example.com (ypppu) — Sun, 08 Dec 2013 19:17:19 +0000

Нечетные := Array("Один", "3" , "5", "7", "9", "11", "13")
Четные := Array("2", "4", "6" , "8", "10", "Дюжина", "14", "16")
Gui, add, button, gGen, Сгенерировать
Gui, add, radio, vUnEven Checked, Четные
Gui, add, radio, , Нечетные
Gui, add, edit, r5 readonly vedit
Gui, Show
return

Gen:
    GuiControlGet, UnEven
    GuiControlGet, edit
    Arr := UnEven ? "Четные" : "Нечетные"
    Random, Rand, 1, % %Arr%.MaxIndex()
    GuiControl,, edit, % edit . %Arr%[Rand] . "`n"
    ControlSend, Edit1, ^{End}
    return

Другой вариант - отрезать верхнюю строчку, когда добавляется новая нижняя - так при большой скорости не будет мельканий. Если, конечно, это не противоречить условиям.

Re: AHK: Edit

null@example.com (Irbis) — Sun, 08 Dec 2013 18:58:20 +0000

+1 строка к простому скрипту из #1

; <...>
    ControlSend, Edit1, ^{End}
    return

Re: AHK: Edit

null@example.com (qwerlog) — Sun, 08 Dec 2013 16:56:41 +0000

Он "^{end}" тоже в строку прописывает.

Re: AHK: Edit

null@example.com (ypppu) — Sun, 08 Dec 2013 16:32:30 +0000

Ctrl+End попробуйте послать этому элементу управления.

AHK: Edit

null@example.com (qwerlog) — Sun, 08 Dec 2013 15:52:59 +0000

В общем, такая проблема, покажу на примере простого скрипта.

Нечетные := Array("Один", "3" , "5", "7", "9", "11", "13")
Четные := Array("2", "4", "6" , "8", "10", "Дюжина", "14", "16")
Gui, add, button, gGen, Сгенерировать
Gui, add, radio, vUnEven Checked, Четные
Gui, add, radio, , Нечетные
Gui, add, edit, r5 readonly vedit
Gui, Show
return

Gen:
    GuiControlGet, UnEven
    GuiControlGet, edit
    Arr := UnEven ? "Четные" : "Нечетные"
    Random, Rand, 1, % %Arr%.MaxIndex()
    GuiControl,, edit, % edit . %Arr%[Rand] . "`n"
    return

Так вот, суть в том, что числа уходят вниз, и приходится листать. Как сделать, чтобы строка автоматически перелистывалась вниз? порылся в справочнике, ничего дельного не нашел.