PDF Viewer DLL?

Moderator: Rathinagiri

KDJ
Posts: 178
Joined: Mon Sep 05, 2016 3:04 am
Location: Poland
Been thanked: 190 times

Re: PDF Viewer DLL?

Post by KDJ » Thu Apr 27, 2017 5:41 pm

Vagelis

Thank you very much, good idea.
But this is only partially solves the problem.
If you click on icon "Fit width and Show Pages Continously" or "Fit a Single Page" in toolbar, value of cZoom will not be changed.
I have an idea how to link the status of icons at toolbar with menu items and cZoom.
I will try to realize.

User avatar
vagblad
Posts: 95
Joined: Tue Jun 18, 2013 12:18 pm
DBs Used: MySQL,DBF
Location: Thessaloniki, Greece
Has thanked: 5 times
Been thanked: 10 times

Post by vagblad » Thu Apr 27, 2017 6:41 pm

Yes you are 100% correct. I think that SumatraPDF.exe is handling those events though and i couldn't think of a way to hook them with our .exe .
Vagelis Prodromidis
Email: vagblad@gmail.com, Skype: vagblad

KDJ
Posts: 178
Joined: Mon Sep 05, 2016 3:04 am
Location: Poland
Been thanked: 190 times

Post by KDJ » Sat Apr 29, 2017 9:22 pm

Below I posted new version of PdfView.

Added in PdfView.prg:
- save Zoom parameter ("Fit page", "Actual size", "Fit width"),
- option to hide main menu (Menu -> View -> Menu bar), if main menu is hidden, you can use LeftAlt to temporarily show the menu,
- option to expand/collapse all bookmarks (see Menu -> View -> Bookmarks),
- Russian translation (maybe someone translate into another language?).

Added in SumatraPDF.prg library:
- nZoom parameter in Sumatra_FileOpen(cPanel, cPdfFile, [nPage], [nZoom], [lBookmarks], [lToolbar], [cLanguage], [cSumatraPDFExe]),
- Sumatra_BookmarksExpand(cPanel, lExpand),
- Sumatra_ToolbarHandle(cPanel).

PdfView_source.zip
(16.92 KiB) Downloaded 58 times

User avatar
mol
Posts: 2856
Joined: Thu Sep 11, 2008 5:31 am
Location: Myszków, Poland
Has thanked: 125 times
Been thanked: 65 times
Contact:

Post by mol » Sun Apr 30, 2017 6:46 am

Brawo Ty! dzięki Krzychu!

edk
Posts: 171
Joined: Thu Oct 16, 2014 11:35 am
Location: Poland
Has thanked: 50 times
Been thanked: 99 times

Post by edk » Sun Apr 30, 2017 9:12 am

mol wrote:
Sun Apr 30, 2017 6:46 am
Brawo Ty! dzięki Krzychu!
+1

User avatar
Pablo César
Posts: 4058
Joined: Wed Sep 08, 2010 1:18 pm
Location: Curitiba - Brasil
Has thanked: 100 times
Been thanked: 177 times

Post by Pablo César » Sun Apr 30, 2017 2:21 pm

Thanks for your upgrade. :)

Let me make a little remark as a critic about the translations.

I know that even being suggestions can be interpreted as some demerit or criticism that is not constructive. Far from it. :oops:
My intention is to improve, sorry if I caused any embarrassment or thwarted some negative feeling. :|

I took more time to understanding universal language for translation. It would make easier for translator having the text in sequential order and pure text by quotes. Then for translation it would make easier. And the translation would make part outside of program too. :mrgreen:

Here's my contrib LangStr for Portuguese and Spanish :P :

Code: Select all

