Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Foxpro/Clipper/Dbase > Spinner и Combo Box

Автор: Xela 25.9.2006, 18:44

Пишу программу - календарь почти такой же как и
в винде Подскажите как в spinner'е отключить ввод с клавиатуры
так чтобы значения менять можно было только щёлкая мышью на стрелки smile

?
И ещё как в Combo сделать так чтобы при раскрытии выводился весь список месяцев ? smile

Автор: Artiom 26.9.2006, 09:06

Цитата(Xela @ 25.9.2006, 18:44

)

в винде Подскажите как в spinner'е отключить ввод с клавиатурытак чтобы значения менять можно было только щёлкая мышью на стрелки

в spinner.KeyPress() пропиши

Код


NODEFAULT

Только зачем это надо? не проще ли в свойствах KeyboardHighValue и KeyBoardLowLevel задать нужный диапазон? а то ведь вдруг мышка на компе отвалится smile

Добавлено @ 09:08

Цитата(Xela @ 25.9.2006, 18:44

)

И ещё как в Combo сделать так чтобы при раскрытии выводился весь список месяцев ?

Код


combobox1.DisplayCount = 12

Автор: kinnio 7.12.2006, 01:44

Цитата(Artiom @ 26.9.2006, 09:06)

Цитата(Xela @ 25.9.2006, 18:44

)

И ещё как в Combo сделать так чтобы при раскрытии выводился весь список месяцев ?

Вот в догонку этому вопросу хочется спросить, как сделать, чтобы при инициализации формы combobox вываливался самостоятельно?
kinnio

Автор: Cashey 7.12.2006, 10:01

Цитата(kinnio @ 7.12.2006, 02:44

)

Вот в догонку этому вопросу хочется спросить, как сделать, чтобы при инициализации формы combobox вываливался самостоятельно?

это изврат. метод "выпадения" комба - dropdawn. дальше надо убержать его открытым. держа на нем фокус. Только зачем? Повторяю - это изврат. Есть же компонент - ListBox

Автор: Artiom 7.12.2006, 12:18

Чтобы раскрать при переходе фокуса на комбобокс

Цитата

* Событие ComboBox.GotFocus(). прописать одно из этого

* 1.Находясь в объекте ComboBox нажать клавишу "Alt" и,
* не отпуская ее, нажать клавишу "стрелка вниз"
KEYBOARD '{ALT+DNARROW}' PLAIN CLEAR

* 2.Нажать левой клавишей мыши в левом верхнем углу объекта ComboBox
MOUSE CLICK AT OBJTOCLIENT(this,1), OBJTOCLIENT(this,2) WINDOW (ThisForm.Name) PIXELS

* 3.Нажать левой клавишей мыши на кнопке со стрелкой в объекте ComboBox
MOUSE CLICK AT OBJTOCLIENT(This,1)+SYSMETRIC(6), ;
  OBJTOCLIENT(This,2)+This.Width-SYSMETRIC(5) ;
  WINDOW (ThisForm.Name) PIXELS

но это и правда изврат

Автор: kinnio 7.12.2006, 16:43

Цитата(Cashey @ 7.12.2006, 10:01)

Повторяю - это изврат.

Ну что за целомудренный народ вы, программисты. Раз в жизни захочешь извращений и этого, как его - а... эксгибиниционизма - так ведь не дадут - обшикают со всех сторон. smile

Ок - listbox принимается

P.S.
To Artiom: thanks a lot for coding. I'll take it for future needs.