ebarmdidemomain.cpp

胜天进销存源码,国产优秀的进销存

}
//---------------------------------------------------------------------------

void __fastcall TEBarMDIDemoMainForm::ReplaceOne(TObject *Sender)
{
  TReplaceDialog *ADialog = ((TReplaceDialog*) Sender);
  int ReplacedCount, OldSelStart, PrevSelStart;
  AnsiString S;

  ReplacedCount = 0;
  OldSelStart = Editor->SelStart;
  if (ADialog->Options.Contains(frReplaceAll)) Screen->Cursor = crHourGlass;
  do
  {
    if ((Editor->SelLength > 0) && ((Editor->SelText == ADialog->FindText) ||
      (!(ADialog->Options.Contains(frMatchCase)) &&
       (AnsiUpperCase(Editor->SelText) == AnsiUpperCase(ADialog->FindText)))))
    {
      Editor->SelText = ADialog->ReplaceText;
      ReplacedCount++;
    }
    PrevSelStart = Editor->SelStart;
    FindOne(Sender);
  }
  while (!(!(ADialog->Options.Contains(frReplaceAll)) || (Editor->SelStart == PrevSelStart)));
  if (ADialog->Options.Contains(frReplaceAll))
  {
    Screen->Cursor = crDefault;
    if (ReplacedCount == 0) S = sRichEditTextNotFound;
    else
    {
      Editor->SelStart = OldSelStart;
      S = Format(sRichEditReplaceAllResult, ARRAYOFCONST((ReplacedCount)));
    }
    Application->MessageBox(S.c_str(), sRichEditFoundResultCaption,
      MB_ICONINFORMATION);
  }
}
//---------------------------------------------------------------------------

void __fastcall TEBarMDIDemoMainForm::dxBarButtonSaveAsClick(TObject *Sender)
{
  SaveFile(True);
}
//---------------------------------------------------------------------------

void __fastcall TEBarMDIDemoMainForm::dxBarButtonPrintClick(TObject *Sender)
{
  if (PrintDialog->Execute()) Editor->Print(FileName);
}
//---------------------------------------------------------------------------

void __fastcall TEBarMDIDemoMainForm::dxBarButtonExitClick(TObject *Sender)
{
  Close();
}
//---------------------------------------------------------------------------

void __fastcall TEBarMDIDemoMainForm::dxBarButtonUndoClick(TObject *Sender)
{
  SendMessage(Editor->Handle, EM_UNDO, 0, 0);
}
//---------------------------------------------------------------------------

void __fastcall TEBarMDIDemoMainForm::dxBarButtonCutClick(TObject *Sender)
{
  Editor->CutToClipboard();
}
//---------------------------------------------------------------------------

void __fastcall TEBarMDIDemoMainForm::dxBarButtonCopyClick(TObject *Sender)
{
  Editor->CopyToClipboard();
}
//---------------------------------------------------------------------------

void __fastcall TEBarMDIDemoMainForm::dxBarButtonPasteClick(TObject *Sender)
{
  Editor->PasteFromClipboard();
}
//---------------------------------------------------------------------------

void __fastcall TEBarMDIDemoMainForm::dxBarButtonClearClick(TObject *Sender)
{
  Editor->ClearSelection();
}
//---------------------------------------------------------------------------

void __fastcall TEBarMDIDemoMainForm::dxBarButtonSelectAllClick(TObject *Sender)
{
  Editor->SelectAll();
}
//---------------------------------------------------------------------------

void __fastcall TEBarMDIDemoMainForm::dxBarButtonFindClick(TObject *Sender)
{
  Editor->SelLength = 0;
  FindDialog->Execute();
}
//---------------------------------------------------------------------------

void __fastcall TEBarMDIDemoMainForm::dxBarButtonReplaceClick(TObject *Sender)
{
  Editor->SelLength = 0;
  ReplaceDialog->Execute();
}
//---------------------------------------------------------------------------

void __fastcall TEBarMDIDemoMainForm::dxBarComboFontNameChange(TObject *Sender)
{
  if (!FUpdating)
    Editor->SelAttributes->Name = dxBarComboFontName->Text;
}
//---------------------------------------------------------------------------

void __fastcall TEBarMDIDemoMainForm::dxBarComboFontSizeChange(TObject *Sender)
{
  if (!FUpdating)
    Editor->SelAttributes->Size = StrToInt(dxBarComboFontSize->Text);
}
//---------------------------------------------------------------------------

void __fastcall TEBarMDIDemoMainForm::dxBarButtonBoldClick(TObject *Sender)
{
  if (dxBarButtonBold->Down)
    Editor->SelAttributes->Style = Editor->SelAttributes->Style << fsBold;
  else
    Editor->SelAttributes->Style = Editor->SelAttributes->Style >> fsBold;
}
//---------------------------------------------------------------------------

void __fastcall TEBarMDIDemoMainForm::dxBarButtonItalicClick(TObject *Sender)
{
  if (dxBarButtonItalic->Down)
    Editor->SelAttributes->Style = Editor->SelAttributes->Style << fsItalic;
  else
    Editor->SelAttributes->Style = Editor->SelAttributes->Style >> fsItalic;
}
//---------------------------------------------------------------------------

