inplaceeditorsdemomain.cpp

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

};

void __fastcall TfrmMain::InitializeTextEditors()
{
  edtCompanyName->EditValue = "Developer Express Inc.";
  EditorDemoFrameManager()->Frames[bfcTextEditors]->SetDescription(SToolBarDescription);
}

void __fastcall TfrmMain::InitializeValueEditors()
{
  edtTime->EditValue = Time();
  edtDate->EditValue = Date();
  EditorDemoFrameManager()->Frames[bfcValueEditors]->SetDescription(SToolBarDescription);
}

void __fastcall TfrmMain::InitializeEditorStyles()
{
  TStrings* AItems = ((TcxComboBoxProperties*)(cbSelectEditType->Properties))->Items;
  AItems->BeginUpdate();
  try
  {
    for (int I = 0; I < GetRegisteredEditProperties()->Count; I++)
      AItems->Add(GetRegisteredEditProperties()->Descriptions[I]);
  }
  __finally
  {
    AItems->EndUpdate();
  };

  TStringList* AStyles = new TStringList;
  try
  {
    for (int I = 0; I < cxStyleRepository1->Count; I++)
      AStyles->Add(cxStyleRepository1->Items[I]->Name);
    InitializeStylesCombo(cbStyle, AStyles);
    InitializeStylesCombo(cbStyleEdit, AStyles);
  }
  __finally
  {
    delete AStyles;
  };
  cbSelectEditType->EditValue = "TextEdit";

  EditorDemoFrameManager()->Frames[bfcStyles]->SetDescription(SEditorStyles);
};

TdxRibbonTab* __fastcall TfrmMain::AddTab(TdxBar* AToolBar)
{
  TdxRibbonTab* Result = FRibbon->Tabs->Add();
  Result->Caption = TabCaptions[FRibbon->Tabs->Count - 1];
  Result->Tag = AToolBar->Tag;
  return(Result);
};

void __fastcall TfrmMain::AddDemoToolBars()
{
  int I;
  for (I = 0; I < DemoTabsCount; I++)
    AddTab(BarManager->Bars->Items[I]);
  for (I = 0; I < BarManager->Bars->Count; I++)
  {
    TdxBar* AItem = BarManager->Bars->Items[I];
    if ((AItem->Tag > 0)&&(AItem->Tag <= 6))
      FRibbon->Tabs->Items[BarManager->Bars->Items[I]->Tag - 1]->AddToolBar(BarManager->Bars->Items[I]);
  };
};

void __fastcall TfrmMain::AddToolBar(TdxBar* AToolBar)
{
  AddTab(AToolBar)->AddToolBar(AToolBar);
};

void __fastcall TfrmMain::InitializeRibbon()
{
  FRibbon = new TdxRibbon(frmMain);
  FRibbon->Parent = frmMain;
  FRibbon->SupportNonClientDrawing = false;
  FRibbon->Visible = false;
  FRibbon->BarManager = BarManager;
  cbRibbonFont->EditValue = "Tab Caption";
  FRibbon->ColorSchemeName = "Blue";

  AddDemoToolBars();

  AddToolBar(tlbEditorType);
  FRibbon->Tabs->Items[FRibbon->Tabs->Count - 1]->AddToolBar(tlbEditorStyles);
  FRibbon->Tabs->Items[FRibbon->Tabs->Count - 1]->AddToolBar(tlbPreview);

  AddToolBar(tlbRibbonOptions);
  FRibbon->Tabs->Items[FRibbon->Tabs->Count - 1]->AddToolBar(tlbColorScheme);
  
  AddToolBar(tlbHelp);
  FRibbon->OnTabChanged = RibbonTabChanged;
  FRibbon->ApplicationButton->Glyph->Assign(Image1->Picture->Bitmap);
  FRibbon->BarManager = 0;
  EditorDemoFrameManager()->Frames[bfcRibbonOptions]->SetDescription(SRibbonOptionsDescription);
};

void __fastcall TfrmMain::InitializeFrames()
{
  for (int I = 0; I < EditorDemoFrameManager()->FramesCount; I++)
  {
    EditorDemoFrameManager()->Frames[I]->Parent = Panel1;
    EditorDemoFrameManager()->Frames[I]->Align = alClient;
  }
};

void __fastcall TfrmMain::SynchronizeCalcValueEditors(Variant AValue)
{
  FUpdateLock = true;
  try
  {
    edtMoney->EditValue = AValue;
    edtCalculate->EditValue = AValue;
  }
  __finally
  {
    FUpdateLock = false;
  };
};

void __fastcall TfrmMain::SynchronizeCheckGroupEditors(Variant AValue)
{
  FUpdateLock = true;
  try
  {
    chgSelectColor->EditValue = AValue;
    cbSelectColor->EditValue = AValue;
  }
  __finally
  {
    FUpdateLock = false;
  };
};

