paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-05 00:37:11 +01:00
Code Issues Packages Projects Releases Wiki Activity

Correct some visual deficiencies: tab caption for connection tabsheets. Refreshing treeview list doubles list. Register connection editor for MSSQL

Browse Source 
git-svn-id: trunk@63154 -
This commit is contained in:
michael 2020-05-14 14:46:05 +00:00
parent 95bdfd1be4
commit 506b761816
2 changed files with 238 additions and 677 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

908
tools/lazdatadesktop/frmmain.lfm
View File

File diff suppressed because it is too large Load Diff

7
tools/lazdatadesktop/frmmain.pp
View File

@ -575,17 +575,14 @@ begin
MaybeRegisterConnectionStringCallback('TSQLDBMySql5DDEngine',@GetSQLConnectionDlg);
MaybeRegisterConnectionStringCallback('TSQLDBMySql51DDEngine',@GetSQLConnectionDlg);
MaybeRegisterConnectionStringCallback('TSQLDBMySql55DDEngine',@GetSQLConnectionDlg);
{$ifdef HAVEMYSQL5657CONN}
MaybeRegisterConnectionStringCallback('TSQLDBMySql56DDEngine',@GetSQLConnectionDlg);
MaybeRegisterConnectionStringCallback('TSQLDBMySql57DDEngine',@GetSQLConnectionDlg);
{$ENDIF}
MaybeRegisterConnectionStringCallback('TSQLDBODBCDDEngine',@GetSQLConnectionDlg);
MaybeRegisterConnectionStringCallback('TSQLDBPOSTGRESQLDDEngine',@GetSQLConnectionDlg);
MaybeRegisterConnectionStringCallback('TSQLDBFBDDEngine',@GetSQLConnectionDlg);
MaybeRegisterConnectionStringCallback('TSQLDBSQLite3DDEngine',@GetSQLConnectionDlg);
{$IFDEF HAVEMSSQLCONN}
MaybeRegisterConnectionStringCallback('TSQLDBMSSQLDDEngine',@GetSQLConnectionDlg);
{$ENDIF}
finally
L.free;
end;
@ -693,6 +690,7 @@ Var
begin
LVConnections.Items.Clear;
FNRecentConnections.DeleteChildren;
For I:=0 to FRecentConnections.Count-1 do
begin
RC:=FRecentConnections[i];
@ -1814,6 +1812,7 @@ begin
Result.Parent:=PCDD;
Result.Frame.Description:=AName;
Result.ImageIndex:=18;
Result.Caption:=aName;
PCDD.ActivePage:=Result;
end;