[download]
{.if|{. {.current downloads by user.} > 1.}|{:
{.disconnection reason|only once at time.}
:}.}
Вопрос возможно уже задавался,но я повторюсь.Попросили вам показать сообщение!
Скажите , а планируется в дальнейших разработках программы,сделать возможным закачки на сервер целыми папками,а не отдельными файлами?
Это касается как Upload так и download .
Спасибо
procedure ToptionsFrm.groupsBtnClick(Sender: TObject);
var
i: integer;
there: TStringDynArray;
groups: TstringList;
s: string;
begin
there:=split(';', accountLinkBox.Text);
groups:=TstringList.create;
try
for i:=0 to length(tempAccounts)-1 do
if tempAccounts[ i ].group then
begin
s:=tempAccounts[ i ].user;
if s <> tempAccounts[absoluteIndex(accountsBox.ItemIndex)].user then //Selected account not adding in linked groups Selection Form
groups.AddObject(s, if_(stringExists(s, there), PTR1, NIL));
end;
if not listSelect('Select groups', groups) then exit;
s:='';
for i:=0 to groups.Count-1 do
if groups.Objects[ i ] <> NIL then
s:=s+groups[ i ]+';';
accountLinkBox.Text:=getTill(-1, s);
finally groups.free end;
end;
procedure ToptionsFrm.loadAccountProperties();
var
......
i:integer;
j:integer;
begin
.....
groupsBtn.enabled:=FALSE;
j:=0;
for i:=0 to length(tempAccounts)-1 do
if tempAccounts[ i ].group then
j:=j+1;
if (((not a.group) and (j=1)) or (j>1)) then
groupsBtn.enabled:=TRUE;
{then groupsBtn is not enabled when only one group exist and is selected}
.....
end;
I had an exception error with these buttons ... up - down - rename.
Then the complete cessation of HFS.
try using [code ] instead of [quote ])
try using [code ] [color=red]instead[/color] of [quote ])Quote from: SilentPliz on Today at 05:36:50
I had an exception error with these buttons ... up - down - rename.
Then the complete cessation of HFS.
i wasn't able to reproduce the problem.
could you please find a way?
if accountsBox.selected = NIL then exit; replaced by | ||
| ToptionsFrm.groupChkClick | ToptionsFrm.groupChkMouseUp | |
| ToptionsFrm.accountenabledChkClick | ToptionsFrm.accountenabledChkMouseUp |
with code i can't color text, it is just why i use quote.
For the same reasons of bugs due to the change of selection, I opted for a change of call of certain events
ToptionsFrm.groupChkClick ToptionsFrm.groupChkMouseUp ToptionsFrm.accountenabledChkClick ToptionsFrm.accountenabledChkMouseUp
...to follow! ;)