FUNCTION LangStr(cStr, lRemoveAmpersand)
  LOCAL cText

  IF ! HB_IsChar(cStr)
    RETURN { ;
             {"English",    "en"}, ;
             {"Polish",     "pl"}, ;
             {"Russian",    "ru"}, ;
             {"Portuguese", "pt"}, ;
             {"Spanish",    "es"}  ;
           }
  ENDIF

  cText := ""

  SWITCH cLang
    CASE "pl"
      SWITCH cStr
        CASE "File"         ; cText := "&Plik"                         ; EXIT
        CASE "Open"         ; cText := "&Otwórz"                       ; EXIT
        CASE "OpenPage"     ; cText := "Otwórz na &stronie..."         ; EXIT
        CASE "Close"        ; cText := "&Zamknij"                      ; EXIT
        CASE "SaveAs"       ; cText := "Z&apisz jako..."               ; EXIT
        CASE "Print"        ; cText := "&Drukuj..."                    ; EXIT
        CASE "Proper"       ; cText := "&Właściwości..."               ; EXIT
        CASE "Refresh"      ; cText := "Odświ&eż listę"                ; EXIT
        CASE "Exit"         ; cText := "Za&kończ"                      ; EXIT
        CASE "Page"         ; cText := "&Strona"                       ; EXIT
        CASE "GoTo"         ; cText := "Przejdź &do..."                ; EXIT
        CASE "Prev"         ; cText := "Poprz&ednia"                   ; EXIT
        CASE "Next"         ; cText := "&Następna"                     ; EXIT
        CASE "First"        ; cText := "&Pierwsza"                     ; EXIT
        CASE "Last"         ; cText := "&Ostatnia"                     ; EXIT
        CASE "Find"         ; cText := "&Znajdź"                       ; EXIT
        CASE "Text"         ; cText := "&Tekst,,,"                     ; EXIT
        CASE "PrevOccur"    ; cText := "&Poprzednie wystąpienie"       ; EXIT
        CASE "NextOccur"    ; cText := "&Następne wystąpienie"         ; EXIT
        CASE "Zoom"         ; cText := "&Rozmiar"                      ; EXIT
        CASE "SizeDn"       ; cText := "&Zmniejsz"                     ; EXIT
        CASE "SizeUp"       ; cText := "&Powiększ"                     ; EXIT
        CASE "ZoomFactor"   ; cText := "&Współczynnik powiękzenia..."  ; EXIT
        CASE "FitPage"      ; cText := "&Dopasuj do strony"            ; EXIT
        CASE "ActualSize"   ; cText := "&Rozmiar rzeczywisty"          ; EXIT
        CASE "FitWidth"     ; cText := "Dopasuj do &szerokości"        ; EXIT
        CASE "Rotate"       ; cText := "&Obrót"                        ; EXIT
        CASE "Left"         ; cText := "W &lewo"                       ; EXIT
        CASE "Right"        ; cText := "W &prawo"                      ; EXIT
        CASE "View"         ; cText := "&Widok"                        ; EXIT
        CASE "MenuBar"      ; cText := "Pasek &menu"                   ; EXIT
        CASE "Toolbar"      ; cText := "Pasek &narzędzi"               ; EXIT
        CASE "Bookmarks"    ; cText := "&Zakładki PDF"                 ; EXIT
        CASE "Show"         ; cText := "&Pokaż"                        ; EXIT
        CASE "ExpandAll"    ; cText := "&Rozwiń wszystkie"             ; EXIT
        CASE "CollapseAll"  ; cText := "&Zwiń wszystkie"               ; EXIT
        CASE "Settings"     ; cText := "&Ustawienia"                   ; EXIT
        CASE "OpenAtOnce"   ; cText := "&Otwieraj PDF od razu"         ; EXIT
        CASE "EscExit"      ; cText := "&Esc - kończy program"         ; EXIT
        CASE "SumatraDir"   ; cText := "&Katalog SumatraPDF"           ; EXIT
        CASE "Language"     ; cText := "&Język"                        ; EXIT

        CASE "AppRunning"   ; cText := "Program już jest uruchomiony!" ; EXIT
        CASE "NoDisk"       ; cText := "Dysk jest niedostępny!"        ; EXIT
        CASE "NoFile"       ; cText := "Plik nie istnieje!"            ; EXIT
        CASE "SetPath"      ; cText := "Ustaw ścieżkę do: "            ; EXIT
        CASE "ListRefresh"  ; cText := "Lista zostanie odświeżona."    ; EXIT
        CASE "OpenFilePage" ; cText := "Otwórz plik na stronie"        ; EXIT
        CASE "PageNum"      ; cText := "Numer strony:"                 ; EXIT
        CASE "SelFolder"    ; cText := "Wybierz folder SumatraPDF:"    ; EXIT

        CASE "Browse"       ; cText := "&Przeglądaj..."                ; EXIT
        CASE "OK"           ; cText := "OK"                            ; EXIT
        CASE "Cancel"       ; cText := "&Anuluj"                       ; EXIT
      ENDSWITCH
      EXIT
    CASE "ru"
      SWITCH cStr
        CASE "File"         ; cText := "файл"                       ; EXIT
        CASE "Open"         ; cText := "Открыть"                    ; EXIT
        CASE "OpenPage"     ; cText := "Открыть на странице..."     ; EXIT
        CASE "Close"        ; cText := "Закрыть"                    ; EXIT
        CASE "SaveAs"       ; cText := "Сохранить как..."           ; EXIT
        CASE "Print"        ; cText := "Печать..."                  ; EXIT
        CASE "Proper"       ; cText := "Свойства..."                ; EXIT
        CASE "Refresh"      ; cText := "Обновить список"            ; EXIT
        CASE "Exit"         ; cText := "Выход"                      ; EXIT
        CASE "Page"         ; cText := "Страница"                   ; EXIT
        CASE "GoTo"         ; cText := "Перейти к..."               ; EXIT
        CASE "Prev"         ; cText := "Предыдущая"                 ; EXIT
        CASE "Next"         ; cText := "Следущая"                   ; EXIT
        CASE "First"        ; cText := "Первая"                     ; EXIT
        CASE "Last"         ; cText := "Последняя"                  ; EXIT
        CASE "Find"         ; cText := "Найти"                      ; EXIT
        CASE "Text"         ; cText := "Текст..."                   ; EXIT
        CASE "PrevOccur"    ; cText := "Предыдущее вхождение"       ; EXIT
        CASE "NextOccur"    ; cText := "Следующее вхождение"        ; EXIT
        CASE "Zoom"         ; cText := "Масштаб"                    ; EXIT
        CASE "SizeDn"       ; cText := "Увеличить"                  ; EXIT
        CASE "SizeUp"       ; cText := "Уменьшить"                  ; EXIT
        CASE "ZoomFactor"   ; cText := "Указать масштаб..."         ; EXIT
        CASE "FitPage"      ; cText := "По размеру страницы"        ; EXIT
        CASE "ActualSize"   ; cText := "Настоящий размер"           ; EXIT
        CASE "FitWidth"     ; cText := "По ширине"                  ; EXIT
        CASE "Rotate"       ; cText := "Вращать"                    ; EXIT
        CASE "Left"         ; cText := "В лево"                     ; EXIT
        CASE "Right"        ; cText := "В право"                    ; EXIT
        CASE "View"         ; cText := "Вид"                        ; EXIT
        CASE "MenuBar"      ; cText := "Панель меню"                ; EXIT
        CASE "Toolbar"      ; cText := "Панель инструментов"        ; EXIT
        CASE "Bookmarks"    ; cText := "Закладки PDF"               ; EXIT
        CASE "Show"         ; cText := "Показать"                   ; EXIT
        CASE "ExpandAll"    ; cText := "Расширить все"              ; EXIT
        CASE "CollapseAll"  ; cText := "Свернуть все"               ; EXIT
        CASE "Settings"     ; cText := "Настройки"                  ; EXIT
        CASE "OpenAtOnce"   ; cText := "Открыть PDF немедленно"     ; EXIT
        CASE "EscExit"      ; cText := "Esc - выход"                ; EXIT
        CASE "SumatraDir"   ; cText := "Каталог SumatraPDF"         ; EXIT
        CASE "Language"     ; cText := "Язык"                       ; EXIT

        CASE "AppRunning"   ; cText := "Программа уже работает!"    ; EXIT
        CASE "NoDisk"       ; cText := "Диск не доступен!"          ; EXIT
        CASE "NoFile"       ; cText := "Файл не существует!"        ; EXIT
        CASE "SetPath"      ; cText := "Установить путь к: "        ; EXIT
        CASE "ListRefresh"  ; cText := "Список будет обновлен."     ; EXIT
        CASE "OpenFilePage" ; cText := "Открыть файл на странице"   ; EXIT
        CASE "PageNum"      ; cText := "Номер страницы:"            ; EXIT
        CASE "SelFolder"    ; cText := "Выберите папку SumatraPDF:" ; EXIT

        CASE "Browse"       ; cText := "Выбрать..."                 ; EXIT
        CASE "OK"           ; cText := "OK"                         ; EXIT
        CASE "Cancel"       ; cText := "Отмена"                     ; EXIT
      ENDSWITCH
      EXIT

    CASE "pt"
      SWITCH cStr
        CASE "File"         ; cText := "Arquivo"                          ; EXIT
        CASE "Open"         ; cText := "Abrir"                            ; EXIT
        CASE "OpenPage"     ; cText := "Abrir arquivo na página"          ; EXIT
        CASE "Close"        ; cText := "Fechar"                           ; EXIT
        CASE "SaveAs"       ; cText := "Salvar como"                      ; EXIT
        CASE "Print"        ; cText := "Imprimir"                         ; EXIT
        CASE "Proper"       ; cText := "Propriedades"                     ; EXIT
        CASE "Refresh"      ; cText := "Atualizar"                        ; EXIT
        CASE "Exit"         ; cText := "Sair"                             ; EXIT
        CASE "Page"         ; cText := "Página"                           ; EXIT
        CASE "GoTo"         ; cText := "Ir para"                          ; EXIT
        CASE "Prev"         ; cText := "Anterior"                         ; EXIT
        CASE "Next"         ; cText := "Próximo"                          ; EXIT
        CASE "First"        ; cText := "Primeiro"                         ; EXIT
        CASE "Last"         ; cText := "Ultimo"                           ; EXIT
        CASE "Find"         ; cText := "Procurar"                         ; EXIT
        CASE "Text"         ; cText := "Texto"                            ; EXIT
        CASE "PrevOccur"    ; cText := "Ocorrência anterior"              ; EXIT
        CASE "NextOccur"    ; cText := "Próxima ocorrência"               ; EXIT
        CASE "Zoom"         ; cText := "Visualização"                     ; EXIT
        CASE "SizeDn"       ; cText := "Diminuir"                         ; EXIT
        CASE "SizeUp"       ; cText := "Aumentar"                         ; EXIT
        CASE "ZoomFactor"   ; cText := "Nível de ampliação"               ; EXIT
        CASE "FitPage"      ; cText := "Ajuste de página"                 ; EXIT
        CASE "ActualSize"   ; cText := "Zoom automático"                  ; EXIT
        CASE "FitWidth"     ; cText := "Ajuste de largura"                ; EXIT
        CASE "Rotate"       ; cText := "Girar"                            ; EXIT
        CASE "Left"         ; cText := "Para a esquerda"                  ; EXIT
        CASE "Right"        ; cText := "Para a direita"                   ; EXIT
        CASE "View"         ; cText := "Exibir"                           ; EXIT
        CASE "MenuBar"      ; cText := "Barra de menú"                    ; EXIT
        CASE "Toolbar"      ; cText := "Barra de ferramentas"             ; EXIT
        CASE "Bookmarks"    ; cText := "Marcadores"                       ; EXIT
        CASE "Show"         ; cText := "Exibir"                           ; EXIT
        CASE "ExpandAll"    ; cText := "Expandir todos"                   ; EXIT
        CASE "CollapseAll"  ; cText := "Recolher todos"                   ; EXIT
        CASE "Settings"     ; cText := "Configurações"                    ; EXIT
        CASE "OpenAtOnce"   ; cText := "Abrir ao click"                   ; EXIT
        CASE "EscExit"      ; cText := "Esc - Fechar o programa"          ; EXIT
        CASE "SumatraDir"   ; cText := "Pasta do SumatraPDF"              ; EXIT
        CASE "Language"     ; cText := "Idiomas"                          ; EXIT
                                                                          
        CASE "AppRunning"   ; cText := "O programa já está em execução!"  ; EXIT
        CASE "NoDisk"       ; cText := "O disco está inacessível!"        ; EXIT
        CASE "NoFile"       ; cText := "O arquivo não existe!"            ; EXIT
        CASE "SetPath"      ; cText := "Defina o caminho para: "          ; EXIT
        CASE "ListRefresh"  ; cText := "A lista será atualizada."         ; EXIT
        CASE "OpenFilePage" ; cText := "Abrir arquivo na página"          ; EXIT
        CASE "PageNum"      ; cText := "Número de página:"                ; EXIT
        CASE "SelFolder"    ; cText := "Selecione a pasta do SumatraPDF:" ; EXIT
                                                                         
        CASE "Browse"       ; cText := "Localizar..."                     ; EXIT
        CASE "OK"           ; cText := "Ok"                               ; EXIT
        CASE "Cancel"       ; cText := "Cancelar"                         ; EXIT
      ENDSWITCH
      EXIT
    CASE "es"
      SWITCH cStr
        CASE "File"         ; cText := "Archivo"                          ; EXIT
        CASE "Open"         ; cText := "Abrir"                            ; EXIT
        CASE "OpenPage"     ; cText := "Abrir archivo en la página"       ; EXIT
        CASE "Close"        ; cText := "Cerrar"                           ; EXIT
        CASE "SaveAs"       ; cText := "Guardar como"                     ; EXIT
        CASE "Print"        ; cText := "Impresión"                        ; EXIT
        CASE "Proper"       ; cText := "Propriedades"                     ; EXIT
        CASE "Refresh"      ; cText := "Actualizar"                       ; EXIT
        CASE "Exit"         ; cText := "Salir"                            ; EXIT
        CASE "Page"         ; cText := "Página"                           ; EXIT
        CASE "GoTo"         ; cText := "Ir para"                          ; EXIT
        CASE "Prev"         ; cText := "Anterior"                         ; EXIT
        CASE "Next"         ; cText := "Próximo"                          ; EXIT
        CASE "First"        ; cText := "Primer"                           ; EXIT
        CASE "Last"         ; cText := "Ultimo"                           ; EXIT
        CASE "Find"         ; cText := "Procurar"                         ; EXIT
        CASE "Text"         ; cText := "Texto"                            ; EXIT
        CASE "PrevOccur"    ; cText := "Ocurrencia previa"                ; EXIT
        CASE "NextOccur"    ; cText := "Ocurrencia posterior"             ; EXIT
        CASE "Zoom"         ; cText := "Visualización"                    ; EXIT
        CASE "SizeDn"       ; cText := "Disminuir"                        ; EXIT
        CASE "SizeUp"       ; cText := "Aumentar"                         ; EXIT
        CASE "ZoomFactor"   ; cText := "Nivel del zoom"                   ; EXIT
        CASE "FitPage"      ; cText := "Ajuste de página"                 ; EXIT
        CASE "ActualSize"   ; cText := "Zoom automático"                  ; EXIT
        CASE "FitWidth"     ; cText := "Ajuste del ancho"                 ; EXIT
        CASE "Rotate"       ; cText := "Girar"                            ; EXIT
        CASE "Left"         ; cText := "Hacia la izquierda"               ; EXIT
        CASE "Right"        ; cText := "Hacia la derecha"                 ; EXIT
        CASE "View"         ; cText := "Exibición"                        ; EXIT
        CASE "MenuBar"      ; cText := "Barra de menú"                    ; EXIT
        CASE "Toolbar"      ; cText := "Barra de herramientas"            ; EXIT
        CASE "Bookmarks"    ; cText := "Marcadores"                       ; EXIT
        CASE "Show"         ; cText := "Exibir"                           ; EXIT
        CASE "ExpandAll"    ; cText := "Expandir todos"                   ; EXIT
        CASE "CollapseAll"  ; cText := "Retraer todos"                    ; EXIT
        CASE "Settings"     ; cText := "Configuraciones"                  ; EXIT
        CASE "OpenAtOnce"   ; cText := "Abrir de inmediato"               ; EXIT
        CASE "EscExit"      ; cText := "Esc - Cierre del programa"        ; EXIT
        CASE "SumatraDir"   ; cText := "Carpeta del SumatraPDF"           ; EXIT
        CASE "Language"     ; cText := "Idiomas"                          ; EXIT
                                                                          
        CASE "AppRunning"   ; cText := "El programa ya está en marcha!"   ; EXIT
        CASE "NoDisk"       ; cText := "El disco es inaccesible!"         ; EXIT
        CASE "NoFile"       ; cText := "El archivo no existe!"            ; EXIT
        CASE "SetPath"      ; cText := "Fije la ruta"                     ; EXIT
        CASE "ListRefresh"  ; cText := "Se actualizará la lista."         ; EXIT
        CASE "OpenFilePage" ; cText := "Abrir archivo en la página"       ; EXIT
        CASE "PageNum"      ; cText := "Número de página"                 ; EXIT
        CASE "SelFolder"    ; cText := "Seleccione la carpeta SumatraPDF" ; EXIT
                                                                         
        CASE "Browse"       ; cText := "Buscar ..."                       ; EXIT
        CASE "OK"           ; cText := "Ok"                               ; EXIT
        CASE "Cancel"       ; cText := "Cancelar"                         ; EXIT
      ENDSWITCH
      EXIT
  ENDSWITCH

  IF Empty(cText)
    SWITCH cStr
      CASE "File"         ; cText := "&File"                       ; EXIT
      CASE "Open"         ; cText := "&Open"                       ; EXIT
      CASE "OpenPage"     ; cText := "Open &at page..."            ; EXIT
      CASE "Close"        ; cText := "&Close"                      ; EXIT
      CASE "SaveAs"       ; cText := "&Save as..."                 ; EXIT
      CASE "Print"        ; cText := "&Print..."                   ; EXIT
      CASE "Proper"       ; cText := "Prop&erties..."              ; EXIT
      CASE "Refresh"      ; cText := "&Refresh list"               ; EXIT
      CASE "Exit"         ; cText := "E&xit"                       ; EXIT
      CASE "Page"         ; cText := "&Page"                       ; EXIT
      CASE "GoTo"         ; cText := "&Go to..."                   ; EXIT
      CASE "Prev"         ; cText := "&Previous"                   ; EXIT
      CASE "Next"         ; cText := "&Next"                       ; EXIT
      CASE "First"        ; cText := "&First"                      ; EXIT
      CASE "Last"         ; cText := "&Last"                       ; EXIT
      CASE "Find"         ; cText := "Fi&nd"                       ; EXIT
      CASE "Text"         ; cText := "&Text..."                    ; EXIT
      CASE "PrevOccur"    ; cText := "&Previous occurence"         ; EXIT
      CASE "NextOccur"    ; cText := "&Next occurence"             ; EXIT
      CASE "Zoom"         ; cText := "&Zoom"                       ; EXIT
      CASE "SizeDn"       ; cText := "Size &down"                  ; EXIT
      CASE "SizeUp"       ; cText := "Size &up"                    ; EXIT
      CASE "ZoomFactor"   ; cText := "&Zoom factor..."             ; EXIT
      CASE "FitPage"      ; cText := "Fit &page"                   ; EXIT
      CASE "ActualSize"   ; cText := "&Actual size"                ; EXIT
      CASE "FitWidth"     ; cText := "Fit &width"                  ; EXIT
      CASE "Rotate"       ; cText := "&Rotate"                     ; EXIT
      CASE "Left"         ; cText := "&Left"                       ; EXIT
      CASE "Right"        ; cText := "&Right"                      ; EXIT
      CASE "View"         ; cText := "&View"                       ; EXIT
      CASE "MenuBar"      ; cText := "&Menu bar"                   ; EXIT
      CASE "Toolbar"      ; cText := "&Toolbar"                    ; EXIT
      CASE "Bookmarks"    ; cText := "PDF &bookmarks"              ; EXIT
      CASE "Show"         ; cText := "&Show"                       ; EXIT
      CASE "ExpandAll"    ; cText := "&Expand all"                 ; EXIT
      CASE "CollapseAll"  ; cText := "&Collapse all"               ; EXIT
      CASE "Settings"     ; cText := "&Settings"                   ; EXIT
      CASE "OpenAtOnce"   ; cText := "&Open PDF immediately"       ; EXIT
      CASE "EscExit"      ; cText := "&Esc - exit program"         ; EXIT
      CASE "SumatraDir"   ; cText := "&SumatraPDF directory"       ; EXIT
      CASE "Language"     ; cText := "&Language"                   ; EXIT

      CASE "AppRunning"   ; cText := "Program already is running!" ; EXIT
      CASE "NoDisk"       ; cText := "Disk is not available!"      ; EXIT
      CASE "NoFile"       ; cText := "File does not exist!"        ; EXIT
      CASE "SetPath"      ; cText := "Set path to: "               ; EXIT
      CASE "ListRefresh"  ; cText := "List will be refreshed."     ; EXIT
      CASE "OpenFilePage" ; cText := "Open file at page"           ; EXIT
      CASE "PageNum"      ; cText := "Page number:"                ; EXIT
      CASE "SelFolder"    ; cText := "Select SumatraPDF folder:"   ; EXIT

      CASE "Browse"       ; cText := "&Browse..."                  ; EXIT
      CASE "OK"           ; cText := "OK"                          ; EXIT
      CASE "Cancel"       ; cText := "&Cancel"                     ; EXIT
    ENDSWITCH
  ENDIF

  IF lRemoveAmpersand == .T.
    cText := StrTran(cText, "&", "", 1, 1)
  ENDIF

