//--------------------------------------------------------------------------- __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 TConsoleDialog::TConsoleDialog(TComponent* AOwner) : TForm(AOwner) { FTerminal = NULL; FClearExceptionOnFail = false; FOldChangeDirectory = NULL; FPrevTerminalClose = NULL;; FLastTerminal = NULL; FDirectoryChanged = false; OutputMemo->Color = clBlack; OutputMemo->Font->Color = (TColor)0x00BBBBBB; FixComboBoxResizeBug(CommandEdit); UseSystemSettings(this); OutputMemo->Font->Name = CustomWinConfiguration->DefaultFixedWidthFontName; OutputMemo->Font->Size = CustomWinConfiguration->DefaultFixedWidthFontSize; }