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

Add <Select All> and <Copy> menu items to SQL code memos. Fixes issue #1530.

Browse Source
This commit is contained in:
Ansgar Becker
2009-12-15 00:37:54 +00:00
parent 03d7052d78
commit d100a9f029
2 changed files with 28 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
source/table_editor.pas
View File

@ -84,6 +84,9 @@ type
lblNoForeignKeys: TLabel;
menuCopyColumnCell: TMenuItem;
N2: TMenuItem;
popupSQLmemo: TPopupMenu;
menuSQLCopy: TMenuItem;
menuSQLSelectAll: TMenuItem;
procedure editNameChange(Sender: TObject);
procedure Modification(Sender: TObject);
procedure btnAddColumnClick(Sender: TObject);
@ -167,6 +170,7 @@ type
var InitialStates: TVirtualNodeInitStates);
procedure listColumnsGetNodeDataSize(Sender: TBaseVirtualTree; var NodeDataSize: Integer);
procedure listColumnsNodeMoved(Sender: TBaseVirtualTree; Node: PVirtualNode);
procedure popupSQLmemoPopup(Sender: TObject);
private
{ Private declarations }
FLoaded: Boolean;
@ -2079,4 +2083,14 @@ begin
end;
procedure TfrmTableEditor.popupSQLmemoPopup(Sender: TObject);
var
m: TPopupMenu;
begin
// Ensure SynMemo's have focus, otherwise Select-All and Copy actions may fail
m := Sender as TPopupMenu;
TWinControl(m.PopupComponent).SetFocus;
end;
end.