diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..568e636 --- /dev/null +++ b/.gitignore @@ -0,0 +1,2 @@ +screenshot.png +*.png \ No newline at end of file diff --git a/Forms/MarkerEdit.pbf b/Forms/MarkerEdit.pbf new file mode 100644 index 0000000..4d94df9 --- /dev/null +++ b/Forms/MarkerEdit.pbf @@ -0,0 +1,40 @@ +; +; This code is automatically generated by the FormDesigner. +; Manual modification is possible to adjust existing commands, but anything else will be dropped when the code is compiled. +; Event procedures needs to be put in another source file. +; + +Global WindowMarkerEdit + +Global TextIdentifier, TextLegend, StringIdentifier, EditorLegend + + +Procedure OpenWindowMarkerEdit(x = 0, y = 0, width = 300, height = 100) + WindowMarkerEdit = OpenWindow(#PB_Any, x, y, width, height, Marker Edit, #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_WindowCentered | #PB_Window_NoGadgets) + TextIdentifier = TextGadget(#PB_Any, 2, 2, 80, 25, Identifier) + TextLegend = TextGadget(#PB_Any, 2, 27, 80, 25, Legend) + StringIdentifier = StringGadget(#PB_Any, 84, 2, 120, 25, "") + EditorLegend = EditorGadget(#PB_Any, 84, 27, 210, 70) +EndProcedure + +Procedure WindowMarkerEdit_Events(event) + Select event + Case #PB_Event_CloseWindow + ProcedureReturn #False + + Case #PB_Event_Menu + Select EventMenu() + EndSelect + + Case #PB_Event_Gadget + Select EventGadget() + EndSelect + EndSelect + ProcedureReturn #True +EndProcedure + + +; IDE Options = PureBasic 5.50 (Windows - x64) +; CursorPosition = 11 +; Folding = - +; EnableXP \ No newline at end of file diff --git a/gettext.pbi b/gettext.pbi new file mode 100644 index 0000000..c5f5b7e --- /dev/null +++ b/gettext.pbi @@ -0,0 +1,29 @@ +Procedure.s gettext(String.s = "") + Protected Language.s = "EN_en" + + Select Language + + Case "EN_en" + ProcedureReturn String + + Case "FR_fr" + + Select String + + Case "Identifier" + ProcedureReturn("Identificateur") + + Default + ProcedureReturn String + + EndSelect + + Default + ProcedureReturn String + + EndSelect +EndProcedure +; IDE Options = PureBasic 5.50 (Windows - x64) +; CursorPosition = 21 +; Folding = - +; EnableXP \ No newline at end of file diff --git a/screenshot.png b/screenshot.png new file mode 100644 index 0000000..a1b937d Binary files /dev/null and b/screenshot.png differ