//---------------------------------------------------------------------
__fastcall TPropertiesDialog::TPropertiesDialog(TComponent* AOwner,
TStrings * FileList, const UnicodeString Directory,
const TRemoteTokenList * GroupList, const TRemoteTokenList * UserList,
int AllowedChanges, bool UserGroupByID, TCalculateSizeEvent OnCalculateSize,
TCalculateChecksumEvent OnCalculateChecksum)
: TForm(AOwner)
{
FOnCalculateSize = OnCalculateSize;
FOnCalculateChecksum = OnCalculateChecksum;
RightsFrame->OnChange = ControlChange;
FShellImageList = SharedSystemImageList(true);
FShellImageList->DrawingStyle = dsTransparent;
FFileList = new TStringList();
FFileList->Assign(FileList);
FAllowedChanges = AllowedChanges;
FUserGroupByID = UserGroupByID;
FAllowCalculateStats = false;
FStatsNotCalculated = false;
FChecksumLoaded = false;
FMultipleChecksum = false;
LocationLabel->Caption = Directory;
FGroupList = GroupList;
FUserList = UserList;
LoadInfo();
UseSystemSettings(this);
}
//---------------------------------------------------------------------
__fastcall TSynchronizeChecklistDialog::TSynchronizeChecklistDialog(
TComponent * AOwner, TSynchronizeMode Mode, int Params,
const UnicodeString LocalDirectory, const UnicodeString RemoteDirectory,
TCustomCommandMenuEvent OnCustomCommandMenu)
: TForm(AOwner)
{
FFormRestored = false;
FMode = Mode;
FParams = Params;
FLocalDirectory = ExcludeTrailingBackslash(LocalDirectory);
FRemoteDirectory = UnixExcludeTrailingBackslash(RemoteDirectory);
FOnCustomCommandMenu = OnCustomCommandMenu;
UseSystemSettings(this);
UseDesktopFont(ListView);
UseDesktopFont(StatusBar);
FChecklist = NULL;
FChangingItem = NULL;
FChangingItemIgnore = false;
FChangingItemMass = false;
FGeneralHint = StatusBar->Hint;
FOrigListViewWindowProc = ListView->WindowProc;
ListView->WindowProc = ListViewWindowProc;
FSystemImageList = SharedSystemImageList(false);
ListView->SmallImages = FSystemImageList;
// header images mut be assigned after the small images, so it cannot
// be done via DFM
ListView->HeaderImages = ArrowImages;
CustomCommandsButton->Visible = (FOnCustomCommandMenu != NULL);
MenuButton(CustomCommandsButton);
}
//---------------------------------------------------------------------------
__fastcall TFileFindDialog::TFileFindDialog(TComponent * Owner, TFindEvent OnFind)
: TForm(Owner)
{
UseSystemSettings(this);
FOnFind = OnFind;
FState = ffInit;
FMinimizedByMe = false;
FixComboBoxResizeBug(MaskEdit);
FixComboBoxResizeBug(RemoteDirectoryEdit);
HintLabel(MaskHintText,
FORMAT(L"%s\n \n%s\n \n%s\n \n%s\n \n%s\n \n%s", (LoadStr(MASK_HINT2),
LoadStr(FILE_MASK_EX_HINT), LoadStr(COMBINING_MASKS_HINT),
LoadStr(PATH_MASK_HINT2), LoadStr(DIRECTORY_MASK_HINT),
LoadStr(MASK_HELP))));
FSystemImageList = SharedSystemImageList(false);
FileView->SmallImages = FSystemImageList;
UseDesktopFont(FileView);
UseDesktopFont(StatusBar);
SetGlobalMinimizeHandler(this, GlobalMinimize);
}
