Отправлено: 29.08.19 05:19. Заголовок: IDE8

Можете на простом примере показать:
1. На примере TEXTBOX вводились символы UTF8
2. На примере LABEL - соответственно выводились

 Отправлено: 06.12.21 15:22. Заголовок: SergKis пишет: Окна..

SergKis пишет:

цитата:

Окна делай сам, иначе несколько тсб на окне не выйдет, смотри пример

Пример классный ! Минимум кода и всё работает.
Я так не могу....

А окна писать самому можно, согласен.
Но хотелось просто узнать - возможно ли сделать пример без MAIN окна !
Проверку же можно сделать при вызове _TBrowse(...)

   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

 Отправлено: 06.12.21 15:28. Заголовок: gfilatov2002 Давайт..

gfilatov2002
Давайте сразу в _TBrowse() сделаем цвет

 
    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 ) ) } }  ; 
          } 
 

тогда в работе не надо делать дополнительно
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 ) ) }} )
как в примере выше

 Отправлено: 06.12.21 15:34. Заголовок: SergKis пишет: сраз..

SergKis пишет:

цитата:

сразу в _TBrowse() сделаем цвет

OK

SergKis
Но при таком определении цвета у меня нет красного цвета при переключении фокуса с одного бровса на другой

 Отправлено: 06.12.21 16:23. Заголовок: gfilatov2002 пишет Н..

gfilatov2002 пишет

цитата:

Но при таком определении цвета у меня нет красного цвета при переключении фокуса с одного бровса на другой

У меня работает цвет при переходе фокуса с одного тсб на другой (красный есть) и при переключении на FAR оба тсб синий цвет ячеек в фокусе
Пример https://TransFiles.ru/8yyrp

PS
Собрал пример в однобайтной сборке, все так же работает, как и в unicode

 Отправлено: 06.12.21 16:37. Заголовок: SergKis пишет: У ме..

SergKis пишет:

цитата:

У меня работает

Разобрался (это был мой косяк ), сейчас все работает.
Благодарю за помощь