v1.9

add i18n

Author: cdhigh

MainForm.frm

@@ -300,6 +300,9 @@ Begin VB.Form FrmMain
          Caption         =   "Use Relative Position(&R)"
          Checked         =   -1  'True
       End
+      Begin VB.Menu mnuI18n 
+         Caption         =   "Support i18n(&I)"
+      End
       Begin VB.Menu mnuUnicodePrefixU 
          Caption         =   "Add A Prefix 'u' to Unicode String(&U)"
       End
@@ -398,6 +401,7 @@ Private Sub Form_Load()
     mnuV2andV3Code.Checked = GetSetting(App.Title, "Settings", "V2andV3Code", "0") = "1"
     mnuUseTtk.Checked = GetSetting(App.Title, "Settings", "UseTtk", "1") = "1"
     mnuRelPos.Checked = GetSetting(App.Title, "Settings", "RelPos", "1") = "1"
+    mnuI18n.Checked = GetSetting(App.Title, "Settings", "i18n", "1") = "1"
     mnuUnicodePrefixU.Checked = GetSetting(App.Title, "Settings", "UnicodePrefix", "0") = "1"
     g_bUnicodePrefixU = mnuUnicodePrefixU.Checked
 
@@ -937,11 +941,12 @@ Private Sub TryAssignScrollbar2Widgets()
 
 End Sub
 
+'创建代码
 Private Sub CmdGenCode_Click()
-    
-    Dim I As Long, cnt As Long, o As Object
-    Dim strHead As New cStrBuilder, strOut As New cStrBuilder, strCmd As New cStrBuilder, s As String, finalCode As String, sF As String
-    Dim OutOnlyV3 As Boolean, OutRelPos As Boolean, usettk As Boolean
+    Dim I As Long, cnt As Long, o As Object, sysImport As String
+    Dim strHead As New cStrBuilder, strOut As New cStrBuilder, strCmd As New cStrBuilder, strI18n As New cStrBuilder, strTmp As New cStrBuilder
+    Dim s As String, finalCode As String, sF As String
+    Dim OutOnlyV3 As Boolean, OutRelPos As Boolean, i18n As Boolean, usettk As Boolean
     Dim bUnicodePrefix As Boolean  '临时保存UNICODE前缀方式
     Dim aCompsSorted() As Object '用于排序的代码输出
 
@@ -962,9 +967,10 @@ Private Sub CmdGenCode_Click()
 
     OutOnlyV3 = Not mnuV2andV3Code.Checked
     OutRelPos = mnuRelPos.Checked
+    i18n = mnuI18n.Checked
     usettk = mnuUseTtk.Checked
 
-    '绝对坐标
+    '绝对坐标BUG提示
 '    If Not OutRelPos And m_curFrm.Properties("ScaleMode") <> vbTwips Then
 '        '如果使用绝对坐标，则Frame控件仅支持vbTwips模式
 '        For Each o In m_curFrm.Designer.VBControls
@@ -983,10 +989,11 @@ Private Sub CmdGenCode_Click()
     '在输出代码前先更新一下当前显示的数据
     UpdateCfgtoCls LstComps.ListIndex
 
+    sysImport = IIf(i18n, "import os, sys, gettext", "import os, sys")
     If OutOnlyV3 Then                                                           '输出仅针对PYTHON 3.X的代码
         strHead.Append "#!/usr/bin/env python3"
         strHead.Append "#-*- coding:utf-8 -*-" & vbCrLf
-        strHead.Append "import os, sys"
+        strHead.Append sysImport
         strHead.Append "from tkinter import *"
         strHead.Append "from tkinter.font import Font"
         If usettk Then strHead.Append "from tkinter.ttk import *"
@@ -1001,7 +1008,7 @@ Private Sub CmdGenCode_Click()
     Else
         strHead.Append "#!/usr/bin/env python"
         strHead.Append "#-*- coding:utf-8 -*-" & vbCrLf
