Skip to content
Permalink
Browse files

Issue #12: Simplify code in Tconnform.ValidateControls

  • Loading branch information
ansgarbecker committed Jan 1, 2020
1 parent 6167159 commit 416252dbfd1a9ecbe7bf625da59e32dff4198bdf
Showing with 1 addition and 2 deletions.
  1. +1 −2 source/connections.pas
@@ -1265,19 +1265,18 @@ procedure Tconnform.ValidateControls;

if SessionFocused then begin
// Validate session GUI stuff
editHost.RightButton.Visible := False;
case Params.NetType of
ntMySQL_NamedPipe: begin
lblHost.Caption := _('Socket name:');
end;
ntSQLite: begin
lblHost.Caption := _('Database filename')+':';
editHost.RightButton.Visible := True;
end
else begin
lblHost.Caption := _('Hostname / IP:');
end;
end;
editHost.RightButton.Visible := Params.IsSQLite;
chkWindowsAuth.Enabled := Params.IsMSSQL;
chkCleartextPluginEnabled.Enabled := Params.IsMySQL;
lblUsername.Enabled := ((not chkLoginPrompt.Checked) or (not chkLoginPrompt.Enabled))

0 comments on commit 416252d

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