-
Notifications
You must be signed in to change notification settings - Fork 15
/
Copy pathlng.inc
290 lines (261 loc) · 12.4 KB
/
lng.inc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
const
c_strMsgTitle: PChar = '系统提示：';
function TfrmFFUI.TransUI(const strLang: string): String;
begin
if FlngUI = lngEnglish then
begin
if SameText(strLang, String(c_strMsgTitle)) then
Result := 'System Information：'
else if SameText(strLang, '视频剪辑信息不允许为空，请输入正确的值') then
Result := 'Video Info is not null, must be input'
else if SameText(strLang, '必须输入正确视频的宽和高') then
Result := 'Must be intput video width/height'
else if SameText(strLang, '必须选择一个目录，来保存转换后的视频') then
Result := 'Must be select a folder, save convert'
else if SameText(strLang, '必须选择一个目录，来保存分离的视频') then
Result := 'Must be select a folder, save split'
else if SameText(strLang, '选择保存视频转换结果目录：') then
Result := 'select a folder, save convert：'
else if SameText(strLang, '选择保存视频截取结果目录') then
Result := 'select a folder, save cut：'
else if SameText(strLang, '选择目录：') then
Result := 'select folder：'
else if SameText(strLang, '选择一个目录，目录下包含视频文件') then
Result := 'select a folder, the folder contains video'
else if SameText(strLang, '目录名称：') then
Result := 'Folder name：'
else if SameText(strLang, '网络视频地址：') then
Result := 'Web stream addr：'
else if SameText(strLang, '地址：') then
Result := 'Addr：'
else if SameText(strLang, '请先选择打开一个视频文件，再播放') then
Result := 'Please select a video file before playing'
else if SameText(strLang, '视频正在播放，请停止后，再次播放') then
Result := 'Video is playing, please stop and play again'
else if SameText(strLang, '选择保存视频转换结果目录：') then
Result := 'Select video save folder：'
else if SameText(strLang, '必须先添加视频文件再转换') then
Result := 'Video files must be added before conversion'
else if SameText(strLang, '必须先打开一个视频文件，再进行视频分离') then
Result := 'A video file must be opened before video split'
else if SameText(strLang, '必须先打开一个视频文件或多个音频，再进行合并') then
Result := 'You must open a add file or multiple audio files before merging'
else if SameText(strLang, '水印文件名不能为空，并且坐标不能为空') then
Result := 'Watermark file name cannot be empty and coordinates cannot be empty'
else if SameText(strLang, '必须先添加多个视频文件，再进行连接') then
Result := 'Multiple video files must be added before connecting'
else if SameText(strLang, '必须先打开一个视频文件') then
Result := 'Must be open a video file'
else if SameText(strLang, '直播推送地址不能为空') then
Result := 'Live address is must not null'
else if SameText(strLang, '本机没有发现任何 USB 摄像头') then
Result := ' Not find any USB Camera on PC'
end
else
begin
Result := strLang;
end;
end;
procedure TfrmFFUI.ChangeLanguageChinese;
begin
mniOpenFile.Caption := '打开文件...';
mniOpenFolder.Caption := '打开文件夹...';
mniOpenWebStream.Caption := '打开网络串流...';
mniCopyDosCommand.Caption := '复制到剪切板';
lblVideoFile.Caption := '打开文件/文件夹/网络串流：';
tsInfo.Caption := '信息';
tsPlay.Caption := '播放';
tsConv.Caption := '转换';
tsSplit.Caption := '分离';
tsMerge.Caption := '合并';
tsCut.Caption := '截取';
tsLive.Caption := '直播';
tsConfig.Caption := '配置';
btnVideoPlayPlay.Caption := '播放';
btnVideoPlayPause.Caption := '暂停';
btnVideoPlayStop.Caption := '停止';
btnPlayUSBCamera.Caption := '播放 USB 摄像头';
btnAddVideoFile.Caption := '添加文件';
btnAddFolder.Caption := '添加文件夹';
btnDelVideoFile.Caption := '删除';
btnVideoConvParam.Caption := '参数配置';
btnVideoStartConv.Caption := '转换';
btnVideoStopConv.Caption := '停止转换';
lblVideoSplitTip.Caption := '此文件包含：';
lblVidoeSplitVideo.Caption := '视频流：';
lblVidoeSplitAudio.Caption := '音频流：';
lblVidoeSplitSubtitle.Caption := '字幕流：';
btnVideoSplit.Caption := '分离';
lblMergeTip.Caption := '文件包含：';
lblMergeVideo.Caption := '视频流：';
btnMergeVideoAdd.Caption := '添加';
btnMergeVideoDel.Caption := '删除';
lblMergeAudio.Caption := '音频流：';
btnMergeAudioAdd.Caption := '添加';
btnMergeAudioDel.Caption := '删除';
lblMergeSubtitle.Caption := '字幕流：';
btnMergeSubtitleAdd.Caption := '添加';
btnMergeSubtitleDel.Caption := '删除';
btnMerge.Caption := '合并';
lblMergeFormat.Caption := '合并格式：';
btnConnectMulVideo.Caption := '连接多个视频';
btnConnectMulVideo.Hint := '将多个小视频连接成一个大的视频文件';
chkAddWaterMark.Caption := '添加水印';
lblWatermark.Caption := '图片路径：';
rgLive.Caption := '直播源：';
rgLive.Items.Strings[0] := '磁盘文件';
rgLive.Items.Strings[1] := 'USB摄像头';
rgLive.Items.Strings[2] := '桌 面';
rgLive.Items.Strings[3] := '网络串流';
grpLiveAddress.Caption := '直播地址：';
btnLive.Caption := '开始直播';
rgPlayUI.Caption := '播放时使用的视频库：';
rgUseGPU.Caption := '是否使用GPU加速：';
rgUseGPU.Items.Strings[0] := '是(NV GF1050以上显卡,驱动>436.15)';
rgUseGPU.Items.Strings[1] := '否';
lnklblHelpAccelGPU.Caption := '<a href="https://developer.nvidia.com/video-encode-decode-gpu-support-matrix">NVIDIA GPU 加速帮助</a>';
lnklblHelpAccelGPU.Hint := '查看显卡是否支持 GPU 加速';
grpVideoConv.Caption := '格式转换：';
lblConvTip.Caption := '转换为：';
chkVideoSize.Caption := '保持视频宽高';
lblVideoWidth.Caption := '宽：';
lblVideoHeight.Caption := '高：';
chkConvSavePath.Caption := '保存路径同文件';
lblSaveVideoPath.Caption := '路径：';
chkConvOpenSavePath.Caption := '转换结束打开保存目录';
lblVideoInfo.Caption := '剪辑信息：';
lblTitle.Caption := '标题：';
lblArtist.Caption := '艺术：';
lblGenre.Caption := '类型：';
lblComment.Caption := '注释：';
btnSaveConvParamAndStartConv.Caption := '保存并开始转换';
chkConvAutoSearchSubtitle.Caption := '自动搜索当前目录下同文件的字幕文件';
btnSaveConvParam.Caption := '保存';
btnSaveConvParamAndStartConv.Caption := '保存并开始转换';
grpSplitPath.Caption := '分离保存路径：';
chkSplitSamePath.Caption := '保存路径同文件';
lblSplitSamePath.Caption := '路径：';
chkSplitOpenSavePath.Caption := '分离结束打开保存目录';
rgCut.Caption := '截取类型：';
rgCut.Items[0] := '包含音视频';
rgCut.Items[1] := '只有视频';
rgCut.Items[2] := '只有音频';
grpCutTime.Caption := '截取时间：';
lblCutStartTime.Caption := '开始时间：';
lblCutEndTime.Caption := '结束时间：';
chkCutToImage.Caption := '截取为图片';
grpCutToImage.Caption := '图片：';
lblCutImageFormat.Caption := '图片格式：';
btnCut.Caption := '截取';
grpMergePath.Caption := '合并保存路径：';
chkMergeSamePath.Caption := '保存路径同文件';
lblMergeSamePath.Caption := '路径：';
chkMergeOpenSavePath.Caption := '合并结束打开保存目录';
lblMergeFormat.Caption := '合并后的格式：';
grpCutConfig.Caption := '截取保存路径：';
chkCutSamePath.Caption := '保存路径同文件';
lblCutVideoSavePath.Caption := '路径：';
chkCutOpenSavePath.Caption := '截取结束打开保存目录';
rgLanguageUI.Caption := '界面语言：';
end;
procedure TfrmFFUI.ChangeLanguageEnglish;
begin
mniOpenFile.Caption := 'Open file...';
mniOpenFolder.Caption := 'Open folder...';
mniOpenWebStream.Caption := 'Open stream...';
mniCopyDosCommand.Caption := 'Copy to clipbrd';
lblVideoFile.Caption := 'Open File/Folder/Stream:';
tsInfo.Caption := 'Info';
tsPlay.Caption := 'Play';
tsConv.Caption := 'Conv';
tsSplit.Caption := 'Split';
tsMerge.Caption := 'Merge';
tsCut.Caption := 'Cut';
tsLive.Caption := 'Live';
tsConfig.Caption := 'Config';
btnVideoPlayPlay.Caption := 'Play';
btnVideoPlayPause.Caption := 'Pause';
btnVideoPlayStop.Caption := 'Stop';
btnPlayUSBCamera.Caption := 'Play USB Camera';
btnAddVideoFile.Caption := 'Add File';
btnAddFolder.Caption := 'Add Folder';
btnDelVideoFile.Caption := 'Delete';
btnVideoConvParam.Caption := 'Param config';
btnVideoStartConv.Caption := 'Convert';
btnVideoStopConv.Caption := 'Stop convert';
lblVideoSplitTip.Caption := 'File include:';
lblVidoeSplitVideo.Caption := 'Video:';
lblVidoeSplitAudio.Caption := 'Audio:';
lblVidoeSplitSubtitle.Caption := 'Subtitle:';
btnVideoSplit.Caption := 'Split';
lblMergeTip.Caption := 'File include:';
lblMergeVideo.Caption := 'Video stream:';
btnMergeVideoAdd.Caption := 'Add';
btnMergeVideoDel.Caption := 'Del';
lblMergeAudio.Caption := 'Audio stream:';
btnMergeAudioAdd.Caption := 'Add';
btnMergeAudioDel.Caption := 'Del';
lblMergeSubtitle.Caption := 'Subtitle stream:';
btnMergeSubtitleAdd.Caption := 'Add';
btnMergeSubtitleDel.Caption := 'Del';
btnMerge.Caption := 'Merge';
lblMergeFormat.Caption := 'Merge format:';
btnConnectMulVideo.Caption := 'Connect videos';
btnConnectMulVideo.Hint := 'Connect multiple small videos into a large video file';
chkAddWaterMark.Caption := 'Add watermark';
lblWatermark.Caption := 'Image path:';
rgCut.Caption := 'Cut type:';
rgCut.Items[0] := 'All';
rgCut.Items[1] := 'Only video';
rgCut.Items[2] := 'Only audio';
grpCutTime.Caption := 'Cut time:';
lblCutStartTime.Caption := 'Start time:';
lblCutEndTime.Caption := 'End time:';
chkCutToImage.Caption := 'Cut to image';
grpCutToImage.Caption := 'Image:';
lblCutImageFormat.Caption := 'Format:';
btnCut.Caption := 'Cut';
rgLive.Caption := 'Live source:';
rgLive.Items.Strings[0] := 'Disk File';
rgLive.Items.Strings[1] := 'USB Camera';
rgLive.Items.Strings[2] := 'Desktop';
rgLive.Items.Strings[3] := 'Web stream';
grpLiveAddress.Caption := 'Live address:';
btnLive.Caption := 'Start live';
rgPlayUI.Caption := 'Video library for play:';
rgUseGPU.Caption := 'Use GPU Accelerate:';
rgUseGPU.Items.Strings[0] := 'Yes(NV GF1050 above,Drivers>436.15)';
rgUseGPU.Items.Strings[1] := 'No';
lnklblHelpAccelGPU.Caption := '<a href="https://developer.nvidia.com/video-encode-decode-gpu-support-matrix">NVIDIA GPU Help</a>';
lnklblHelpAccelGPU.Hint := 'Check whether the graphics card supports GPU acceleration';
grpVideoConv.Caption := 'Convert format:';
lblConvTip.Caption := 'Convert to:';
chkVideoSize.Caption := 'Same Video Size';
lblVideoWidth.Caption := 'W:';
lblVideoHeight.Caption := 'H:';
chkConvSavePath.Caption := 'Save path same as file';
lblSaveVideoPath.Caption := 'Path:';
chkConvOpenSavePath.Caption := 'Open save path after finish convert';
lblVideoInfo.Caption := 'Video Info:';
lblTitle.Caption := 'Title:';
lblArtist.Caption := 'Artist:';
lblGenre.Caption := 'Genre:';
lblComment.Caption := 'Comment:';
chkConvAutoSearchSubtitle.Caption := 'Automatically search subtitle files of the same file in the current directory';
btnSaveConvParam.Caption := 'Save';
btnSaveConvParamAndStartConv.Caption := 'Save and conv';
grpSplitPath.Caption := 'Split save path:';
chkSplitSamePath.Caption := 'Save path same as file';
lblSplitSamePath.Caption := 'Path:';
chkSplitOpenSavePath.Caption := 'Open save path after finish split';
grpMergePath.Caption := 'Merge save path:';
chkMergeSamePath.Caption := 'Save path same as file';
lblMergeSamePath.Caption := 'Path:';
chkMergeOpenSavePath.Caption := 'Open save path after finish Merge';
lblMergeFormat.Caption := 'Combined format:';
grpCutConfig.Caption := 'Cut save path：';
chkCutSamePath.Caption := 'Save path same as file';
lblCutVideoSavePath.Caption := 'Path：';
chkCutOpenSavePath.Caption := 'Open save path after finish cut';
rgLanguageUI.Caption := 'Language UI:';
end;