//---------------------------------------------------------------------------
void __fastcall TEditorForm::EditorActionsExecute(TBasicAction *Action,
bool &Handled)
{
Handled = true;
if (Action == SaveAction)
{
assert(!FFileName.IsEmpty());
SaveToFile();
if (FOnFileChanged)
{
FOnFileChanged(this);
}
EditorMemo->Modified = false;
UpdateControls();
}
else if (Action == PreferencesAction)
{
DoPreferencesDialog(pmEditor);
}
else if (Action == ReloadAction)
{
Reload();
}
else if (Action == FindAction || Action == ReplaceAction)
{
StartFind(Action == FindAction);
}
else if (Action == FindNextAction)
{
if (!FLastFindDialog)
{
FLastFindDialog = FFindDialog;
}
Find();
}
else if (Action == GoToLineAction)
{
GoToLine();
}
else if (Action == EditRedo)
{
EditorMemo->Redo();
}
else if (Action == HelpAction)
{
FormHelp(this);
}
else if (Action == DefaultEncodingAction)
{
ChangeEncoding(TEncoding::Default);
}
else if (Action == UTF8EncodingAction)
{
ChangeEncoding(TEncoding::UTF8);
}
else
{
Handled = false;
}
}
//---------------------------------------------------------------------------
bool __fastcall CopyParamListPopupClick(TObject * Sender,
TCopyParamType & Param, UnicodeString & Preset, int CopyParamAttrs,
bool * SaveSettings)
{
TComponent * Item = dynamic_cast<TComponent *>(Sender);
assert(Item != NULL);
assert((Item->Tag >= cpiSaveSettings) && (Item->Tag < GUIConfiguration->CopyParamList->Count));
bool Result;
if (Item->Tag == cpiConfigure)
{
bool MatchedPreset = (GUIConfiguration->CopyParamPreset[Preset] == Param);
DoPreferencesDialog(pmPresets);
Result = (MatchedPreset && GUIConfiguration->HasCopyParamPreset[Preset]);
if (Result)
{
Param = GUIConfiguration->CopyParamPreset[Preset];
}
}
else if (Item->Tag == cpiCustom)
{
Result = DoCopyParamCustomDialog(Param, CopyParamAttrs);
}
else if (Item->Tag == cpiSaveSettings)
{
if (ALWAYS_TRUE(SaveSettings != NULL))
{
*SaveSettings = !*SaveSettings;
}
Result = false;
}
else
{
Preset = (Item->Tag >= 0) ?
GUIConfiguration->CopyParamList->Names[Item->Tag] : UnicodeString();
Param = GUIConfiguration->CopyParamPreset[Preset];
Result = true;
}
return Result;
}
