Skip to content
Permalink
Browse files

Issue #516: Display MemSQL icon and name for those sessions

  • Loading branch information...
ansgarbecker committed Feb 16, 2019
1 parent 8cf93ab commit 638b5e562ad5b8c1ebbd9304cfbc96432439cab9
Showing with 847 additions and 1 deletion.
  1. BIN res/icons/server-memsql.png
  2. +11 −1 source/dbconnection.pas
  3. +836 −0 source/main.dfm
Binary file not shown.
@@ -236,6 +236,7 @@ TConnectionParameters = class(TObject)
function IsInfiniDB: Boolean;
function IsInfobright: Boolean;
function IsAzure: Boolean;
function IsMemSQL: Boolean;
property ImageIndex: Integer read GetImageIndex;
published
property IsFolder: Boolean read FIsFolder write FIsFolder;
@@ -1313,6 +1314,8 @@ function TConnectionParameters.NetTypeName(NetType: TNetType; LongFormat: Boolea
My := 'InfiniDB'
else if IsInfobright then
My := 'Infobright'
else if IsMemSQL then
My := 'MemSQL'
else
My := 'MariaDB or MySQL';
if LongFormat then case NetType of
@@ -1421,6 +1424,12 @@ function TConnectionParameters.IsAzure: Boolean;
end;


function TConnectionParameters.IsMemSQL: Boolean;
begin
Result := Pos('memsql', LowerCase(ServerVersion)) > 0;
end;


function TConnectionParameters.GetImageIndex: Integer;
begin
if IsFolder then
@@ -1432,7 +1441,8 @@ function TConnectionParameters.GetImageIndex: Integer;
else if IsPercona then Result := 169
else if IsTokudb then Result := 171
else if IsInfiniDB then Result := 172
else if IsInfobright then Result := 173;
else if IsInfobright then Result := 173
else if IsMemSQL then Result := 194;
end;
ngMSSQL: begin
Result := 123;
Oops, something went wrong.

0 comments on commit 638b5e5

Please sign in to comment.
You can’t perform that action at this time.