Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для K.A.V.

Ленивый кусок мяса


Contributor


Сообщения: 1986
Благодарности: 723

Профиль | Сайт | Отправить PM | Цитировать


Цитата MKN:
вывести строки в ListBox - с 1ой по 4ую включительно ? »
Ну диапазон же...IntCmp...

Код: Выделить весь код
OutFile ListBoxHSCROLL_ExecDosTOWINDOW.exe
!include nsDialogs.nsh
Var Dialog
Var hcli
Var ListBox
Page custom MyPage  leave

Function MyPage
nsDialogs::Create 1018
Pop $Dialog
nsDialogs::CreateControl /NOUNLOAD ${__NSD_ListBox_CLASS} ${__NSD_ListBox_STYLE}|${WS_HSCROLL} ${__NSD_ListBox_EXSTYLE} 0 20 100% 100u "" 
Pop $ListBox 
SendMessage $ListBox ${LB_SETHORIZONTALEXTENT} 2000  0  ; 2000 - количество пикселей, на которое список может прокручиваться.

GetFunctionAddress $0 MyFunction
    ExecDos::exec /NOUNLOAD /ASYNC /TOFUNC  `cmd /?` "" $0
Pop $hcli
nsDialogs::Show
FunctionEnd

Function leave
    ExecDos::wait $hcli
FunctionEnd

Function MyFunction
  Pop $2     

IntOp $R0 $R0 + 1
IntCmp $R0 4 0 0 noAddString

System::Call "user32::OemToChar(tr2, t.r2)"
SendMessage $ListBox ${LB_ADDSTRING} 0 "STR:$2"
noAddString:
FunctionEnd

Section
SectionEnd

-------
[Справочник по командам Windows] -- [Справочник по NSIS] -- [SFX Creator - для создания SFX архивов]

Это сообщение посчитали полезным следующие участники:

Отправлено: 15:33, 19-02-2015 | #1515