Exemple #1
0
//---------------------------------------------------------------------------
__fastcall TSynchronizeDialog::TSynchronizeDialog(TComponent * Owner)
  : TForm(Owner)
{
  UseSystemSettings(this);
  FOptions = 0;
  FSynchronizing = false;
  FMinimizedByMe = false;
  FPresetsMenu = new TPopupMenu(this);
  FSynchronizeOptions = NULL;

  HotTrackLabel(CopyParamLabel);
  CopyParamListButton(TransferSettingsButton);

  SetGlobalMinimizeHandler(this, GlobalMinimize);
}
Exemple #2
0
//---------------------------------------------------------------------------
__fastcall TSynchronizeDialog::TSynchronizeDialog(TComponent * Owner,
  TSynchronizeStartStopEvent OnStartStop, TGetSynchronizeOptionsEvent OnGetOptions,
  bool StartImmediatelly)
  : TForm(Owner)
{
  UseSystemSettings(this);
  FOptions = 0;
  FSynchronizing = false;
  FMinimizedByMe = false;
  FPresetsMenu = new TPopupMenu(this);
  FOnStartStop = OnStartStop;
  FOnGetOptions = OnGetOptions;
  FSynchronizeOptions = NULL;
  FStartImmediatelly = StartImmediatelly;

  HotTrackLabel(CopyParamLabel);
  CopyParamListButton(TransferSettingsButton);

  SetGlobalMinimizeHandler(this, GlobalMinimize);
}
Exemple #3
0
//---------------------------------------------------------------------------
__fastcall TSynchronizeProgressForm::TSynchronizeProgressForm(TComponent * Owner,
        bool AllowMinimize, bool CompareOnly)
    : TForm(Owner)
{
    FStarted = false;
    FCanceled = false;
    FElapsed = EncodeTimeVerbose(0, 0, 0, 0);
    FShowAsModalStorage = NULL;
    FMinimizedByMe = false;
    FCompareOnly = CompareOnly;
    UseSystemSettings(this);
    if (!AllowMinimize)
    {
        CancelButton->Left = CancelButton->Left +
                             (MinimizeButton->Left - CancelButton->Left) / 2;
        MinimizeButton->Visible = false;
    }
    else
    {
        SetGlobalMinimizeHandler(this, GlobalMinimize);
    }
}
Exemple #4
0
//---------------------------------------------------------------------------
__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);
}