paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 21:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Better caption driver info

Browse Source 
git-svn-id: trunk@51129 -
This commit is contained in:
michael 2016-01-02 15:27:15 +00:00
parent 3b120a5864
commit cd9d17e858
1 changed files with 8 additions and 2 deletions

10
tools/lazdatadesktop/frmsqlconnect.pp
View File

@ -79,7 +79,7 @@ implementation
{$R *.lfm}
uses fpddsqldb,strutils;
uses fpdatadict, fpddsqldb ,strutils;
function GetSQLDBConnectString(HostSupported : Boolean; Initial,ADriver : String; OnTest : TTestConnectionEvent = Nil): String;
@ -197,6 +197,11 @@ begin
end;
procedure TSQLConnectionForm.SetString(Index: integer; const AValue: String);
var
ADesc, AType: String;
ACap: TFPDDEngineCapabilities;
begin
Case Index of
0 : EHostName.Text:=AValue;
@ -207,7 +212,8 @@ begin
5 :
begin
FDriver:=AValue;
Caption:= Format(sld_Connecttoadatabase,[AValue]);
if GetDictionaryEngineInfo(AValue,ADesc,AType,ACap) then
Caption:= Format(sld_Connecttoadatabase,[ADesc]);
end;
end;
end;