inplaceeditorsdemomain.pas

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

        FRibbon.Tabs[BarManager.Bars[I].Tag - 1].AddToolBar(BarManager.Bars[I]);
  end;

begin
  FRibbon := TdxRibbon.Create(frmMain);
  FRibbon.Parent := frmMain;
  FRibbon.PopupMenuItems := [rpmiMinimizeRibbon];
  FRibbon.SupportNonClientDrawing := False;
  FRibbon.Visible := False;
  FRibbon.BarManager := BarManager;
  cbRibbonFont.EditValue := 'Tab Caption';
  FRibbon.ColorSchemeName := 'Blue';

  AddDemoToolBars;
  
  AddToolBar(tlbEditorType);
  FRibbon.Tabs[FRibbon.Tabs.Count - 1].AddToolBar(tlbEditorStyles);
  FRibbon.Tabs[FRibbon.Tabs.Count - 1].AddToolBar(tlbPreview);

  AddToolBar(tlbRibbonOptions);
  FRibbon.Tabs[FRibbon.Tabs.Count - 1].AddToolBar(tlbColorScheme);
  
  AddToolBar(tlbHelp);
  FRibbon.OnTabChanged := RibbonTabChanged;
  FRibbon.ApplicationButton.Glyph.Assign(Image1.Picture.Bitmap);
  FRibbon.BarManager := nil;
  AFrameManager[Ord(bfcRibbonOptions)].SetDescription(SRibbonOptionsDescription);
end;

procedure TfrmMain.InitializeFrames;
var
  I: Integer;
begin
  for I := 0 to AFrameManager.FramesCount - 1 do
  begin
    AFrameManager[I].Parent := Panel1;
    AFrameManager[I].Align := alClient;
  end;
end;

procedure TfrmMain.SynchronizeCalcValueEditors(AValue: Variant);
begin
  FUpdateLock := True;
  try
    edtCalculate.EditValue := AValue;
    edtMoney.EditValue := AValue;
  finally
    FUpdateLock := False;
  end;
end;

procedure TfrmMain.SynchronizeCheckGroupEditors(AValue: Variant);
begin
  FUpdateLock := True;
  try
    cbSelectColor.EditValue := AValue;
    chgSelectColor.EditValue := AValue;
  finally
    FUpdateLock := False;
  end;
end;

procedure TfrmMain.SynchronizeImageEditors(AValue: Variant);
begin
  FUpdateLock := True;
  try
    edtBlobImage.EditValue := AValue;
    edtImage.EditValue := AValue;
  finally
    FUpdateLock := False;
  end;
end;

procedure TfrmMain.SynchronizeMultilineTextEditors(AValue: Variant);
var
  AStream: TStringStream;
begin
  FUpdateLock := True;
  try
    AStream := TStringStream.Create(AValue);
    try
      edtBlob.EditValue := AValue;
      memMemo.EditValue := AValue;
      memPopup.Lines.Clear;
      memPopup.Lines.LoadFromStream(AStream);
    finally
      AStream.Free;
    end;
  finally
    FUpdateLock := False;
  end;
end;

procedure TfrmMain.SynchronizePathEditors(AValue: Variant);
begin
  FUpdateLock := True;
  try
    scbSelectPath.EditValue := AValue;
    edtLastPath.EditValue := AValue;
  finally
    FUpdateLock := False;
  end;
end;

procedure TfrmMain.SynchronizeRibbonFontEditors;
var
  AFontIndex: Integer;
  S: string;
  ARibbonFont: TdxRibbonAssignedFont;
begin
  FUpdateLock := True;
  try
    AFontIndex := TcxComboBoxProperties(cbRibbonFont.Properties).Items.IndexOf(cbRibbonFont.EditValue);
    case AFontIndex of
      0: fncRibbonFontName.EditValue := FRibbon.Fonts.TabHeader.Name;
      1: fncRibbonFontName.EditValue := FRibbon.Fonts.Group.Name;
      2: fncRibbonFontName.EditValue := FRibbon.Fonts.GroupHeader.Name;
    end;

    S := '';
    for ARibbonFont := Low(TdxRibbonAssignedFont) to High(TdxRibbonAssignedFont) do
      if ARibbonFont in FRibbon.Fonts.AssignedFonts then
        S := S + '1'
      else
        S := S + '0';
    ccbAssignedRibbonFonts.EditValue := S;
  finally
    FUpdateLock := False;
  end;
end;

procedure TfrmMain.SynchronizeValueEditors(AValue: Variant);
begin
  FUpdateLock := True;
  try
    seFontSize.EditValue := AValue;
    trbFontSize.EditValue := AValue;
    prbFontSize.EditValue := AValue;
  finally
    FUpdateLock := False;
  end;
end;

procedure TfrmMain.SynchronizeTextEditors(AValue: Variant);
begin
  FUpdateLock := True;
  try
    if ActiveBarControl <> nil then
      ActiveBarControl.HideAll;

    beCompanyName.EditValue := AValue;
    edtCompanyName.EditValue := AValue;
    lblCompanyName.Caption := AValue;
  finally
    FUpdateLock := False;
  end;
end;

procedure TfrmMain.clcFontColorChange(Sender: TObject);
begin
  UpdateComboBoxesView;
end;

procedure TfrmMain.edtSiteChange(Sender: TObject);
begin
  UpdateTextEditView;
end;

procedure TfrmMain.chgSelectColorChange(Sender: TObject);
begin
  if not FUpdateLock then
  begin
    SynchronizeCheckGroupEditors(TcxBarEditItem(Sender).EditValue);
    UpdateCheckBoxesView;
  end;
end;

procedure TfrmMain.chbMonochromeChange(Sender: TObject);
begin
  UpdateCheckBoxesView;                        
end;

