administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Исправлена Shuffle

Browse source
This commit is contained in:
Mikhalkovich Stanislav 2023-08-17 10:39:28 +03:00
parent 1c7f573407
commit be2b7e874c
3 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
VisualPlugins/TraningControlPlugin/LoginForm.cs
View file

@ -193,7 +193,7 @@ namespace DBAccessPluginNamespace
} }
// На мехмате проверяем lightPT // На мехмате проверяем lightPT
var isLightPT = Plugin.IsLightPTInWorkingDirectiry(); var isLightPT = Plugin.IsLightPTInWorkingDirectory();
// Первый вариант - в родительский или текущий // Первый вариант - в родительский или текущий
var authCreated = false; var authCreated = false;

8
VisualPlugins/TraningControlPlugin/TeacherControlPlugin.cs
View file

@ -46,7 +46,7 @@ namespace VisualPascalABCPlugins
this.Workbench = Workbench; this.Workbench = Workbench;
VisualEnvironmentCompiler = Workbench.VisualEnvironmentCompiler; VisualEnvironmentCompiler = Workbench.VisualEnvironmentCompiler;
if (IsLightPTInWorkingDirectiry()) if (IsLightPTInWorkingDirectory())
{ {
IsMechmath = System.Environment.MachineName.ToLower().StartsWith("mil8a-"); IsMechmath = System.Environment.MachineName.ToLower().StartsWith("mil8a-");
User.ServAddr = "https://air.mmcs.sfedu.ru/pascalabc"; User.ServAddr = "https://air.mmcs.sfedu.ru/pascalabc";
@ -88,7 +88,7 @@ namespace VisualPascalABCPlugins
return ""; return "";
} }
public bool IsLightPTInWorkingDirectiry() public bool IsLightPTInWorkingDirectory()
{ {
var WorkingDir = WorkingDirectory(); var WorkingDir = WorkingDirectory();
var lightptname = Path.Combine(WorkingDir, "lightpt.dat"); var lightptname = Path.Combine(WorkingDir, "lightpt.dat");
@ -209,7 +209,7 @@ namespace VisualPascalABCPlugins
// SSM 20/06/22 Решил включить плагин в инсталлят и показывать кнопки только если есть lightpt.dat в текущем // SSM 20/06/22 Решил включить плагин в инсталлят и показывать кнопки только если есть lightpt.dat в текущем
// или auth.dat в корне сетевого - убрал это 11.07.23 - только если при запуске lightpt.dat в текущем!!! // или auth.dat в корне сетевого - убрал это 11.07.23 - только если при запуске lightpt.dat в текущем!!!
{ {
if (IsLightPTInWorkingDirectiry()) // если lightpt.dat существует в текущем if (IsLightPTInWorkingDirectory()) // если lightpt.dat существует в текущем
InitItems(MenuItems, ToolBarItems); InitItems(MenuItems, ToolBarItems);
/*else /*else
{ {
@ -249,7 +249,7 @@ namespace VisualPascalABCPlugins
// !!! НАДО ТУТ ИСКАТЬ lightpt.dat в текущем!!! // !!! НАДО ТУТ ИСКАТЬ lightpt.dat в текущем!!!
var AuthFileFullName = ""; var AuthFileFullName = "";
if (IsLightPTInWorkingDirectiry()) // Только если lightPT.dat в текущем, ищем auth.dat в текущем или выше if (IsLightPTInWorkingDirectory()) // Только если lightPT.dat в текущем, ищем auth.dat в текущем или выше
AuthFileFullName = FullAuthNameFromWorkingDirOrParent(); AuthFileFullName = FullAuthNameFromWorkingDirOrParent();
/*if (AuthFileFullName == "" && IsMechmath) /*if (AuthFileFullName == "" && IsMechmath)
{ {

5
bin/Lib/PABCSystem.pas
View file

@ -8884,9 +8884,10 @@ begin
var n := l.Count; var n := l.Count;
for var i := 0 to n - 1 do for var i := 0 to n - 1 do
begin begin
var ind := Random(n);
var v := l[i]; var v := l[i];
l[i] := l[Random(n)]; l[i] := l[ind];
l[Random(n)] := v; l[ind] := v;
end; end;
end; end;