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

Re: AHK: Edit

2013-12-09T18:39:26Z

teadrinker пишет:

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

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

Re: AHK: Edit

2013-12-09T13:13:54Z

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

Re: AHK: Edit

2013-12-09T13:06:30Z

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


Нечетные := 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

2013-12-09T12:46:31Z

serzh82saratov пишет:

тут лишнее.

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

Re: AHK: Edit

2013-12-09T12:42:56Z

Точно нужно только 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

2013-12-09T12:37:39Z

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

Нечетные := 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

2013-12-09T12:25:13Z

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

Re: AHK: Edit

2013-12-09T09:06:25Z

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

2013-12-09T08:44:37Z

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

Re: AHK: Edit

2013-12-08T19:47:48Z

ypppu пишет:

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

Разве

GuiControl Redraw

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

Re: AHK: Edit

2013-12-08T19:17:19Z

Нечетные := 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

2013-12-08T18:58:20Z

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

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

Re: AHK: Edit

2013-12-08T16:56:41Z

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

Re: AHK: Edit

2013-12-08T16:32:30Z

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

AHK: Edit

2013-12-08T15:52:59Z

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

Нечетные := 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

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