-        strHead.Append "import os, sys"
+        strHead.Append sysImport
         strHead.Append "if sys.version_info[0] == 2:"
         strHead.Append "    from Tkinter import *"
         strHead.Append "    from tkFont import Font"
@@ -1047,26 +1054,39 @@ Private Sub CmdGenCode_Click()
         End If
     Next
 
+    '国际化支持函数头
+    If i18n Then
+        strI18n.Append vbCrLf & "    def retranslateUi(self):"
+    End If
+    
+    '命令回调代码块
+    strTmp.Reset
+    If i18n Then
+        strTmp.Append vbCrLf & "        tr = gettext.translation('lang', localedir='i18n', languages=['en'], fallback=True)"
+        strTmp.Append "        tr.install()"
+        strTmp.Append "        self.retranslateUi()"
+    End If
     strCmd.Append vbCrLf
     strCmd.Append "class Application(Application_ui):"
-    strCmd.Append "    " & L("l_cmtClsApp", "#The class will implement callback function for events and your logical code.")
-    strCmd.Append "    def __init__(self, master=None):"
+    strCmd.Append "    def __init__(self, master):"
     If OutOnlyV3 Then
-        strCmd.Append "        super().__init__(master)" & vbCrLf
+        strCmd.Append "        super().__init__(master)" & strTmp.toString(vbCrLf) & vbCrLf
     Else
-        strCmd.Append "        Application_ui.__init__(self, master)" & vbCrLf
+        strCmd.Append "        Application_ui.__init__(self, master)" & strTmp.toString(vbCrLf) & vbCrLf
     End If
+    strTmp.Reset
 
+    '主GUI代码块
     strOut.Append "class Application_ui(Frame):"
-    strOut.Append "    " & L("l_cmtClsUi", "#The class will create all widgets for UI.")
-    strOut.Append "    def __init__(self, master=None):"
+    strOut.Append "    def __init__(self, master):"
     If OutOnlyV3 Then
         strOut.Append "        super().__init__(master)"
     Else
         strOut.Append "        Frame.__init__(self, master)"
     End If
-    g_Comps(0).toString strOut, strCmd, OutRelPos, usettk  'g_Comps(0)固定是Form
+    g_Comps(0).toString strOut, strCmd, strI18n, OutRelPos, usettk  'g_Comps(0)固定是Form
     strOut.Append "        self.createWidgets()" & vbCrLf
+    
     strOut.Append "    def createWidgets(self):"
     strOut.Append "        self." & WTOP & " = self.winfo_toplevel()" & vbCrLf
     If usettk Then strOut.Append "        self.style = Style()" & vbCrLf
@@ -1086,18 +1106,19 @@ Private Sub CmdGenCode_Click()
 
     '遍历各控件，由各控件自己输出自己的界面生成代码
     For I = 0 To cnt - 1
-        aCompsSorted(I).toString strOut, strCmd, OutRelPos, usettk
+        aCompsSorted(I).toString strOut, strCmd, strI18n, OutRelPos, usettk
         strOut.Append ""  '两个控件之间使用一个空行隔开
     Next
 
-    '输出到文本框
+    '拼接各部分代码，输出到文本框
+    If Not i18n Then
+        strI18n.Reset
+    End If
     strCmd.Append "if __name__ == ""__main__"":"
     strCmd.Append "    " & WTOP & " = Tk()"
     strCmd.Append "    Application(" & WTOP & ").mainloop()"
     strCmd.Append vbCrLf
-    'strCmd.Append "    try: " & WTOP & ".destroy()"
-    'strCmd.Append "    except: pass" & vbCrLf
-    finalCode = strHead.toString(vbCrLf) & strOut.toString(vbCrLf) & strCmd.toString(vbCrLf)
+    finalCode = strHead.toString(vbCrLf) & strOut.toString(vbCrLf) & strI18n.toString(vbCrLf) & strCmd.toString(vbCrLf)
 
     'VB的TEXTBOX最多支持65K文本
     If Len(finalCode) > 65000 Then