RETURN cText
I have another suggestion for improving folders/files:

TREE would gives a better apresentation and better for localization pdf files instead og grid.

When we have a lot of files, a lot of folders too becomes hard to localizate folder/file in this first grid.

I use to type the initial character to localizate my folder and my file.

Observación/Observação:
  • Para aquellos que puedan mejorar el idioma español que hé aplicado, por favor sientase libre en hacerlo. Puedo haber cometido falta de una mejor expresión.
  • O mesmo peço para o que possam melhorar o português, sintam-se a vontade de fazê-lo. Posso não ter me expressado da melhor forma.
HMGing a better world
"Matter tells space how to curve, space tells matter how to move."
Albert Einstein

KDJ
Posts: 178
Joined: Mon Sep 05, 2016 3:04 am
Location: Poland
Been thanked: 190 times

Post by KDJ » Sun Apr 30, 2017 3:48 pm

Pablo

Thank you very much for your contribution to the translations.
Now we have multilingual PdfView.

PdfView_source.zip
(17.99 KiB) Downloaded 52 times

User avatar
quartz565
Posts: 467
Joined: Mon Oct 01, 2012 12:37 pm
Location: Thessaloniki, Greece
Has thanked: 111 times
Been thanked: 11 times
Contact:

Post by quartz565 » Sun Apr 30, 2017 4:44 pm

