WHILE TRUE $FormExit = form($Form,"") BeginCase Case $FormExit = "SystemExit" CANCEL Msg="Macro Canceled" Case $FormExit = "btnOK" #<Insert code to do something or GOSUB here> BREAK Case $FormExit = "btnCancel" CANCEL Msg="Macro Canceled" EndCase ENDWHILE <Data> VarName=$form #******************************************************************** # Form generated by GSAK form designer on Mon 23-Apr-2012 16:39:41 #******************************************************************** Name = Form1 Type = Form Height = 300 Width = 500 Name = Groupbox1 Type = Groupbox Caption = Database update options Height = 105 Left = 44 Top = 39 Width = 404 Taborder = 2 Name = btnOK Type = Button Height = 25 Left = 109 Top = 215 Width = 75 Taborder = 3 Caption = OK Name = btnCancel Type = Button Height = 25 Left = 241 Top = 215 Width = 75 Taborder = 4 Caption = Cancel Name = lblTest Type = Label Height = 17 Left = 139 Top = 11 Width = 114 Caption = Form to test translation Name = rbtNew Type = Radiobutton Container = Groupbox1 Height = 20 Left = 15 Top = 43 Width = 98 Taborder = 0 Caption = Newer only Name = rbtExisting Type = Radiobutton Container = Groupbox1 Height = 20 Left = 145 Top = 46 Width = 98 Taborder = 1 Caption = Existing Name = rbtIgnore Type = Radiobutton Container = Groupbox1 Height = 20 Left = 276 Top = 43 Width = 98 Taborder = 2 Caption = Ignore Name = chkSummary Type = Checkbox Height = 20 Left = 133 Top = 166 Width = 165 Taborder = 5 Caption = Show summary at end <enddata> |
Form to test translation Database update options Newer only Existing Ignore Show summary at end OK Cancel Macro Canceled |
MakeTranslation Filein="c:\temp\transtest.txt" Fileout="c:\temp\TransTest.sil" |
[Language names - for internal use only!] Language_1=English Language_2=German Language_3=French Language_4=Dutch Language_5=Danish Language_6=Czech Language_7=Swedish [OPTIONS] CommentsFile= Delimiter=~!@# IsUTF8File=0 [Strings] TfmMacroTranslations.1=Form to test translation~!@#~!@#~!@#~!@#~!@#~!@#~!@# TfmMacroTranslations.2=Database update options~!@#~!@#~!@#~!@#~!@#~!@#~!@# TfmMacroTranslations.3=Newer only~!@#~!@#~!@#~!@#~!@#~!@#~!@# TfmMacroTranslations.4=Existing~!@#~!@#~!@#~!@#~!@#~!@#~!@# TfmMacroTranslations.5=Ignore~!@#~!@#~!@#~!@#~!@#~!@#~!@# TfmMacroTranslations.6=Show summary at end~!@#~!@#~!@#~!@#~!@#~!@#~!@# TfmMacroTranslations.7=OK~!@#~!@#~!@#~!@#~!@#~!@#~!@# TfmMacroTranslations.8=Cancel~!@#~!@#~!@#~!@#~!@#~!@#~!@# TfmMacroTranslations.9=Macro Canceled~!@#~!@#~!@#~!@#~!@#~!@#~!@# |
Cancel Msg=Translate("Macro Canceled") |
$msg = Translate("Macro Canceled") CANCEL Msg=$msg |
$form = EditForm($form,"Groupbox1","Caption",Translate("Database update options")) $form = EditForm($form,"btnOk","Caption",Translate("OK")) $form = EditForm($form,"btnCancel","Caption",Translate("Cancel")) $form = EditForm($form,"lblTest","Caption",Translate("Form to test translation")) $form = EditForm($form,"rbtNew","Caption",Translate("Newer only")) $form = EditForm($form,"rbtExisting","Caption",Translate("Existing")) $form = EditForm($form,"rbtIgnore","Caption",Translate("Ignore")) $form = EditForm($form,"chkSummary","Caption",Translate("Show summary at end")) WHILE TRUE $FormExit = form($Form,"") BeginCase Case $FormExit = "SystemExit" $msg = Translate("Macro Canceled") CANCEL Msg=$msg Case $FormExit = "btnOK" #<Insert code to do something or GOSUB here> BREAK Case $FormExit = "btnCancel" $msg = Translate("Macro Canceled") CANCEL Msg=$msg EndCase ENDWHILE <Data> VarName=$form #******************************************************************** # Form generated by GSAK form designer on Mon 23-Apr-2012 16:39:41 #******************************************************************** Name = Form1 Type = Form Height = 300 Width = 500 Name = Groupbox1 Type = Groupbox Caption = Database update options Height = 105 Left = 44 Top = 39 Width = 404 Taborder = 2 Name = btnOK Type = Button Height = 25 Left = 109 Top = 215 Width = 75 Taborder = 3 Caption = OK Name = btnCancel Type = Button Height = 25 Left = 241 Top = 215 Width = 75 Taborder = 4 Caption = Cancel Name = lblTest Type = Label Height = 17 Left = 139 Top = 11 Width = 114 Caption = Form to test translation Name = rbtNew Type = Radiobutton Container = Groupbox1 Height = 20 Left = 15 Top = 43 Width = 98 Taborder = 0 Caption = Newer only Name = rbtExisting Type = Radiobutton Container = Groupbox1 Height = 20 Left = 145 Top = 46 Width = 98 Taborder = 1 Caption = Existing Name = rbtIgnore Type = Radiobutton Container = Groupbox1 Height = 20 Left = 276 Top = 43 Width = 98 Taborder = 2 Caption = Ignore Name = chkSummary Type = Checkbox Height = 20 Left = 133 Top = 166 Width = 165 Taborder = 5 Caption = Show summary at end <enddata> |