opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Add context menu with copy, cut, paste and select all items to all db object editors which have a TSynMemo. Fixes issue #2765.

Browse Source
This commit is contained in:
Ansgar Becker
2012-03-24 22:20:09 +00:00
parent 2e6d39c401
commit bd8cc387ca
5 changed files with 40 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
source/trigger_editor.pas
View File

@@ -12,7 +12,7 @@ type
TfrmTriggerEditor = class(TFrame)
lblName: TLabel;
editName: TEdit;
SynMemoStatement: TSynMemo;
SynMemoBody: TSynMemo;
btnHelp: TButton;
btnDiscard: TButton;
btnSave: TButton;
@@ -57,7 +57,7 @@ var
i: Integer;
begin
inherited;
SynMemoStatement.Highlighter := Mainform.SynSQLSyn1;
SynMemoBody.Highlighter := Mainform.SynSQLSyn1;
editName.MaxLength := NAME_LEN;
comboTiming.Items.Text := 'BEFORE'+CRLF+'AFTER';
comboEvent.Items.Text := 'INSERT'+CRLF+'UPDATE'+CRLF+'DELETE';
@@ -87,7 +87,7 @@ begin
comboDefiner.Text := '';
comboDefiner.TextHint := 'Current user ('+Obj.Connection.CurrentUserHostCombination+')';
comboDefiner.Hint := 'Leave empty for current user ('+Obj.Connection.CurrentUserHostCombination+')';
SynMemoStatement.Text := 'BEGIN'+CRLF+CRLF+'END';
SynMemoBody.Text := 'BEGIN'+CRLF+CRLF+'END';
comboEvent.ItemIndex := 0;
comboTiming.ItemIndex := 0;
DBObjects := MainForm.ActiveConnection.GetDBObjects(Mainform.ActiveDatabase);
@@ -110,7 +110,7 @@ begin
comboTable.ItemIndex := comboTable.Items.IndexOf(Definitions.Col('Table'));
comboTiming.ItemIndex := comboTiming.Items.IndexOf(UpperCase(Definitions.Col('Timing')));
comboEvent.ItemIndex := comboEvent.Items.IndexOf(UpperCase(Definitions.Col('Event')));
SynMemoStatement.Text := Definitions.Col('Statement');
SynMemoBody.Text := Definitions.Col('Statement');
Found := True;
break;
end;
@@ -137,7 +137,7 @@ begin
btnSave.Enabled := Modified
and (editName.Text <> '') and (comboTable.ItemIndex > -1)
and (comboTiming.ItemIndex > -1) and (comboEvent.ItemIndex > -1)
and (SynMemoStatement.Text <> '');
and (SynMemoBody.Text <> '');
btnDiscard.Enabled := Modified;
end;
@@ -189,7 +189,7 @@ begin
sql := sql + 'TRIGGER '+DBObject.Connection.QuoteIdent(editName.Text)+' '+
comboTiming.Items[comboTiming.ItemIndex]+' '+comboEvent.Items[comboEvent.ItemIndex]+
' ON '+DBObject.Connection.QuoteIdent(comboTable.Text)+
' FOR EACH ROW '+SynMemoStatement.Text;
' FOR EACH ROW '+SynMemoBody.Text;
MainForm.ActiveConnection.Query(sql);
DBObject.Name := editName.Text;
DBObject.CreateCode := '';