void __fastcall TfrmMain::SynchronizeImageEditors(Variant AValue)
{
  FUpdateLock = true;
  try
  {
    edtBlobImage->EditValue = AValue;
    edtImage->EditValue = AValue;
  }
  __finally
  {
    FUpdateLock = false;
  };
};

void __fastcall TfrmMain::SynchronizeMultilineTextEditors(Variant AValue)
{
  FUpdateLock = true;
  try
  {
    edtBlob->EditValue = AValue;
    memMemo->EditValue = AValue;
    TStringStream* AStream = new TStringStream(AValue);
    try
    {
      memPopup->Lines->Clear();
      memPopup->Lines->LoadFromStream(AStream);
    }
    __finally
    {
      delete AStream;
    };
  }
  __finally
  {
    FUpdateLock = false;
  };
};

void __fastcall TfrmMain::SynchronizePathEditors(Variant AValue)
{
  FUpdateLock = true;
  try
  {
    scbSelectPath->EditValue = AValue;
    edtLastPath->EditValue = AValue;
  }
  __finally
  {
    FUpdateLock = false;
  };
};

void __fastcall TfrmMain::SynchronizeRibbonFontEditors()
{
  FUpdateLock = true;
  try
  {
    int AFontIndex = ((TcxComboBoxProperties*)(cbRibbonFont->Properties))->Items->IndexOf(cbRibbonFont->EditValue);
    switch (AFontIndex)
    {
      case 0:
        {fncRibbonFontName->EditValue = FRibbon->Fonts->TabHeader->Name;
         break;
        };
      case 1:
        {fncRibbonFontName->EditValue = FRibbon->Fonts->Group->Name;
         break;
        };
      case 2:
        {fncRibbonFontName->EditValue = FRibbon->Fonts->GroupHeader->Name;
         break;
        };
    };

    AnsiString S = "";
    for (int ARibbonFont = 0; ARibbonFont < 3; ARibbonFont++)
      if (FRibbon->Fonts->AssignedFonts.Contains((TdxRibbonAssignedFont)ARibbonFont))
        S = S + '1';
      else
        S = S + '0';

    ccbAssignedRibbonFonts->EditValue = S;
  }
  __finally
  {
    FUpdateLock = false;
  };
};

void __fastcall TfrmMain::SynchronizeValueEditors(Variant AValue)
{
  FUpdateLock = true;
  try
  {
    seFontSize->EditValue = AValue;
    trbFontSize->EditValue = AValue;
    prbFontSize->EditValue = AValue;
  }
  __finally
  {
    FUpdateLock = false;
  };
};

void __fastcall TfrmMain::SynchronizeTextEditors(Variant AValue)
{
  FUpdateLock = true;
  try
  {
    lblCompanyName->Caption = AValue;
    beCompanyName->EditValue = AValue;
    edtCompanyName->EditValue = AValue;
  }
  __finally
  {
    FUpdateLock = false;
  };
};

bool __fastcall TfrmMain::IsItemControlSelected(TdxBarItem* ABarItem, int ALink)
{
  return((ABarItem->Links[ALink]->Control != 0) && (ABarItem->Links[ALink]->Control->IsSelected));
};

void __fastcall TfrmMain::clcFontColorChange(TObject *Sender)
{
  UpdateComboBoxesView();
};

void __fastcall TfrmMain::edtSiteChange(TObject *Sender)
{
  UpdateTextEditView();
};

void __fastcall TfrmMain::chbMonochromeChange(TObject *Sender)
{
  UpdateCheckBoxesView();
};

void __fastcall TfrmMain::scbSelectPathChange(TObject *Sender)
{
  if (!FUpdateLock)
  {
    FUpdateLock = true;
    try
    {
      AnsiString AValue;
      AValue = scbSelectPath->EditValue.AsType(varString);
      edtLastPath->Properties->BeginUpdate();
      try
      {
        TStrings* AMRUEditLookupItems = ((TcxMRUEditProperties*)(edtLastPath->Properties))->LookupItems;
        int AIndex = AMRUEditLookupItems->IndexOf(AValue);
        if (AIndex != -1)
          AMRUEditLookupItems->Move(AIndex, 0);
        else
          AMRUEditLookupItems->Insert(0, AValue);
        if (AMRUEditLookupItems->Count > 100)
          AMRUEditLookupItems->Delete(AMRUEditLookupItems->Count - 1);
      }
      __finally
      {
        edtLastPath->Properties->EndUpdate(false);
      }

      SynchronizePathEditors(AValue);
      UpdateComboBoxesView();
    }
    __finally
    {
      FUpdateLock = false;
    };
  };
};

void __fastcall TfrmMain::edtLastPathChange(TObject *Sender)
{
  if (!FUpdateLock)
  {
    SynchronizePathEditors(((TcxBarEditItem*)(Sender))->EditValue);
    UpdateComboBoxesView();
  };
};

void __fastcall TfrmMain::edtImageChange(TObject *Sender)
{
  if (! FUpdateLock)
  {
    SynchronizeImageEditors(((TcxBarEditItem*)(Sender))->EditValue);
    UpdateImageEditorsView();
  };
};