Thank you Krzysztof and Pablo !
I hope Vagelis to translate it into Greek...
Best Regards,
Nikos.

os: Windows Server 2012 - 64
hw: HP Server E5606, 2.13GHz, 8.00 GB - Intel Xeon CPU

User avatar
quartz565
Posts: 467
Joined: Mon Oct 01, 2012 12:37 pm
Location: Thessaloniki, Greece
Has thanked: 111 times
Been thanked: 11 times
Contact:

Post by quartz565 » Sun Apr 30, 2017 5:12 pm

[
Pablo César wrote:
Sun Apr 30, 2017 2:21 pm

Here's my contrib LangStr for Portuguese and Spanish :P :

Pablo ,
I was hoping after you have so many written Greek here , you will also make the translation in Greek to :lol: :D
Best Regards,
Nikos.

os: Windows Server 2012 - 64
hw: HP Server E5606, 2.13GHz, 8.00 GB - Intel Xeon CPU

User avatar
Pablo César
Posts: 4058
Joined: Wed Sep 08, 2010 1:18 pm
Location: Curitiba - Brasil
Has thanked: 100 times
Been thanked: 177 times

Post by Pablo César » Sun Apr 30, 2017 5:15 pm

quartz565 wrote:
Sun Apr 30, 2017 5:12 pm
[
Pablo César wrote:
Sun Apr 30, 2017 2:21 pm

Here's my contrib LangStr for Portuguese and Spanish :P :

Pablo ,
I was hoping after you have so many written Greek here , you will also make the translation in Greek to :lol: :D
:lol: :lol: :D

Sorry φίλος. I think you and Vagelis could it make a little better than me... just a little.. :lol:
HMGing a better world
"Matter tells space how to curve, space tells matter how to move."
Albert Einstein

Post Reply