procedure TBaseWizardConnection.RecomededHostActive(
ConnectionFrame: TConnFrame;
DatabaseConnectionVersionList: TDatabaseConnectionVersionList);
var
Item: TDatabaseConnectionVersion;
i: Integer;
begin
with ConnectionFrame do
begin
DatabaseConnectionVersionList.DatabaseDriver := ComboBoxDatabaseType.Items[ComboBoxDatabaseType.ItemIndex];
DatabaseConnectionVersionList.Execute;
for i := 0 to DatabaseConnectionVersionList.Count -1 do
begin
Item := DatabaseConnectionVersionList.Items[i];
if Item.Version = ComboBoxDatabaseTypeVersion.Items[ComboBoxDatabaseTypeVersion.ItemIndex] then
begin //this error
with ConnectionFrame.EditHost do
begin
if Item.RecomendedHost then
begin
ReadOnly := False;
Color := clDefault;
end
else
begin
Clear;
ReadOnly := True;
Color := clForm;
end;
end;
Break;
end;
end;
end;
end;