void __fastcall TfrmMain::reRichChange(TObject *Sender)
{
  TStringStream* AStream = new TStringStream(reRich->EditValue);
  try
  {
    TfrmMultiLineTextEditors* AFrame = dynamic_cast<TfrmMultiLineTextEditors*>(EditorDemoFrameManager()->Frames[bfcMultilineTextEditors]);
    AFrame->SetParameters(AStream, 0);
  }
  __finally
  {
    delete AStream;
  };
};

void __fastcall TfrmMain::memMemoChange(TObject *Sender)
{
  if (! FUpdateLock)
  {
    SynchronizeMultilineTextEditors(((TcxBarEditItem*)(Sender))->EditValue);
    UpdateMultilineTextEditorsView();
  }
};

void __fastcall TfrmMain::btnExitClick(TObject *Sender)
{
  frmMain->Close();
};

void __fastcall TfrmMain::btnShowDescriptionClick(TObject *Sender)
{
  lblDemoDescription->Visible = btnShowDescription->Down;
}

void __fastcall TfrmMain::btnToolBarDescriptionsClick(TObject *Sender)
{
  EditorDemoFrameManager()->SetDescriptionsVisible(btnToolBarDescriptions->Down);
};

void __fastcall TfrmMain::beCompanyNamePropertiesButtonClick(TObject *Sender,
  int AButtonIndex)
{
  ShowMessage("Company name: " + beCompanyName->EditValue);
};

void __fastcall TfrmMain::cbStyleEditChange(TObject *Sender)
{
  SetEditorStyle("StyleEdit", cbStyleEdit);
};

void __fastcall TfrmMain::SetEditorStyle(AnsiString APropName, TcxBarEditItem* AStyleSource)
{
  int AStyleIndex = ((TcxComboBoxProperties*)(AStyleSource->Properties))->Items->IndexOf(AStyleSource->EditValue);
  TcxStyle* AStyle = (TcxStyle*)(cxStyleRepository1->Items[AStyleIndex]);
  if (APropName == "Style")
   edtPreviewItem->Style = AStyle;
  else /* "StyleEdit" */
   edtPreviewItem->StyleEdit = AStyle;
};

void __fastcall TfrmMain::imcImagesChange(TObject *Sender)
{
  UpdateComboBoxesView();
};

void __fastcall TfrmMain::fncRibbonFontNameChange(TObject *Sender)
{
  if (! FUpdateLock)
  {
    int AFontIndex = ((TcxComboBoxProperties*)(cbRibbonFont->Properties))->Items->IndexOf(cbRibbonFont->EditValue);
    switch (AFontIndex)
    {
      case 0:
        {FRibbon->Fonts->TabHeader->Name = fncRibbonFontName->EditValue; break;}
      case 1:
        {FRibbon->Fonts->Group->Name = fncRibbonFontName->EditValue; break;}
      case 2:
        {FRibbon->Fonts->GroupHeader->Name = fncRibbonFontName->EditValue; break;}
    };
    SynchronizeRibbonFontEditors();
  };
}

void __fastcall TfrmMain::btnStandardClick(TObject *Sender)
{
  BarManager->Style = (TdxBarManagerStyle)(((TComponent*)(Sender))->Tag);
}

void __fastcall TfrmMain::btnBlueRibbonSchemeClick(TObject *Sender)
{
  FRibbon->ColorSchemeName = ((TdxBarLargeButton*)(Sender))->Caption;
}

void __fastcall TfrmMain::edtDateChange(TObject *Sender)
{
  UpdateValueEditorsView();
}

//---------------------------------------------------------------------------


void __fastcall TfrmMain::tblContactsCalcFields(TDataSet *DataSet)
{
  tblContacts->FieldByName("FullName")->Value = tblContacts->FieldByName("FirstName")->AsString + " " + tblContacts->FieldByName("LastName")->AsString;
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::edtPopupPropertiesCloseUp(TObject *Sender)
{
  if (! FUpdateLock)
  {
    SynchronizeMultilineTextEditors(memPopup->Lines->Text);
    UpdateMultilineTextEditorsView();
  }
};
//---------------------------------------------------------------------------

void __fastcall TfrmMain::cbLookUpChange(TObject *Sender)
{
  TLocateOptions AOptions;
  tblContacts->Locate("ID", cbLookUp->EditValue, AOptions);
  UpdateComboBoxesView();
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::chgSelectColorChange(TObject *Sender)
{
  if (!FUpdateLock)
  {
    SynchronizeCheckGroupEditors(((TcxBarEditItem*)(Sender))->EditValue);
    UpdateCheckBoxesView();
  };
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::cbFontSizePropertiesValidate(TObject *Sender,
      Variant &DisplayValue, TCaption &ErrorText, bool &Error)
{
  //if (VarIsNull(DisplayValue))
  //   DisplayValue = ((TcxBarEditItem*)(Sender))->EditValue;
}
//---------------------------------------------------------------------------