//---------------------------------------------------------------------------
void __fastcall TRightsFrame::SetText(UnicodeString value)
{
if (Text != value)
{
UnicodeString RightsStr = value;
int P = RightsStr.LowerCase().Pos(FAddXToDirectoriesSuffix);
bool AAddXToDirectories = (P > 0);
if (AAddXToDirectories)
{
RightsStr.Delete(P, FAddXToDirectoriesSuffix.Length());
}
RightsStr = DeleteChar(DeleteChar(RightsStr, L'('), L')').Trim();
TRights R = Rights;
if (((RightsStr.Length() == 3) || (RightsStr.Length() == 4)) &&
IsNumber(RightsStr))
{
R.Octal = RightsStr;
}
else
{
R.Text = RightsStr;
}
Rights = R;
AddXToDirectories = AAddXToDirectories;
}
}
TWatermarkPos __fastcall StrToWatermarkPos(UnicodeString Str)
{
Str = Str.LowerCase();
return
Str == L"top-right"? wpTopRight :
Str == L"bottom-right"? wpBottomRight :
Str == L"bottom-left"? wpBottomLeft :
wpTopLeft;
}
TMediaType __fastcall StrToMediaType(UnicodeString Str)
{
Str = Str.LowerCase();
return
Str == L"video"? mtVideo :
Str == L"audio"? mtAudio :
Str == L"image"? mtImage :
mtNone;
}
UnicodeString TCopyParamType::ChangeFileName(const UnicodeString & AFileName,
TOperationSide Side, bool FirstLevel) const
{
UnicodeString FileName = AFileName;
if (FirstLevel)
{
FileName = MaskFileName(FileName, GetFileMask());
}
switch (GetFileNameCase())
{
case ncUpperCase:
FileName = FileName.UpperCase();
break;
case ncLowerCase:
FileName = FileName.LowerCase();
break;
case ncFirstUpperCase:
FileName = FileName.SubString(1, 1).UpperCase() +
FileName.SubString(2, FileName.Length() - 1).LowerCase();
break;
case ncLowerCaseShort:
if ((FileName.Length() <= 12) && (FileName.Pos(L".") <= 9) &&
(FileName == FileName.UpperCase()))
{
FileName = FileName.LowerCase();
}
break;
case ncNoChange:
default:
/*nothing*/
break;
}
if (Side == osRemote)
{
FileName = ValidLocalFileName(FileName);
}
else
{
FileName = RestoreChars(FileName);
}
return FileName;
}
