Форум » GUI » IDE8 » Ответить
IDE8
Новичок: Можете на простом примере показать: 1. На примере TEXTBOX вводились символы UTF8 2. На примере LABEL - соответственно выводились
Pasha: Пожалуюсь вот. Как сложно стало жЫть :( Давно не заходил в groups.google.com. Авторизуюсь, ввожу емайл и пароль Гугл говорит: сомневаюсь в тебе, мил человек, подтверди себя. Послали тебе письмо с кодом Захожу в майл.ру, авторизуюсь. Майлру говорит: сомнительный ты какой-то, подтверди свой номер телефона. Подтверждаю, пускает. Даю гуглю код из письмя Гугль говорит: хорошо мол, но все равно я в тебе сомневаюсь, давай телефон, вышлю смс с кодом Даю телефон, получаю смс, кормлю его гуглю. Вижу свои группы и наслаждаюсь В сухом остатке гугль из меня выцепил номер телефона
SergKis: Как просил Андрей, просмотр, простой, вставил в пример Тут https://TransFiles.ru/u7w3o
SergKis: Как просил Андрей, просмотр, чуть сложней, вставил в пример, на базе ф-ии _TBrowse() Тут смотрим https://TransFiles.ru/ju3qz PS Пропустил удаление dbf (добавляет записи всегда) [pre2] fErase( App.Cargo:cDbf+".dbf" ) IF ! hb_FileExists(App.Cargo:cDbf+".dbf") [/pre2]
gfilatov2002: SergKis пишет: пример, на базе ф-ии _TBrowse() Пример - понравился, добавлю его в unicode сборку
SergKis: gfilatov2002 пишет добавлю его в unicode сборку лучше чуть поправленный вариант. Тут https://TransFiles.ru/jwujq PS ф-ю oIniData( cIni, lMacro, lUtf8, cRazd ) может в lib к классу положить, что бы не таскать
gfilatov2002: SergKis пишет: лучше чуть поправленный вариант Ok SergKis пишет: ф-ю oIniData( cIni, lMacro, lUtf8, cRazd ) может в lib к классу положить Мне кажется, что ее можно заменить с помощью #xtranslate
SergKis: gfilatov2002 пишет Мне кажется, что ее можно заменить с помощью #xtranslate Не очень понимаю, что лучше 4 #xtranslate и следить, что бы не потерялись или ф-ю
SergKis: gfilatov2002 Поборолся еще немного с примером, добавил в ini вкл. edit и кол-во строк в отображении Memo поля Edit = .T. MemoHV = 5 можно поиграться в ini FontName, FontSize Пример тут https://TransFiles.ru/2a9vy
gfilatov2002: SergKis пишет: Поборолся еще немного с примером Большое спасибо
Andrey: gfilatov2002 пишет: Мне кажется, что ее можно заменить с помощью #xtranslate А можно добавить ещё такую функцию ? [pre2]FUNCTION ProcNL(nVal) DEFAULT nVal := 0 RETURN "Вызов из: " + ProcName( nVal + 1 ) + "(" + hb_ntos( ProcLine( nVal + 1 ) ) + ") --> " + ProcFile( nVal + 1 )[/pre2] Надоело таскать из примера в пример.
SergKis: gfilatov2002 В примере поправил ошибки и добавил SpecHd https://TransFiles.ru/ec1cp
gfilatov2002: SergKis пишет: В примере поправил ошибки Большое спасибо, только закомментировал одну строку ... NEXT dbCreate(cDbf, aStru) // lDbf := hb_FileExists(App.Cargo:cDbf+".dbf") ENDIF в противном случае создается пустой файл
SergKis: gfilatov2002 пишет только закомментировал одну строку Была мысль соединить, добавление записей в том IF, но она потерялась Теперь нашлась. Думаю с примером завершил (добавил в ini и Footer наличие), SuperHeader в oTsb:bBody, кому надо, добавят Тут https://TransFiles.ru/h4y5t
gfilatov2002: SergKis пишет: с примером завершил
SergKis: gfilatov2002 Поправил в примере пару ошибок в _TBrowse(), убрал команды This..., кое что добавил в ini Тут https://TransFiles.ru/kar5i В таком виде, можно в lib поместить _TBrowse(oTsb), как Андрей просил
gfilatov2002: SergKis пишет: В таком виде, можно в lib поместить Большое спасибо Посмотрю, что можно сделать
SergKis: gfilatov2002 Пример (unicode hmg) тсб с codepage dbf файлов Тут https://TransFiles.ru/o65of
gfilatov2002: SergKis пишет: Пример (unicode hmg) тсб с codepage dbf Благодарю за помощь Также сделал совсем крошечный пример с использованием новой функции: [pre2]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 [/pre2]
Andrey: gfilatov2002 пишет: Также сделал совсем крошечный пример с использованием новой функции: А можно вообще обойтись без [pre2] DEFINE WINDOW &cForm TITLE ..... ..... [/pre2] А сразу так: [pre2]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[/pre2] Т.е. первое окно пускай создаётся MAIN, а потом другие WINDOWTYPE STANDARD ... NOWAIT Тогда на экране будет показаны сразу все нужные базы для просмотра. И кода меньше придётся писать....
SergKis: gfilatov2002 пишет Также сделал совсем крошечный пример с использованием новой функции: Пример 2 тсб на окне с использованием новой функции https://TransFiles.ru/cl7ds Andrey пишет И кода меньше придётся писать.... Окна делай сам, иначе несколько тсб на окне не выйдет, смотри пример
полная версия страницы