//--------------------------------------------------------------------- __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); }