void __fastcall TEBarMDIDemoMainForm::dxBarButtonUnderlineClick(TObject *Sender)
{
  if (dxBarButtonUnderline->Down)
    Editor->SelAttributes->Style = Editor->SelAttributes->Style << fsUnderline;
  else
    Editor->SelAttributes->Style = Editor->SelAttributes->Style >> fsUnderline;
}
//---------------------------------------------------------------------------

void __fastcall TEBarMDIDemoMainForm::dxBarComboFontColorChange(TObject *Sender)
{
  Editor->SelAttributes->Color = dxBarComboFontColor->Color;
}
//---------------------------------------------------------------------------

void __fastcall TEBarMDIDemoMainForm::dxBarButtonBulletsClick(TObject *Sender)
{
  Editor->Paragraph->Numbering = (TNumberingStyle) dxBarButtonBullets->Down;
}
//---------------------------------------------------------------------------

void __fastcall TEBarMDIDemoMainForm::dxBarButtonAlignClick(TObject *Sender)
{
  if (((TdxBarButton *)Sender)->Down)
    Editor->Paragraph->Alignment = (TAlignment)((TdxBarButton *)Sender)->Tag;
  else
    Editor->Paragraph->Alignment = taLeftJustify;
}
//---------------------------------------------------------------------------

void __fastcall TEBarMDIDemoMainForm::dxBarButtonProtectedClick(TObject *Sender)
{
  Editor->SelAttributes->Protected = !Editor->SelAttributes->Protected;
}
//---------------------------------------------------------------------------

void __fastcall TEBarMDIDemoMainForm::dxBarButtonFontClick(TObject *Sender)
{
  FontDialog->Font->Assign(Editor->SelAttributes);
  if (FontDialog->Execute())
    Editor->SelAttributes->Assign(FontDialog->Font);
}
//---------------------------------------------------------------------------

void __fastcall TEBarMDIDemoMainForm::dxBarButtonArrangeAllClick(TObject *Sender)
{
  Tile();
}
//---------------------------------------------------------------------------

void __fastcall TEBarMDIDemoMainForm::dxBarButtonNextWindowClick(TObject *Sender)
{
  Next();
}
//---------------------------------------------------------------------------

void __fastcall TEBarMDIDemoMainForm::dxBarButtonPreviousWindowClick(TObject *Sender)
{
  Previous();
}
//---------------------------------------------------------------------------

void __fastcall TEBarMDIDemoMainForm::dxBarListWindowsClick(TObject *Sender)
{
  ((TCustomForm *)dxBarListWindows->Items->Objects[dxBarListWindows->ItemIndex])->Show();
}
//---------------------------------------------------------------------------

void __fastcall TEBarMDIDemoMainForm::dxBarListWindowsGetData(TObject *Sender)
{
  dxBarListWindows->ItemIndex = dxBarListWindows->Items->IndexOfObject(ActiveMDIChild);
}
//---------------------------------------------------------------------------

void __fastcall TEBarMDIDemoMainForm::dxBarButtonOnWebClick(TObject *Sender)
{
  ShellExecute(0, NULL, "http://www.devexpress.com", NULL, NULL, SW_RESTORE);
}
//---------------------------------------------------------------------------

void __fastcall TEBarMDIDemoMainForm::dxBarButtonEnhancedStyleClick(TObject *Sender)
{
  BarManager->Style = bmsEnhanced;
  dxStatusBar->PaintStyle = stpsStandard;
}
//---------------------------------------------------------------------------

void __fastcall TEBarMDIDemoMainForm::dxBarButtonStdStyleClick(TObject *Sender)
{
  BarManager->Style = bmsStandard;
  dxStatusBar->PaintStyle = stpsStandard;
}
//---------------------------------------------------------------------------

void __fastcall TEBarMDIDemoMainForm::dxBarButtonFlatStyleClick(TObject *Sender)
{
  BarManager->Style = bmsFlat;
  dxStatusBar->PaintStyle = stpsFlat;
}
//---------------------------------------------------------------------------

void __fastcall TEBarMDIDemoMainForm::dxBarMRUFilesClick(TObject *Sender)
{
  AnsiString AFileName;
  TEBarMDIDemoChildForm *CForm;

  AFileName = dxBarMRUFiles->Items->Strings[dxBarMRUFiles->ItemIndex];
  if (FileExists(AFileName))
  {
   CForm = new TEBarMDIDemoChildForm(Application);
   CForm->FileName = AFileName;
   CForm->Editor->Lines->LoadFromFile(FileName);
   SetModified(False);
  }
  else
    Application->MessageBox(AnsiString(AFileName+"\nFile not found.").c_str(),"Open",MB_OK || MB_ICONERROR);

}
//---------------------------------------------------------------------------

void __fastcall TEBarMDIDemoMainForm::dxBarButtonOffice11StyleClick(TObject *Sender)
{
  BarManager->Style = bmsOffice11;
  dxStatusBar->PaintStyle = stpsOffice11;
}
//---------------------------------------------------------------------------

void __fastcall TEBarMDIDemoMainForm::dxBarButtonXPStyleClick(TObject *Sender)
{
  BarManager->Style = bmsXP;
  dxStatusBar->PaintStyle = stpsXP;
}
//---------------------------------------------------------------------------