paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 02:19:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazarus data desktop: improved key handling and firebird/interbase from Javier Villarroya (issue #11360)

Browse Source 
git-svn-id: trunk@15238 -
This commit is contained in:
vincents 2008-05-26 14:56:44 +00:00
parent c0d554cdc6
commit 59a89eeefe
1 changed files with 29 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
tools/lazdatadesktop/frmmain.pp
View File

@ -27,7 +27,7 @@ interface
uses uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Menus, Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Menus,
ActnList, StdActns, ComCtrls, dicteditor, fpdatadict, IniPropStorage, ActnList, StdActns, ComCtrls, dicteditor, fpdatadict, IniPropStorage,
conneditor, conneditor, LCLType,
inifiles, inicol, RTTICtrls, ExtCtrls, StdCtrls, propertystorage, ddfiles; inifiles, inicol, RTTICtrls, ExtCtrls, StdCtrls, propertystorage, ddfiles;
type type
@ -144,9 +144,11 @@ type
procedure HaveTab(Sender: TObject); procedure HaveTab(Sender: TObject);
procedure HaveTables(Sender: TObject); procedure HaveTables(Sender: TObject);
procedure LVConnectionsDblClick(Sender: TObject); procedure LVConnectionsDblClick(Sender: TObject);
procedure LVConnectionsKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure LVDictsDblClick(Sender: TObject); procedure LVDictsDblClick(Sender: TObject);
procedure LVDictsKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState procedure LVDictsKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
); procedure MIDataDictClick(Sender: TObject);
procedure PCDDChange(Sender: TObject); procedure PCDDChange(Sender: TObject);
procedure SaveAsExecute(Sender: TObject); procedure SaveAsExecute(Sender: TObject);
private private
@ -392,7 +394,7 @@ begin
MaybeRegisterConnectionStringCallback('TSQLDBMySql5DDEngine',@GetSQLConnectionDlg); MaybeRegisterConnectionStringCallback('TSQLDBMySql5DDEngine',@GetSQLConnectionDlg);
MaybeRegisterConnectionStringCallback('TSQLDBODBCDDEngine',@GetSQLConnectionDlg); MaybeRegisterConnectionStringCallback('TSQLDBODBCDDEngine',@GetSQLConnectionDlg);
MaybeRegisterConnectionStringCallback('TSQLDBPOSTGRESQLDDEngine',@GetSQLConnectionDlg); MaybeRegisterConnectionStringCallback('TSQLDBPOSTGRESQLDDEngine',@GetSQLConnectionDlg);
MaybeRegisterConnectionStringCallback('TSQLDBIBDDEngine',@GetSQLConnectionDlg); MaybeRegisterConnectionStringCallback('TSQLDBFBDDEngine',@GetSQLConnectionDlg);
MaybeRegisterConnectionStringCallback('TSQLDBSQLite3DDEngine',@GetSQLConnectionDlg); MaybeRegisterConnectionStringCallback('TSQLDBSQLite3DDEngine',@GetSQLConnectionDlg);
finally finally
L.free; L.free;
@ -779,6 +781,16 @@ begin
OpenConnection(TRecentConnection(LVConnections.Selected.Data)); OpenConnection(TRecentConnection(LVConnections.Selected.Data));
end; end;
procedure TMainForm.LVConnectionsKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=VK_DELETE then
begin
FRecentConnections.Delete(FRecentConnections.FindByName(LVConnections.ItemFocused.Caption).Index);
ShowRecentConnections;
end;
end;
procedure TMainForm.SaveAsExecute(Sender: TObject); procedure TMainForm.SaveAsExecute(Sender: TObject);
begin begin
SaveCurrentEditorAs; SaveCurrentEditorAs;
@ -1109,10 +1121,21 @@ begin
OpenDataDict(TRecentDataDict(LVDicts.Selected.Data)); OpenDataDict(TRecentDataDict(LVDicts.Selected.Data));
end; end;
procedure TMainForm.LVDictsKeyDown(Sender: TObject; var Key: Word; procedure TMainForm.LVDictsKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState); Shift: TShiftState);
begin begin
if key=VK_DELETE then
begin
FRecentDicts.Delete(FRecentDicts.FindByName(LVDicts.ItemFocused.Caption).Index);
ShowRecentDictionaries;
end;
end;
procedure TMainForm.MIDataDictClick(Sender: TObject);
begin
MIDataDict.Items[0].Clear;
ShowImportRecentconnections;
ShowDDImports;
end; end;
procedure TMainForm.PCDDChange(Sender: TObject); procedure TMainForm.PCDDChange(Sender: TObject);
@ -1255,6 +1278,7 @@ begin
CDE:=NewConnectionEditor(Aname); CDE:=NewConnectionEditor(Aname);
CDE.Engine:=DDE; CDE.Engine:=DDE;
CDE.Connect(CS); CDE.Connect(CS);
ShowRecentConnections;
end; end;
Function TMainForm.NewConnectionEditor(AName : String) : TConnectionEditor; Function TMainForm.NewConnectionEditor(AName : String) : TConnectionEditor;