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

Implement RFE #1685787: create table button in popup menu.

Browse Source
This commit is contained in:
rosenfield
2007-08-21 18:28:53 +00:00
parent 6461212dcc
commit cc1063b8dd
3 changed files with 17 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
source/childwin.dfm
View File

@ -1479,14 +1479,19 @@ object MDIChild: TMDIChild
ImageIndex = 73
OnClick = CreateDatabase
end
object N17: TMenuItem
Caption = '-'
end
object PopupmenuDropDatabase: TMenuItem
Caption = 'Drop Database...'
ImageIndex = 22
OnClick = DropDB
end
object N17: TMenuItem
Caption = '-'
end
object PopupMenuCreateTable: TMenuItem
Caption = 'Create Table...'
ImageIndex = 72
OnClick = CreateTable
end
object PopupMenuDropTable: TMenuItem
Action = MainForm.DropTable
end

7
source/childwin.pas
View File

@ -310,6 +310,7 @@ type
menuLoadSnippet: TMenuItem;
menuInsertSnippetAtCursor: TMenuItem;
menuExplore: TMenuItem;
PopupMenuCreateTable: TMenuItem;
procedure menuRenameColumnClick(Sender: TObject);
procedure ListColumnsEdited(Sender: TObject; Item: TListItem;
var S: string);
@ -3263,7 +3264,10 @@ end;
procedure TMDIChild.CreateTable(Sender: TObject);
begin
CreateTableWindow(Self);
if Sender = PopupMenuCreateTable then begin
if DBTree.Selected.Level = 2 then CreateTableWindow(Self, DBtree.Selected.Parent.Text);
if DBTree.Selected.Level = 1 then CreateTableWindow(Self, DBtree.Selected.Text);
end else CreateTableWindow(Self);
end;
@ -4476,6 +4480,7 @@ procedure TMDIChild.popupTreeViewPopup(Sender: TObject);
begin
// toggle drop-items and remember right-clicked item
PopupMenuDropDatabase.Enabled := DBtree.Selected.Level = 1;
PopupMenuCreateTable.Enabled := DBtree.Selected.Level in [1,2];
MainForm.DropTable.Enabled := DBtree.Selected.Level = 2;
DBRightClickSelectedItem := DBtree.Selected;
end;

5
source/createtable.pas
View File

@ -85,7 +85,7 @@ type
{ Public declarations }
end;
function CreateTableWindow (AOwner : TComponent) : Boolean;
function CreateTableWindow (AOwner : TComponent; Database: string = '') : Boolean;
{$I const.inc}
@ -105,11 +105,12 @@ var
@param TComponent Owner of form (should be calling form)
@return Boolean Form closed using modalresult mrOK
}
function CreateTableWindow (AOwner : TComponent) : Boolean;
function CreateTableWindow (AOwner : TComponent; Database: string) : Boolean;
var
f : TCreateTableForm;
begin
f := TCreateTableForm.Create(AOwner);
if Database <> '' then f.DBComboBox.SelText := Database;
Result := (f.ShowModal=mrOK);
FreeAndNil (f);
end;