procedure TfrmMain.scbSelectPathChange(Sender: TObject);
var
  AMRUEditLookupItems: TStrings;
  AValue: string;
  AIndex: Integer;
begin
  if not FUpdateLock then
  begin
    AValue := scbSelectPath.EditValue;

    edtLastPath.Properties.BeginUpdate;
    try
      AMRUEditLookupItems := TcxMRUEditProperties(edtLastPath.Properties).LookupItems;
      AIndex := AMRUEditLookupItems.IndexOf(AValue);
      if AIndex <> -1 then
        AMRUEditLookupItems.Move(AIndex, 0)
      else
        AMRUEditLookupItems.Insert(0, AValue);
      if AMRUEditLookupItems.Count > 100 then
        AMRUEditLookupItems.Delete(AMRUEditLookupItems.Count - 1);
    finally
      edtLastPath.Properties.EndUpdate(False);
    end;

    SynchronizePathEditors(AValue);
    UpdateComboBoxesView;
  end;
end;

procedure TfrmMain.edtLastPathChange(Sender: TObject);
begin
  if not FUpdateLock then
  begin
    SynchronizePathEditors(TcxBarEditItem(Sender).EditValue);
    UpdateComboBoxesView;
  end;
end;

procedure TfrmMain.edtImageChange(Sender: TObject);
begin
  if not FUpdateLock then
  begin
    SynchronizeImageEditors(TcxBarEditItem(Sender).EditValue);
    UpdateImageEditorsView;
  end;
end;

procedure TfrmMain.reRichChange(Sender: TObject);
var
  AStream: TStringStream;
begin
  AStream := TStringStream.Create(reRich.EditValue);
  try
    TfrmMultiLineTextEditors(AFrameManager.Frames[Ord(bfcMultilineTextEditors)]).SetParameters(AStream, nil);
  finally
    AStream.Free;
  end;
end;

procedure TfrmMain.memMemoChange(Sender: TObject);
begin
  if not FUpdateLock then
  begin
    SynchronizeMultilineTextEditors(TcxBarEditItem(Sender).EditValue);
    UpdateMultilineTextEditorsView;
  end;
end;

procedure TfrmMain.btnExitClick(Sender: TObject);
begin
  frmMain.Close;
end;

procedure TfrmMain.btnShowDescriptionClick(Sender: TObject);
begin
  lblDemoDescription.Visible := btnShowDescription.Down;
end;

procedure TfrmMain.btnToolBarDescriptionsClick(Sender: TObject);
begin
  AFrameManager.SetDescriptionsVisible(btnToolBarDescriptions.Down);
end;

procedure TfrmMain.beCompanyNamePropertiesButtonClick(Sender: TObject;
  AButtonIndex: Integer);
begin
  ShowMessage('Company name: ' + beCompanyName.EditValue);
end;

procedure TfrmMain.cbStyleEditChange(Sender: TObject);
begin
  SetEditorStyle('StyleEdit', cbStyleEdit);
end;

procedure TfrmMain.SetEditorStyle(APropName: string; AStyleSource: TcxBarEditItem);
var
  AStyleIndex: Integer;
  AStyle: TcxStyle;
begin
  AStyleIndex := TcxComboBoxProperties(AStyleSource.Properties).Items.IndexOf(AStyleSource.EditValue);
  AStyle := TcxStyle(cxStyleRepository1.Items[AStyleIndex]);
  if APropName = 'Style' then
   edtPreviewItem.Style := AStyle
  else {'StyleEdit'}
   edtPreviewItem.StyleEdit := AStyle;
end;

procedure TfrmMain.imcImagesChange(Sender: TObject);
begin
  UpdateComboBoxesView;
end;

procedure TfrmMain.fncRibbonFontNameChange(Sender: TObject);
var
  AFontIndex: Integer;
begin
  if not FUpdateLock then
  begin
    AFontIndex := TcxComboBoxProperties(cbRibbonFont.Properties).Items.IndexOf(cbRibbonFont.EditValue);
    case AFontIndex of
      0: FRibbon.Fonts.TabHeader.Name := fncRibbonFontName.EditValue;
      1: FRibbon.Fonts.Group.Name := fncRibbonFontName.EditValue;
      2: FRibbon.Fonts.GroupHeader.Name := fncRibbonFontName.EditValue;
    end;
    SynchronizeRibbonFontEditors;
  end;
end;

procedure TfrmMain.btnStandardClick(Sender: TObject);
begin
  BarManager.Style := TdxBarManagerStyle(TComponent(Sender).Tag);
end;

procedure TfrmMain.btnBlueRibbonSchemeClick(Sender: TObject);
begin
  FRibbon.ColorSchemeName := TdxBarLargeButton(Sender).Caption;
end;

procedure TfrmMain.edtDateChange(Sender: TObject);
begin
  UpdateValueEditorsView;
end;

procedure TfrmMain.cbLookUpChange(Sender: TObject);
begin
  tblContacts.Locate('ID', cbLookUp.EditValue, []);
  UpdateComboBoxesView;
end;

procedure TfrmMain.tblContactsCalcFields(DataSet: TDataSet);
begin
  tblContacts.FieldByName('FullName').Value := tblContacts.FieldByName('FirstName').AsString + ' ' + tblContacts.FieldByName('LastName').AsString;
end;

procedure TfrmMain.edtPopupPropertiesCloseUp(Sender: TObject);
begin
  if not FUpdateLock then
  begin
    SynchronizeMultilineTextEditors(memPopup.Lines.Text);
    UpdateMultilineTextEditorsView;
  end;
end;

procedure TfrmMain.cbFontSizePropertiesValidate(Sender: TObject;
  var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
begin
  if DisplayValue = '' then
    DisplayValue := (Sender as TcxBarEditItem).EditValue;
end;

end.