//---------------------------------------------------------------------
__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 TEditorForm::TEditorForm(TComponent* Owner)
: TForm(Owner)
{
EditorMemo = new TRichEdit20(this);
EditorMemo->Parent = this;
EditorMemo->Align = alClient;
EditorMemo->HideSelection = false;
EditorMemo->PlainText = true;
EditorMemo->PopupMenu = EditorPopup;
EditorMemo->ScrollBars = ssBoth;
EditorMemo->WantTabs = true;
EditorMemo->OnChange = EditorMemoChange;
EditorMemo->OnKeyUp = EditorMemoKeyUp;
EditorMemo->OnMouseUp = EditorMemoMouseUp;
FParentForm = NULL;
FCaretPos = TPoint(-1, -1);
FLastFindDialog = NULL;
FCloseAnnounced = false;
FShowStatusBarHint = false;
ApplyConfiguration();
FFindDialog = new TFindDialogEx(this);
FFindDialog->OnFind = FindDialogFind;
FReplaceDialog = new TReplaceDialogEx(this);
FReplaceDialog->OnFind = FindDialogFind;
FReplaceDialog->OnReplace = FindDialogFind;
FEncoding = NULL;
InitCodePage();
UseSystemSettings(this);
UseDesktopFont(StatusBar);
SetFormIcons(this, L"Z_ICON_EDITOR_BIG", L"Z_ICON_EDITOR_SMALL");
}
//---------------------------------------------------------------------------
__fastcall TLogForm::TLogForm(TComponent* Owner)
: TForm(Owner)
{
FLogMemo = NULL;
FSessionLog = NULL;
ShowWindow(Handle, SW_SHOWNA);
UseSystemSettings(this);
UseDesktopFont(StatusBar);
SetFormIcons(this, L"Z_ICON_LOG_BIG", L"Z_ICON_LOG_SMALL");
}
//---------------------------------------------------------------------------
__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);
}
//---------------------------------------------------------------------------
void __fastcall TAuthenticateForm::Init(TTerminal * Terminal)
{
FTerminal = Terminal;
FSessionData = Terminal->SessionData;
UseSystemSettings(this);
FShowAsModalStorage = NULL;
FFocusControl = NULL;
UseDesktopFont(LogView);
FPromptParent = InstructionsLabel->Parent;
FPromptLeft = InstructionsLabel->Left;
FPromptTop = InstructionsLabel->Top;
FPromptRight = FPromptParent->ClientWidth - InstructionsLabel->Width - FPromptLeft;
FPromptEditGap = PromptEdit1->Top - PromptLabel1->Top - PromptLabel1->Height;
FPromptsGap = PromptLabel2->Top - PromptEdit1->Top - PromptEdit1->Height;
ClientHeight = ScaleByTextHeight(this, 270);
ClearLog();
}
