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

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

 Отправлено: 02.12.21 13:48. Заголовок: Пожалуюсь вот. Как с..

Пожалуюсь вот. Как сложно стало жЫть :(

Давно не заходил в groups.google.com. Авторизуюсь, ввожу емайл и пароль
Гугл говорит: сомневаюсь в тебе, мил человек, подтверди себя. Послали тебе письмо с кодом

Захожу в майл.ру, авторизуюсь. Майлру говорит: сомнительный ты какой-то, подтверди свой номер телефона.
Подтверждаю, пускает. Даю гуглю код из письмя

Гугль говорит: хорошо мол, но все равно я в тебе сомневаюсь, давай телефон, вышлю смс с кодом
Даю телефон, получаю смс, кормлю его гуглю.
Вижу свои группы и наслаждаюсь
В сухом остатке гугль из меня выцепил номер телефона

 Отправлено: 02.12.21 14:19. Заголовок: Как просил Андрей, п..

Как просил Андрей, просмотр, простой, вставил в пример
Тут https://TransFiles.ru/u7w3o

 Отправлено: 02.12.21 15:48. Заголовок: Как просил Андрей, п..

Как просил Андрей, просмотр, чуть сложней, вставил в пример, на базе ф-ии _TBrowse()
Тут смотрим https://TransFiles.ru/ju3qz

PS
Пропустил удаление dbf (добавляет записи всегда)

 
    fErase( App.Cargo:cDbf+".dbf" ) 
  
    IF ! hb_FileExists(App.Cargo:cDbf+".dbf") 
 

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

SergKis пишет:

цитата:

пример, на базе ф-ии _TBrowse()

Пример - понравился, добавлю его в unicode сборку

 Отправлено: 02.12.21 16:33. Заголовок: gfilatov2002 пишет д..

gfilatov2002 пишет

цитата:

добавлю его в unicode сборку

лучше чуть поправленный вариант. Тут https://TransFiles.ru/jwujq

PS
ф-ю oIniData( cIni, lMacro, lUtf8, cRazd ) может в lib к классу положить, что бы не таскать

 Отправлено: 02.12.21 16:45. Заголовок: SergKis пишет: лучш..

SergKis пишет:

цитата:

лучше чуть поправленный вариант

Ok

SergKis пишет:

цитата:

ф-ю oIniData( cIni, lMacro, lUtf8, cRazd ) может в lib к классу положить

Мне кажется, что ее можно заменить с помощью #xtranslate

 Отправлено: 02.12.21 16:50. Заголовок: gfilatov2002 пишет М..

gfilatov2002 пишет

цитата:

Мне кажется, что ее можно заменить с помощью #xtranslate

Не очень понимаю, что лучше 4 #xtranslate и следить, что бы не потерялись или ф-ю

 Отправлено: 02.12.21 19:55. Заголовок: gfilatov2002 Поборо..

gfilatov2002
Поборолся еще немного с примером, добавил в ini вкл. edit и кол-во строк в отображении Memo поля
Edit = .T.
MemoHV = 5
можно поиграться в ini FontName, FontSize
Пример тут https://TransFiles.ru/2a9vy

 Отправлено: 02.12.21 20:39. Заголовок: SergKis пишет: Побо..

SergKis пишет:

цитата:

Поборолся еще немного с примером

Большое спасибо

 Отправлено: 02.12.21 21:36. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Мне кажется, что ее можно заменить с помощью #xtranslate

А можно добавить ещё такую функцию ?

FUNCTION ProcNL(nVal) 
    DEFAULT nVal := 0 
 RETURN "Вызов из: " + ProcName( nVal + 1 ) + "(" + hb_ntos( ProcLine( nVal + 1 ) ) + ") --> " + ProcFile( nVal + 1 )

Надоело таскать из примера в пример.

 Отправлено: 03.12.21 09:24. Заголовок: gfilatov2002 В прим..

gfilatov2002
В примере поправил ошибки и добавил SpecHd https://TransFiles.ru/ec1cp

 Отправлено: 03.12.21 11:28. Заголовок: SergKis пишет: В пр..

SergKis пишет:

цитата:

В примере поправил ошибки

Большое спасибо, только закомментировал одну строку

цитата:

... NEXT dbCreate(cDbf, aStru) // lDbf := hb_FileExists(App.Cargo:cDbf+".dbf") ENDIF

в противном случае создается пустой файл

 Отправлено: 03.12.21 12:19. Заголовок: gfilatov2002 пишет т..

gfilatov2002 пишет

цитата:

только закомментировал одну строку

Была мысль соединить, добавление записей в том IF, но она потерялась
Теперь нашлась. Думаю с примером завершил (добавил в ini и Footer наличие),
SuperHeader в oTsb:bBody, кому надо, добавят
Тут https://TransFiles.ru/h4y5t

 Отправлено: 03.12.21 13:45. Заголовок: SergKis пишет: с пр..

SergKis пишет:

цитата:

с примером завершил

 Отправлено: 05.12.21 17:04. Заголовок: gfilatov2002 Поправ..

gfilatov2002
Поправил в примере пару ошибок в _TBrowse(), убрал команды This..., кое что добавил в ini
Тут https://TransFiles.ru/kar5i
В таком виде, можно в lib поместить _TBrowse(oTsb), как Андрей просил

 Отправлено: 05.12.21 18:46. Заголовок: SergKis пишет: В та..

SergKis пишет:

цитата:

В таком виде, можно в lib поместить

Большое спасибо
Посмотрю, что можно сделать

 Отправлено: 06.12.21 12:40. Заголовок: gfilatov2002 Пример..

gfilatov2002
Пример (unicode hmg) тсб с codepage dbf файлов
Тут https://TransFiles.ru/o65of

 Отправлено: 06.12.21 13:26. Заголовок: SergKis пишет: Прим..

SergKis пишет:

цитата:

Пример (unicode hmg) тсб с codepage dbf

Благодарю за помощь

Также сделал совсем крошечный пример с использованием новой функции:

цитата:

Function TBrwTest() Local oBrw, ; cForm := GetUniqueName( "wMain" ) DbSelectArea( "Employee" ) DEFINE WINDOW &cForm TITLE "Customer List" CHILD NOSIZE oBrw := _TBrowse() AEval( oBrw:aColumns, {| oCol | oCol:lFixLite := .T., ; oCol:lEdit := .T., ; oCol:lOnGotFocusSelect := .T., ; oCol:lEmptyValToChar := .T. } ) ON KEY ESCAPE ACTION ( iif( oBrw:IsEdit, oBrw:SetFocus(), ThisWindow.Release ) ) END WINDOW CENTER WINDOW &cForm ACTIVATE WINDOW &cForm Return Nil

 Отправлено: 06.12.21 14:49. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Также сделал совсем крошечный пример с использованием новой функции:

А можно вообще обойтись без

        DEFINE WINDOW &cForm TITLE .....  
         ..... 

А сразу так:

FUNCTION Main() 
  
    RddSetDefault("DBFCDX") 
  
    SET CODEPAGE TO UKRAINIAN     // hb_SetCodepage( "UA1251" ) 
    SET LANGUAGE TO UKRAINIAN     // hb_CdpSelect( "UA1251" ) 
    cAls := "UA_STREET" 
    cDbf := GetStartUpFolder() + '\_Ua1251.dbf' 
    cTtl := cAls + " , " + cDbf + " , UA1251"  
    USE (cDbf) ALIAS (cAls) CODEPAGE "UA1251" NEW  
    oBrw1 := _TBrowse(cTtl) 
  
    SET LANGUAGE TO GERMAN      
    SET CODEPAGE TO GERMAN      
    cAls := "DE_STREET" 
    cDbf := GetStartUpFolder() + '\_De1252.dbf' 
    cTtl := cAls + " , " + cDbf + " , DEWIN"  
    USE (cDbf) ALIAS (cAls) CODEPAGE "DEWIN" NEW 
    oBrw2 := _TBrowse(cTtl) 
  
 RETURN NIL

Т.е. первое окно пускай создаётся MAIN, а потом другие WINDOWTYPE STANDARD ... NOWAIT
Тогда на экране будет показаны сразу все нужные базы для просмотра.
И кода меньше придётся писать....

 Отправлено: 06.12.21 15:04. Заголовок: gfilatov2002 пишет Т..

gfilatov2002 пишет

цитата:

Также сделал совсем крошечный пример с использованием новой функции:

Пример 2 тсб на окне с использованием новой функции https://TransFiles.ru/cl7ds

Andrey пишет

цитата:

И кода меньше придётся писать....

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