Форум » GUI » Доработка control-a BtnTextBox » Ответить
Доработка control-a BtnTextBox
КСС: Привет всем ! Вот вчера поюзал контрол BtnTextBox - очень понравился! Такого очень не хватает во многих языках программирования, а у нас есть. Но вот иногда необходимо, чтобы редактирование текста было заблокировано, а кнопка доступна. Например, выбор шрифта или выбор элемента из связанного справочника или что-то аналогичное. Добавить бы некое свойство типа TextLock. Может быть разработчикам понравится эта идея. Спасибо.
Ответов - 2
gfilatov: КСС пишет: Добавить бы некое свойство типа TextLock. Это "свойство" называется ReadOnly. Попробуйте следующий пример: /* * MINIGUI - Harbour Win32 GUI library Demo */ #include "minigui.ch" Procedure Main DEFINE WINDOW Form_1 ; AT 0,0 ; WIDTH 340 HEIGHT 280 ; TITLE 'Harbour MiniGUI Demo' ; MAIN @ 10,10 TEXTBOX Text_1 ; WIDTH 200; VALUE "123AB" ; FONT 'Arial' SIZE 10 ; TOOLTIP 'Standard TextBox' ; On Enter Form_1.Text_2.SetFocus @ 40,10 BTNTEXTBOX Text_2 ; WIDTH 200; VALUE 'TEST_FOCUS' ; ACTION Msgbox("Pressed"); FONT 'Arial' SIZE 10 ; TOOLTIP 'Button Character TextBox'; On Enter Form_1.Text_3.SetFocus @ 70,10 BTNTEXTBOX Text_3 ; WIDTH 200; VALUE 150 ; ACTION ( Msgbox("Pressed"), Form_1.Text_3.SetFocus ); NUMERIC; FONT 'Arial' SIZE 10 ; TOOLTIP 'Button Numeric TextBox'; On Enter Form_1.Text_4.SetFocus @ 110,10 BTNTEXTBOX Text_4 ; WIDTH 200 ; VALUE 'TEST_FOCUS' ; ACTION ( Msgbox("Pressed"),Form_1.Text_4.SetFocus ) ; PICTURE "folder.bmp" ; BUTTONWIDTH 20 ; FONT 'Arial' SIZE 10 ; TOOLTIP 'Button TextBox'; On Enter Form_1.Text_1.SetFocus @ 140,10 BUTTON Btn_1; CAPTION "ReadOnly Test"; ACTION ( Form_1.Text_4.ReadOnly := .t. ); WIDTH 200 END WINDOW Form_1.Text_1.SetFocus Form_1.Center Form_1.Activate Return
КСС: Спасибо, Григорий. Свойство Enable проверил, а ReadOnly - нет. Я пока только осваиваю MiniGUI-Ext, поэтому такие глупые вопросы задаю.
полная версия страницы