@@ -1117,9 +1138,9 @@ Private Sub CmdGenCode_Click()
     strOut.Reset
     strHead.Reset
     strCmd.Reset
+    strI18n.Reset
 
     g_bUnicodePrefixU = bUnicodePrefix    '恢复UNICODE前缀模式
-    
 End Sub
 
 '输入自定义的Tooltip类
@@ -1549,8 +1570,13 @@ Private Sub mnuGenCode_Click()
     CmdGenCode_Click
 End Sub
 
+Private Sub mnuI18n_Click()
+    Dim o As Object
+    mnuI18n.Checked = Not mnuI18n.Checked
+    SaveSetting App.Title, "Settings", "i18n", IIf(mnuI18n.Checked, "1", "0")
+End Sub
+
 Private Sub mnuLng_Click(Index As Integer)
-    
     Dim I As Long
 
     If m_nLngNum = 0 Then Exit Sub
@@ -1563,11 +1589,9 @@ Private Sub mnuLng_Click(Index As Integer)
     SaveSetting App.Title, "Settings", "Language", mnuLng(Index).Caption
 
     ChangeLanguage (mnuLng(Index).Caption)
-    
 End Sub
 
 Private Sub mnuSaveAll_Click()
-    
     Dim sF As String
     sF = FileDialog(Me, True, L("l_fdSave", "Save file to:"), "*.py", m_prevsf)
 
@@ -1577,7 +1601,6 @@ Private Sub mnuSaveAll_Click()
     End If
 
     m_prevsf = sF
-    
 End Sub
 
 '仅输出界面生成类，用于之前已经建好框架，并且也写了一些代码，现在修改空间布局，不用影响其他代码
@@ -1704,9 +1727,7 @@ Private Sub mnuRefreshForms_Click()
 End Sub
 
 Private Sub mnuRelPos_Click()
-    
     Dim o As Object
-    
     mnuRelPos.Checked = Not mnuRelPos.Checked
 
     '绝对坐标

Readme.md

