Skip to content
Permalink
Browse files

Same as for TExtForm: translate in TDBObjectEditor.OnCreate, not in a…

…ll derived editor classed
  • Loading branch information...
ansgarbecker committed Jul 22, 2019
1 parent 44c7df7 commit 71d9ef9011d3de7bf412cf4589aa73d2ff13fcf0
Showing with 1 addition and 5 deletions.
  1. +1 −0 source/apphelpers.pas
  2. +0 −1 source/event_editor.pas
  3. +0 −1 source/routine_editor.pas
  4. +0 −1 source/table_editor.pas
  5. +0 −1 source/trigger_editor.pas
  6. +0 −1 source/view.pas
@@ -1880,6 +1880,7 @@ constructor TDBObjectEditor.Create(AOwner: TComponent);
// Do not set alClient via DFM! In conjunction with ExplicitXXX properties that
// repeatedly breaks the GUI layout when you reload the project
Align := alClient;
TranslateComponent(Self);
end;

destructor TDBObjectEditor.Destroy;
@@ -77,7 +77,6 @@ implementation
constructor TfrmEventEditor.Create(AOwner: TComponent);
begin
inherited;
TranslateComponent(Self);
Mainform.SynCompletionProposal.AddEditor(SynMemoBody);
comboEveryInterval.Items := Explode('|', 'YEAR|QUARTER|MONTH|DAY|HOUR|MINUTE|WEEK|SECOND|YEAR_MONTH|'+
'DAY_HOUR|DAY_MINUTE|DAY_SECOND|HOUR_MINUTE|HOUR_SECOND|MINUTE_SECOND');
@@ -104,7 +104,6 @@ implementation
constructor TfrmRoutineEditor.Create(AOwner: TComponent);
begin
inherited;
TranslateComponent(Self);
// 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)'));
@@ -209,7 +209,6 @@ implementation
constructor TfrmTableEditor.Create(AOwner: TComponent);
begin
inherited;
TranslateComponent(Self);
FixVT(listColumns);
FixVT(treeIndexes);
FixVT(listForeignKeys);
@@ -63,7 +63,6 @@ constructor TfrmTriggerEditor.Create(AOwner: TComponent);
i: Integer;
begin
inherited;
TranslateComponent(Self);
SynMemoBody.Highlighter := Mainform.SynSQLSynUsed;
editName.MaxLength := NAME_LEN;
comboTiming.Items.Text := 'BEFORE'+CRLF+'AFTER';
@@ -52,7 +52,6 @@ implementation
constructor TfrmView.Create(AOwner: TComponent);
begin
inherited;
TranslateComponent(Self);
SynMemoBody.Highlighter := Mainform.SynSQLSynUsed;
Mainform.SynCompletionProposal.AddEditor(SynMemoBody);
editName.MaxLength := NAME_LEN;

0 comments on commit 71d9ef9

Please sign in to comment.
You can’t perform that action at this time.