PTyTb
/
ttw_fmx_v10
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

пофиксил изменения и рандомный пользователь

This commit is contained in:
PC1\PTyTb 2025-08-16 23:19:05 +03:00
parent fd1c6b6bb8
commit 16b665d225
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
forms/uGeneral.pas
View File

@ -1435,7 +1435,7 @@ begin
else else
begin begin
randomize; randomize;
RandomUserName := '@' + userlist[random(userlist.Count - 1)].login; RandomUserName := '@' + userlist[random(userlist.Count)].login;
end; end;
res := StringReplace(res, '[RANDOMUSER]', RandomUserName, [rfReplaceAll]); res := StringReplace(res, '[RANDOMUSER]', RandomUserName, [rfReplaceAll]);
end; end;

1
frames/fOBS.pas
View File

@ -720,6 +720,7 @@ for I := 0 to EventWebServers.Count - 1 do
ws.se.BorderColor :=listNotify[i].ColorBorder; ws.se.BorderColor :=listNotify[i].ColorBorder;
ws.se.BorderSize := listNotify[i].SolidBorder; ws.se.BorderSize := listNotify[i].SolidBorder;
ws.se.BlockColor := listNotify[i].ColorBlock; ws.se.BlockColor := listNotify[i].ColorBlock;
EventWebServers[mi]:=ws;
UpdateGridFromArray; UpdateGridFromArray;
db.SaveRecordArray<TOBSNotify>('listNotify', listNotify); db.SaveRecordArray<TOBSNotify>('listNotify', listNotify);
Break; Break;