Отправлено: 15.02.08 08:15. Заголовок: Доработка control-a BtnTextBox

Привет всем !

Вот вчера поюзал контрол BtnTextBox - очень понравился!
Такого очень не хватает во многих языках программирования, а у нас есть.
Но вот иногда необходимо, чтобы редактирование текста было заблокировано,
а кнопка доступна. Например, выбор шрифта или выбор элемента из связанного
справочника или что-то аналогичное. Добавить бы некое свойство типа TextLock.
Может быть разработчикам понравится эта идея. Спасибо.

 Отправлено: 15.02.08 11:07. Заголовок: КСС пишет: Добавить..

КСС пишет:

цитата:

Добавить бы некое свойство типа 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

 Отправлено: 15.02.08 11:45. Заголовок: Спасибо, Григорий. ..

Спасибо, Григорий.

Свойство Enable проверил, а ReadOnly - нет.
Я пока только осваиваю MiniGUI-Ext, поэтому такие глупые вопросы задаю.