@@ -75,7 +75,8 @@ Readme of english version refers to [Readme_EN.md](https://github.com/cdhigh/tki
     Python文本框有两种：Entry和Text，如果VB的TextBox的MultiLine=False，则
     生成Entry，否则生成Text。
 4. **Frame**    
-    对应Python的LabelFrame控件，做为其他控件的容器，或做为界面元素视觉分类。
+    对应Python的Frame或LabelFrame控件，做为其他控件的容器，或做为界面元素视觉分类。    
+    有Caption时生成LabelFrame，否则生成Frame。
 5. **CommandButton**    
     对应Python的Button，没有太多区别。
     为了代码简洁，窗体的退出按钮可以设置Cancel属性为True，然后程序自动生成
@@ -195,7 +196,11 @@ Readme of english version refers to [Readme_EN.md](https://github.com/cdhigh/tki
 2. 插件不支持使用控件数组，界面可以显示，但是后面的同名控件名会覆盖前面定义的，导致在代码中无法再和此控件互动。
 3. VB窗体的ScaleMode建议保持默认值(vbTwips)，如果要设置为其他值，则Frame控件内就不要再放Frame控件了，否则其内部的控件布局错误。
 4. 如果需要简体汉字界面，则需要Vb6Tkinter.lng文件在Vb6Tkinter.dll同一目录。
-5. 此插件支持更多的一些便捷特性，分散在版本历史中，这里就不一一列举了，有需要的可以去了解。
+5. 界面设计往往需要经历多次修改，如果某些属性不使用Vb6Tkinter生成的默认值，则有可能下次修改界面时忘记同步修改，导致界面错误，此时可以修改对应控件的Tag属性为下面两个格式任何一个：
+- `p@属性1@属性2@属性n`
+- `p@属性1=值1@属性2=值2@属性n=值n`
+每个属性的值可以忽略，忽略值属性则自动选中对应属性，不修改值。
+6. 此插件支持更多的一些便捷特性，分散在版本历史中，这里就不一一列举了，有需要的可以去了解。
 
 
 
@@ -205,12 +210,15 @@ Readme of english version refers to [Readme_EN.md](https://github.com/cdhigh/tki
   只是要注意以下几个ttk的BUG：    
 1. TTK的Entry和Combobox控件背景色设置无效（可以设置，不报错，但是界面不变）。
 2. LabelFrame和Notebook控件的字体单独设置无效，但是可以设置ttk的全局字体属性来改变，比如：self.style.configure('.', font=('宋体',12))。
-3. Python 2.7.3附带的ttk中的Treeview字体设置无效，但3.2.3及之后的的Treeview的字体设置有效。
 
 
 
 
 # 版本历史
+*  v1.9
+    1. 支持生成GUI国际化代码（gettext）
+*  v1.8.1
+    1. 根据Caption属性自动转换Frame为LabelFrame或Frame
 *  v1.8
     1. 删除结构化代码生成逻辑，仅生成面向对象代码
     2. ListBox添加 (MultiSelect -> selectmode) 属性对应转换

Readme_EN.md

@@ -80,7 +80,8 @@ There are two methods, choose either:
     Python offers two types of text boxes: Entry and Text. If VB's TextBox has property MultiLine=False, it generates an Entry; otherwise, it produces a Text.    
 
 4. **Frame**   
-    Corresponding to Python's LabelFrame widget, the Frame acts as a container for other controls or visually classifies interface elements.  
+    Corresponding to Python's LabelFrame widget, the Frame acts as a container for other controls or visually classifies interface elements.     
+    A LabelFrame will be placed if the property "Caption" is not empty, otherwise, will be a Frame.
 
 5. **CommandButton**
     Corresponding to Python's Button with minimal differences. For concise code, setting the Cancel property to True for the form's exit button generates the Tkinter destroy callback, eliminating the need for a separate callback function. In VB, prefixing a letter with "&" directly binds a shortcut key 'Alt + corresponding letter'(forexample &A). Vb6Tkinter supports this, automatically generating the associated event binding code. The same approach applies to other controls with a "Caption" property, such as CheckBox.   
@@ -168,7 +169,13 @@ There are two methods, choose either:
 
 4. For a Simplified Chinese addin interface, the Vb6Tkinter.lng file should be in the same directory as Vb6Tkinter.dll.
 
-5. The addin offers additional convenient features scattered throughout its version changelog. Here, we won't list them all, but those interested can explore them as needed. 
+5. GUI design often requires multiple iterations. If certain properties deviate from the default values generated by Vb6Tkinter, there's a risk of forgetting to update them during subsequent modifications, potentially causing GUI errors. To address this, you can update the corresponding control's `Tag` property using one of the following formats:  
+- `p@property1@property2@propertyN`  
+- `p@property1=value1@property2=value2@propertyN=valueN`  
+
+In this notation, you can omit the value of any property. When a value is omitted, the corresponding property is automatically selected without altering its value.
+
+6. The addin offers additional convenient features scattered throughout its version changelog. Here, we won't list them all, but those interested can explore them as needed. 
 
 
 
@@ -177,12 +184,15 @@ The standard built-in ttk themes extension provides native style on different op
 
 1. Setting the background color for TTK's Entry and Combobox controls is ineffective (you can set it without errors, but the interface remains unchanged).  
 2. Individually setting the font for LabelFrame and Notebook controls has no effect, but you can use ttk's global font attributes to change it, for example: `self.style.configure('.', font=('Arial', 12))`.  
-3. Font settings for Treeview in ttk accompanying Python 2.7.3 are ineffective, but they work for Treeview in version 3.2.3 and later.  
 
 
 
 
 # Changelog    
+*  v1.9
+    1. Supported I18N feature (gettext)
+*  v1.8.1
+    1. Frame of VB will be translated to LabelFrame or Frame of tkinter automatically.  
 *  v1.8
     1. Generate oop code only.
     2. Add an interpretation of property (MultiSelect -> selectmode) of ListBox.

Vb6Tkinter.lng

@@ -14,6 +14,7 @@ mnuOptions=ѡ
 mnuV2andV3Code=����Python 2.x/3.x���ݴ���(&C)
 mnuUseTtk=����TTK�����(&T)
 mnuRelPos=ʹ���������(&R)
+mnuI18n=֧��I18n(&I)
 mnuUnicodePrefixU=Unicode�ַ�������ǰ׺u(&U)
 mnuPythonExe=����Python.exe�(&E)...
 mnuTools=����(&T)
@@ -84,8 +85,6 @@ l_msgEncodeResultTooLong=ת
 l_msgCodeTooBig=���ɵĴ����ģ̫���ı���װ���£���ѡ��һ���ļ�ֱ�����ڱ�������
 l_fdOpen=��ѡ���ļ���
 l_fdSave=���ļ����浽��
-l_cmtClsApp=#�����ʵ�־�����¼������ص��������������ɴ�����Application_ui�С�
-l_cmtClsUi=#������ʵ�ֽ������ɹ��ܣ������¼���������������Application�С�
 l_cmtgComps=#���пؼ��Ϳؼ��󶨱��������ֵ䣬ʹ������ֵ���Ϊ�˷����������������������пؼ���
 l_cmtTodoCols=#TODO���������ӱ����б�����һ�й̶�Ϊ������ʾ
 l_cmtTodoDisCols=#TODO������������ʾ�����б�����һ�й̶�Ϊ������ʾ
@@ -222,6 +221,7 @@ mnuOptions=Options(&O)
 mnuV2andV3Code=Compatible Code for Python 2.x/3.x(&C)
 mnuUseTtk=Use TTK Themed Library(&T)
 mnuRelPos=Use Relative Position(&R)
+mnuI18n=Support i18n(&I)
 mnuUnicodePrefixU=Add A Prefix 'u' to Unicode String(&U)
 mnuPythonExe=Set diretory of python.exe(&E)...
 mnuTools=Tools(&T)
@@ -292,8 +292,6 @@ l_msgEncodeResultTooLong=Size of encoded string is too big to load into TextBox,
 l_msgCodeTooBig=Size of generated code is too big to load into TextBox, please choose a file to save it.
 l_fdOpen=Please Choose file:
 l_fdSave=Save file to:
-l_cmtClsApp=#The class will implement callback function for events and your logical code.
-l_cmtClsUi=#The class will create all widgets for UI.
 l_cmtgComps=#Global dictionary of widgets for using in others functions.
 l_cmtTodoCols=#TODO Add list of titles here, first column fixed for tree view.
 l_cmtTodoDisCols=#TODO Add list of titles will be displayed, first column fixed for tree view.

Vb6Tkinter.vbp

@@ -63,7 +63,7 @@ CompatibleMode="2"
 CompatibleEXE32="Release\Vb6Tkinter.dll"
 VersionCompatible32="1"
 MajorVer=1
-MinorVer=8
+MinorVer=9
 RevisionVer=0
 AutoIncrementVer=0
 ServerSupportFiles=0

Vb6Tkinter.vbw

@@ -1,43 +1,43 @@
 GridOcx = 125, 125, 851, 574, C, 175, 175, 1048, 606, C
-Common = 125, 125, 998, 556, 
+Common = 125, 125, 998, 556, C
 FileDlg = 150, 150, 981, 581, C
-clsBaseControl = 100, 100, 931, 531, 
-clsButton = 75, 75, 906, 506, 
-clsCanvas = 25, 25, 869, 474, 
-clsCheckbutton = 50, 50, 894, 499, 
-clsEntry = 75, 75, 954, 481, 
-clsLabel = 175, 175, 1019, 624, 
-clsLabelFrame = 200, 200, 1044, 649, 
-clsListbox = 150, 150, 994, 599, 
-clsOptionMenu = 25, 25, 904, 431, 
-clsRadiobutton = 150, 150, 994, 599, 
-clsScale = 175, 175, 1019, 624, 
-clsScrollbar = 200, 200, 1044, 649, 
-clsSerialization = 25, 25, 869, 474, 
-clsText = 0, 0, 879, 406, 
-cStrBuilder = 0, 0, 0, 0, C
+clsBaseControl = 100, 100, 931, 531, C
+clsButton = 75, 75, 906, 506, C
+clsCanvas = 25, 25, 869, 474, C
+clsCheckbutton = 50, 50, 894, 499, C
+clsEntry = 75, 75, 954, 481, C
+clsLabel = 175, 175, 1019, 624, C
+clsLabelFrame = 200, 200, 1044, 649, C
+clsListbox = 150, 150, 994, 599, C
+clsOptionMenu = 25, 25, 904, 431, C
+clsRadiobutton = 150, 150, 994, 599, C
+clsScale = 175, 175, 1019, 624, C
+clsScrollbar = 200, 200, 1044, 649, C
+clsSerialization = 25, 25, 869, 474, C
+clsText = 0, 0, 879, 406, C
+cStrBuilder = 100, 100, 969, 549, C
 Dictionary = 0, 0, 0, 0, C
-FrmMain = 25, 25, 898, 456, , 50, 50, 923, 481, C
-clsMenu = 0, 0, 844, 449, Z
-clsMenuItem = 25, 25, 869, 474, 
-clsProgressBar = 125, 125, 969, 574, 
-clsCombobox = 175, 175, 1054, 581, 
-clsComboboxAdapter = 25, 25, 799, 474, 
-clsTreeview = 200, 200, 1079, 606, 
-clsNotebook = 50, 50, 929, 456, 
+FrmMain = 25, 25, 898, 456, Z, 50, 50, 923, 481, C
+clsMenu = 0, 0, 844, 449, C
+clsMenuItem = 25, 25, 869, 474, C
+clsProgressBar = 125, 125, 969, 574, C
+clsCombobox = 175, 175, 1054, 581, C
+clsComboboxAdapter = 25, 25, 799, 474, C
+clsTreeview = 200, 200, 1079, 606, C
+clsNotebook = 50, 50, 929, 456, C
 MultiLanguage = 175, 175, 1054, 608, C
 Base64 = 100, 100, 874, 549, C
-clsForm = 125, 125, 956, 556, 
-clsStatusbar = 75, 75, 801, 497, 
+clsForm = 125, 125, 956, 556, C
+clsStatusbar = 75, 75, 801, 497, C
 Resizer = 100, 100, 826, 549, C
 frmOption = 0, 0, 0, 0, C, 200, 200, 1073, 631, C
 xpcmdbutton = 0, 0, 0, 0, C, 0, 0, 873, 431, C
-clsNotebookTab = 75, 75, 919, 524, 
-clsSeparator = 0, 0, 844, 449, 
+clsNotebookTab = 75, 75, 919, 524, C
+clsSeparator = 0, 0, 844, 449, C
 Connect = 25, 25, 904, 458, C
 frmEncodeAFile = 100, 100, 973, 531, C, 25, 25, 898, 456, C
 http = 125, 125, 1004, 558, C
 modJson = 25, 25, 904, 458, C
 frmNewVer = 100, 100, 979, 533, C, 75, 75, 954, 508, C
 frmAbout = 50, 50, 776, 472, C, 25, 25, 927, 447, C
-utf8file = 50, 50, 894, 499, 
+utf8file = 50, 50, 894, 499, C