opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

Translate string variables and literals in .pas files. TODO: translate constants.

Browse Source
This commit is contained in:
Ansgar Becker
2012-11-26 05:44:01 +00:00
parent caaaaedc11
commit f96288fce9
28 changed files with 2060 additions and 443 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
source/routine_editor.pas
View File

@ -106,8 +106,8 @@ begin
ScaleControls(Screen.PixelsPerInch, FORMS_DPI);
// Combo items in a .dfm are sporadically lost after an IDE restart,
// so we set them here to avoid developer annoyance
comboType.Items.Add('Procedure (doesn''t return a result)');
comboType.Items.Add('Function (returns a result)');
comboType.Items.Add(_('Procedure (doesn''t return a result)'));
comboType.Items.Add(_('Function (returns a result)'));
comboDataAccess.Items.Add('Contains SQL');
comboDataAccess.Items.Add('No SQL');
comboDataAccess.Items.Add('Reads SQL data');
@ -153,8 +153,8 @@ begin
comboSecurity.ItemIndex := 0;
editComment.Clear;
comboDefiner.Text := '';
comboDefiner.TextHint := 'Current user ('+Obj.Connection.CurrentUserHostCombination+')';
comboDefiner.Hint := 'Leave empty for current user ('+Obj.Connection.CurrentUserHostCombination+')';
comboDefiner.TextHint := f_('Current user (%s)', [Obj.Connection.CurrentUserHostCombination]);
comboDefiner.Hint := f_('Leave empty for current user (%s)', [Obj.Connection.CurrentUserHostCombination]);
SynMemoBody.Text := 'BEGIN'+CRLF+CRLF+'END';
if DBObject.Name <> '' then begin
// Editing existing routine
@ -408,7 +408,7 @@ begin
Allowed := Column > 0;
if (Column = 3) and (comboType.ItemIndex = 1) then begin
Allowed := False;
MessageDialog('A stored function can only have IN parameters so context editing is blocked.', mtInformation, [mbOK]);
MessageDialog(_('A stored function can only have IN parameters so context editing is blocked.'), mtInformation, [mbOK]);
end;
end;
@ -471,7 +471,7 @@ begin
TargetExists := ((editName.Text <> DBObject.Name) or (ProcOrFunc <> FAlterRoutineType)) and
(allRoutineNames.IndexOf(editName.Text) > -1);
if TargetExists then begin
Result := MessageDialog('Overwrite?', 'Routine "'+editName.Text+'" already exists.',
Result := MessageDialog(f_('Overwrite "%s"?', [editName.Text]), f_('Routine "%s" already exists.', [editName.Text]),
mtConfirmation, [mbYes, mbNo, mbCancel]);
if Result = mrNo then
Exit;