Форум » GUI » вопрос знатокам » Ответить
вопрос знатокам
alex_II: Программно меняю значение Value ComboBox'а, как обновить его вид на форме? Refresh и ReDraw не отображают изменения при новом значении Value.
Ответов - 2
SergKis: alex_II пишет вопрос знатокам "Черный ящик текст — в студию!" (c) Программно меняю значение Value ComboBox'а, как обновить его вид на форме? Чуть модифицированный пример BASIC\COMBO_1\demo2.prg [pre2] /* * MiniGUI ComboBox Demo */ #include "minigui.ch" memvar aitems Function Main private aItems := { '1 | Uno A' , '2 | Dos A' , '3 | tres A' } DEFINE WINDOW Form_1 ; AT 0,0 ; WIDTH 400 ; HEIGHT 200 ; TITLE 'ComboBox Demo' ; MAIN @ 10,10 COMBOBOX Control_1 ; WIDTH 130 ; ITEMS {} ; LOWERCASE ; FONT 'Courier New' SIZE 12 DEFINE BUTTON Control_2 ROW 10 COL 150 WIDTH 140 CAPTION 'Update Combo' ACTION UpdateCombo( 'Control_1', 'Form_1' ) END BUTTON DEFINE BUTTON Control_3 ROW 40 COL 150 WIDTH 140 CAPTION 'Update Combo 2' ACTION UpdateCombo2( 'Control_1', 'Form_1' ) END BUTTON END WINDOW Form_1.Control_1.SetArray( aItems ) Form_1.Control_1.Value := 1 CENTER WINDOW Form_1 ACTIVATE WINDOW Form_1 Return Nil // Private array Function UpdateCombo( Control, Parent ) aadd(aitems, '4 | quattro') aadd(aitems, '5 | cinque') aadd(aitems, '6 | senco') aadd(aitems, '7 | ses') if len(aitems) > 7 asize(aitems, 7) endif DoMethod( Parent, Control, 'Refresh' ) This.&(Control).Value := 2 Return Nil // Local array Function UpdateCombo2( Control, Parent ) local aNewValues := { '1 | Uno B' , '2 | Dos B' , '3 | tres B', '4 | quattro', '5 | cinque', '6 | senco', '7 | ses' } DoMethod( Parent, Control, 'SetArray', aNewValues ) This.&(Control).Value := 3 Return Nil [/pre2] работает
alex_II: Спасибо за пример, нашел у себя ошибку
полная версия страницы