//---------------------------------------------------------------------------
__fastcall TEditMaskDialog::TEditMaskDialog(TComponent* Owner)
: TForm(Owner)
{
UseSystemSettings(this);
HintLabel(MaskHintText,
FORMAT(L"%s\n \n%s\n \n%s\n \n%s", (LoadStr(MASK_HINT2), LoadStr(FILE_MASK_EX_HINT), LoadStr(PATH_MASK_HINT2), LoadStr(MASK_HELP))));
ReadOnlyControl(MaskMemo);
}
//---------------------------------------------------------------------------
__fastcall TSelectMaskDialog::TSelectMaskDialog(TComponent* Owner)
: TForm(Owner)
{
DefaultFileFilter(FFileFilter);
SetFileFilter(FFileFilter);
UseSystemSettings(this);
HintLabel(HintText,
FORMAT(L"%s\n \n%s\n \n%s\n \n%s", (LoadStr(MASK_HINT2), LoadStr(FILE_MASK_EX_HINT),
LoadStr(COMBINING_MASKS_HINT), LoadStr(MASK_HELP))));
}
//---------------------------------------------------------------------------
__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);
}
//---------------------------------------------------------------------------
__fastcall TCustomCommandDialog::TCustomCommandDialog(TComponent* Owner,
const TCustomCommandList * CustomCommandList, TCustomCommandsMode Mode,
int Options, TCustomCommandValidate OnValidate, const TShortCuts * ShortCuts)
: TForm(Owner)
{
SetCorrectFormParent(this);
UseSystemSettings(this);
FCustomCommandList = CustomCommandList;
FMode = Mode;
FOnValidate = OnValidate;
HintLabel(HintText, LoadStr(CUSTOM_COMMAND_PATTERNS_HINT3));
int CaptionRes;
switch (FMode)
{
case ccmAdd:
CaptionRes = CUSTOM_COMMAND_ADD;
break;
case ccmEdit:
CaptionRes = CUSTOM_COMMAND_EDIT;
break;
case ccmAdHoc:
default:
CaptionRes = CUSTOM_COMMAND_AD_HOC;
break;
}
Caption = LoadStr(CaptionRes);
if (FMode == ccmAdHoc)
{
int Shift = CommandEdit->Top - DescriptionEdit->Top;
int Shift2 = Group->Height - ShortCutLabel->Top;
DescriptionLabel->Visible = false;
DescriptionEdit->Visible = false;
for (int i = 0; i < Group->ControlCount; i++)
{
TControl * Control = Group->Controls[i];
if (Control->Visible)
{
if (Control->Top > DescriptionLabel->Top)
{
Control->Top = Control->Top - Shift;
}
}
}
ShortCutLabel->Visible = false;
ShortCutCombo->Visible = false;
ClientHeight = ClientHeight - Shift - Shift2;
}
else
{
assert(ShortCuts != NULL);
InitializeShortCutCombo(ShortCutCombo, *ShortCuts);
}
EnableControl(RemoteCommandButton, FLAGCLEAR(Options, ccoDisableRemote));
UpdateControls();
}