Vydané zdroje

CH-J Server Manager

Procházejte adresáře a soubory konkrétního vydání aplikace.

Zdroje jsou zveřejněny pod CH-J Proprietary Software License 1.14. Jejich dostupnost nemění licenční podmínky ani neposkytuje další oprávnění.

2,4 KB · 62 řádkůStáhnout soubor

1!include "MUI2.nsh"

2!include "LogicLib.nsh"

3!include "nsDialogs.nsh"

4!include "WinMessages.nsh"

6!ifndef BUILD_UNINSTALLER

7Var ChjGuidanceDialog

8Var ChjGuidanceText

9Var ChjGuidanceFile

10Var ChjGuidanceLine

12LangString ChjGuidanceTitle 1029 "Provozní bezpečnost a zálohování"

13LangString ChjGuidanceTitle 1031 "Betriebssicherheit und Datensicherung"

14LangString ChjGuidanceTitle 1033 "Operational safety and backups"

LangString ChjGuidanceNote 1029 "Informativní a nezávazné pokyny. Další krok zobrazí licenci; souhlas se týká pouze licence."

LangString ChjGuidanceNote 1031 "Informative, unverbindliche Hinweise. Danach folgt die Lizenz; nur diese erfordert Zustimmung."

LangString ChjGuidanceNote 1033 "Informational, non-binding guidance. The license follows; agreement applies only to the license."

19!macro customWelcomePage

20 Page custom ChjGuidanceCreate

21!macroend

23Function ChjGuidanceCreate

24 !insertmacro MUI_HEADER_TEXT "$(ChjGuidanceTitle)" "$(ChjGuidanceNote)"

25 nsDialogs::Create 1018

26 Pop $ChjGuidanceDialog

27 ${If} $ChjGuidanceDialog == error

28 Quit

29 ${EndIf}

30 ${NSD_CreateLabel} 0 0 100% 24u "$(ChjGuidanceNote)"

31 Pop $0

  nsDialogs::CreateControl "EDIT" ${WS_CHILD}|${WS_VISIBLE}|${WS_TABSTOP}|${WS_VSCROLL}|${ES_MULTILINE}|${ES_READONLY}|${ES_AUTOVSCROLL} ${WS_EX_CLIENTEDGE} 0 26u 100% 110u ""

33 Pop $ChjGuidanceText

34 SendMessage $ChjGuidanceText ${EM_SETLIMITTEXT} 65535 0

35 InitPluginsDir

36 File /oname=$PLUGINSDIR\chj-guidance-cs.txt "${BUILD_RESOURCES_DIR}\guidance-cs.txt"

37 File /oname=$PLUGINSDIR\chj-guidance-de.txt "${BUILD_RESOURCES_DIR}\guidance-de.txt"

38 File /oname=$PLUGINSDIR\chj-guidance-en.txt "${BUILD_RESOURCES_DIR}\guidance-en.txt"

39 ${If} $LANGUAGE == 1029

40 FileOpen $ChjGuidanceFile "$PLUGINSDIR\chj-guidance-cs.txt" r

41 ${ElseIf} $LANGUAGE == 1031

42 FileOpen $ChjGuidanceFile "$PLUGINSDIR\chj-guidance-de.txt" r

43 ${Else}

44 FileOpen $ChjGuidanceFile "$PLUGINSDIR\chj-guidance-en.txt" r

45 ${EndIf}

46 ${If} ${Errors}

47 Quit

48 ${EndIf}

49 FileSeek $ChjGuidanceFile 2 SET

50 chj_guidance_read:

51 ClearErrors

52 FileReadUTF16LE $ChjGuidanceFile $ChjGuidanceLine

53 IfErrors chj_guidance_done

54 SendMessage $ChjGuidanceText ${EM_REPLACESEL} 0 "STR:$ChjGuidanceLine"

55 Goto chj_guidance_read

56 chj_guidance_done:

57 FileClose $ChjGuidanceFile

58 SendMessage $ChjGuidanceText ${EM_SETSEL} 0 0

59 SendMessage $ChjGuidanceText ${EM_SCROLLCARET} 0 0

60 nsDialogs::Show

61FunctionEnd

62!endif

SHA-256: 0c18401e251fc8c22058bb95b34a6a503c1a1b5b6c8489c7940002d01834a54f

SHA-256 archivu: 5ac91caf4fa32a6fdb114f2430deed486fbe7489d5eea343d1f034169fafb5e0