Форум » GUI » IDE8 » Ответить
IDE8
Новичок: Можете на простом примере показать: 1. На примере TEXTBOX вводились символы UTF8 2. На примере LABEL - соответственно выводились
Andrey: SergKis пишет: Окна делай сам, иначе несколько тсб на окне не выйдет, смотри пример Пример классный ! Минимум кода и всё работает. Я так не могу.... А окна писать самому можно, согласен. Но хотелось просто узнать - возможно ли сделать пример без MAIN окна ! Проверку же можно сделать при вызове _TBrowse(...) [pre2] cForm := "HMG_" + ALIAS() + "_" + HB_NtoS( _GetId() ) IF Empty( _HMG_MainHandle ) // --- Main window --- DEFINE WINDOW &cForm WIDTH nW HEIGHT nH TITLE cTitle ICON cIcon ; MAIN NOMAXIMIZE NOSIZE TOPMOST BACKCOLOR GRAY ; ON INIT {|| This.Topmost := .F. } ELSE lModal := _HMG_IsModalActive // если было вызвано последнее окно MODAL, то вернёт .T. IF lModal // --- MODAL window --- DEFINE WINDOW &cForm WIDTH nW HEIGHT nH TITLE cTitle ICON cIcon ; MODAL NOSIZE ; ON INIT {|| This.Topmost := .F. /*, oBrw:Setfocus() */ } ELSE // --- STANDARD window --- DEFINE WINDOW &cForm WIDTH nW HEIGHT nH TITLE cTitle ICON cIcon ; WINDOWTYPE STANDARD TOPMOST NOMAXIMIZE NOSIZE ; ON INIT {|| This.Topmost := .F. /*, oBrw:Setfocus()*/ } ENDIF ENDIF[/pre2]
SergKis: gfilatov2002 Давайте сразу в _TBrowse() сделаем цвет [pre2] DEFAULT aColor := { ; { CLR_FOCUSB, {|c,n,b| c := n, iif( b:nCell == n, -CLR_RED , -RGB( 128, 225, 225 ) ) } }, ; { CLR_SELEF , GetSysColor( COLOR_WINDOWTEXT ) }, ; { CLR_SELEB , {|c,n,b| c := n, iif( b:nCell == n, -CLR_BLUE, -RGB( 128, 225, 225 ) ) } } ; } [/pre2] тогда в работе не надо делать дополнительно oBrw1:SetColor( { CLR_FOCUSB }, {{|c,n,b| c := n, iif( b:nCell == n, -CLR_RED, -RGB( 128, 225, 225 ) ) }} ) oBrw2:SetColor( { CLR_FOCUSB }, {{|c,n,b| c := n, iif( b:nCell == n, -CLR_RED, -RGB( 128, 225, 225 ) ) }} ) как в примере выше
gfilatov2002: SergKis пишет: сразу в _TBrowse() сделаем цвет OK SergKis Но при таком определении цвета у меня нет красного цвета при переключении фокуса с одного бровса на другой
SergKis: gfilatov2002 пишет Но при таком определении цвета у меня нет красного цвета при переключении фокуса с одного бровса на другой У меня работает цвет при переходе фокуса с одного тсб на другой (красный есть) и при переключении на FAR оба тсб синий цвет ячеек в фокусе Пример https://TransFiles.ru/8yyrp PS Собрал пример в однобайтной сборке, все так же работает, как и в unicode
gfilatov2002: SergKis пишет: У меня работает Разобрался (это был мой косяк ), сейчас все работает. Благодарю за помощь
полная версия страницы