rm_dsggridreport.pas

来自「胜天进销存源码,国产优秀的进销存」· PAS 代码 · 共 2,209 行 · 第 1/5 页

  Self.EndUpdate;

  Localize;
end;

procedure TRMToolbarStandard.Localize;
begin
  RMSetStrProp(Self, 'Caption', rmRes + 081);
  RMSetStrProp(btnFileNew, 'Hint', rmRes + 087);
  RMSetStrProp(btnFileOpen, 'Hint', rmRes + 088);
  RMSetStrProp(btnFileSave, 'Hint', rmRes + 089);
  RMSetStrProp(btnPreview1, 'Hint', rmRes + 877);
  RMSetStrProp(btnPreview, 'Hint', rmRes + 090);
  RMSetStrProp(btnPrint, 'Hint', rmRes + 159);
  RMSetStrProp(btnCut, 'Hint', rmRes + 091);
  RMSetStrProp(btnCopy, 'Hint', rmRes + 092);
  RMSetStrProp(btnPaste, 'Hint', rmRes + 093);
  RMSetStrProp(btnAddPage, 'Hint', rmRes + 099);
  RMSetStrProp(btnAddForm, 'Hint', rmRes + 193);
  RMSetStrProp(btnDeletePage, 'Hint', rmRes + 100);
  RMSetStrProp(btnPageSetup, 'Hint', rmRes + 101);
  RMSetStrProp(btnExit, 'Hint', rmRes + 106);
  RMSetStrProp(btnUndo, 'Hint', rmRes + 094);
  RMSetStrProp(btnRedo, 'Hint', rmRes + 095);
end;

{------------------------------------------------------------------------------}
{------------------------------------------------------------------------------}
{ TRMToolbarEdit }

constructor TRMToolbarEdit.CreateAndDock(AOwner: TComponent; DockTo: TRMDock);
var
  i, liOffset: Integer;
begin
  inherited Create(AOwner);
  BeginUpdate;
  Dockedto := DockTo;
  FDesignerForm := TRMGridReportDesignerForm(AOwner);
  DockRow := 1;
  DockPos := 0;
  Name := 'GridReport_ToolbarEdit';
  CloseButton := False;

  FcmbFont := TRMFontComboBox.Create(Self);
  with FcmbFont do
  begin
    Parent := Self;
    Height := 21;
    Width := 120;
    //      Device := rmfdBoth;
    TrueTypeOnly := True;
    Tag := TAG_SetFontName;
    OnChange := FDesignerForm.DoClick;
  end;
  FcmbFontSize := TRMComboBox97 {TComboBox}.Create(Self);
  with FcmbFontSize do
  begin
    Parent := Self;
    Height := 21;
    Width := 50;
    DropDownCount := 12;
    if RMIsChineseGB then
      liOffset := 0
    else
      liOffset := 13;
    for i := Low(RMDefaultFontSizeStr) + liOffset to High(RMDefaultFontSizeStr) do
      Items.Add(RMDefaultFontSizeStr[i]);
    Tag := TAG_SetFontSize;
    OnChange := FDesignerForm.DoClick;
  end;
  ToolbarSep971 := TRMToolbarSep.Create(Self);
  with ToolbarSep971 do
  begin
    AddTo := Self;
  end;

  btnFontBold := TRMToolbarButton.Create(Self);
  with btnFontBold do
  begin
    Tag := 0;
    AllowAllUp := True;
    GroupIndex := 1;
    ImageIndex := 0;
    Images := FDesignerForm.ImageListFont;
    Tag := TAG_FontBold;
    OnClick := FDesignerForm.DoClick;
    AddTo := Self;
  end;
  btnFontItalic := TRMToolbarButton.Create(Self);
  with btnFontItalic do
  begin
    Tag := 1;
    AllowAllUp := True;
    GroupIndex := 2;
    ImageIndex := 1;
    Images := FDesignerForm.ImageListFont;
    Tag := TAG_FontItalic;
    OnClick := FDesignerForm.DoClick;
    AddTo := Self;
  end;
  btnFontUnderline := TRMToolbarButton.Create(Self);
  with btnFontUnderline do
  begin
    Tag := 2;
    AllowAllUp := True;
    GroupIndex := 3;
    ImageIndex := 2;
    Images := FDesignerForm.ImageListFont;
    Tag := TAG_FontUnderline;
    OnClick := FDesignerForm.DoClick;
    AddTo := Self;
  end;
  ToolbarSep972 := TRMToolbarSep.Create(Self);
  with ToolbarSep972 do
  begin
    AddTo := Self;
  end;

  FBtnFontColor := TRMColorPickerButton.Create(Self);
  with FBtnFontColor do
  begin
    Tag := TAG_FontColor;
    Parent := Self;
    ParentShowHint := True;
    ColorType := rmptFont;
    OnColorChange := FDesignerForm.DoClick;
  end;
  FBtnBackColor := TRMColorPickerButton.Create(FDesignerForm);
  with FBtnBackColor do
  begin
    Parent := Self;
    Tag := TAG_BackColor;
    ParentShowHint := True;
    ColorType := rmptFill;
    OnColorChange := FDesignerForm.DoClick;
  end;
  FBtnFrameColor := TRMColorPickerButton.Create(FDesignerForm);
  with FBtnFrameColor do
  begin
    Parent := Self;
    Tag := TAG_FrameColor;
    ParentShowHint := True;
    ColorType := rmptLine; //rmptHighlight;
    OnColorChange := FDesignerForm.DoClick;
  end;
  FCmbFrameWidth := TRMComboBox97.Create(FDesignerForm);
  with FCmbFrameWidth do
  begin
    Parent := Self;
    Width := 44;
    Tag := TAG_FrameSize;
    DropDownCount := 14;
    Items.Add('0.1');
    Items.Add('0.5');
    Items.Add('1');
    Items.Add('1.5');
    for i := 2 to 10 do
      Items.Add(IntToStr(i));

    OnClick := FDesignerForm.DoClick;
  end;
  ToolbarSep973 := TRMToolbarSep.Create(Self);
  with ToolbarSep973 do
  begin
    AddTo := Self;
  end;

  btnHLeft := TRMToolbarButton.Create(Self);
  with btnHLeft do
  begin
    GroupIndex := 4;
    ImageIndex := 4;
    Images := FDesignerForm.ImageListFont;
    Tag := TAG_HAlignLeft;
    OnClick := FDesignerForm.DoClick;
    AddTo := Self;
  end;
  btnHCenter := TRMToolbarButton.Create(Self);
  with btnHCenter do
  begin
    GroupIndex := 4;
    ImageIndex := 5;
    Images := FDesignerForm.ImageListFont;
    Tag := TAG_HAlignCenter;
    OnClick := FDesignerForm.DoClick;
    AddTo := Self;
  end;
  btnHRight := TRMToolbarButton.Create(Self);
  with btnHRight do
  begin
    GroupIndex := 4;
    ImageIndex := 6;
    Images := FDesignerForm.ImageListFont;
    Tag := TAG_HAlignRight;
    OnClick := FDesignerForm.DoClick;
    AddTo := Self;
  end;
  btnHSpaceEqual := TRMToolbarButton.Create(Self);
  with btnHSpaceEqual do
  begin
    GroupIndex := 4;
    ImageIndex := 7;
    Images := FDesignerForm.ImageListFont;
    Tag := TAG_HAlignEuqal;
    OnClick := FDesignerForm.DoClick;
    AddTo := Self;
  end;
  ToolbarSep974 := TRMToolbarSep.Create(Self);
  with ToolbarSep974 do
  begin
    AddTo := Self;
  end;

  btnVTop := TRMToolbarButton.Create(Self);
  with btnVTop do
  begin
    GroupIndex := 6;
    ImageIndex := 8;
    Images := FDesignerForm.ImageListFont;
    Tag := TAG_VAlignTop;
    OnClick := FDesignerForm.DoClick;
    AddTo := Self;
  end;
  btnVCenter := TRMToolbarButton.Create(Self);
  with btnVCenter do
  begin
    GroupIndex := 6;
    ImageIndex := 9;
    Images := FDesignerForm.ImageListFont;
    Tag := TAG_VAlignCenter;
    OnClick := FDesignerForm.DoClick;
    AddTo := Self;
  end;
  btnVBottom := TRMToolbarButton.Create(Self);
  with btnVBottom do
  begin
    GroupIndex := 6;
    ImageIndex := 10;
    Images := FDesignerForm.ImageListFont;
    Tag := TAG_VAlignBottom;
    OnClick := FDesignerForm.DoClick;
    AddTo := Self;
  end;
  ToolbarSep975 := TRMToolbarSep.Create(Self);
  with ToolbarSep975 do
  begin
    AddTo := Self;
  end;

  EndUpdate;
  Localize;
end;

procedure TRMToolbarEdit.Localize;
begin
  RMSetStrProp(Self, 'Caption', rmRes + 082);
  RMSetStrProp(btnFontBold, 'Hint', rmRes + 115);
  RMSetStrProp(btnFontItalic, 'Hint', rmRes + 116);
  RMSetStrProp(btnFontUnderline, 'Hint', rmRes + 117);
  RMSetStrProp(btnHLeft, 'Hint', rmRes + 107);
  RMSetStrProp(btnHCenter, 'Hint', rmRes + 109);
  RMSetStrProp(btnHRight, 'Hint', rmRes + 108);
  RMSetStrProp(btnHSpaceEqual, 'Hint', rmRes + 114);
  RMSetStrProp(btnVTop, 'Hint', rmRes + 112);
  RMSetStrProp(btnVCenter, 'Hint', rmRes + 111);
  RMSetStrProp(btnVBottom, 'Hint', rmRes + 113);
  RMSetStrProp(FBtnFontColor, 'Hint', rmRes + 208);
  RMSetStrProp(FBtnFrameColor, 'Hint', rmRes + 210);
  RMSetStrProp(FBtnBackColor, 'Hint', rmRes + 209);
  RMSetStrProp(FCmbFrameWidth, 'Hint', rmRes + 194);
end;

{------------------------------------------------------------------------------}
{------------------------------------------------------------------------------}
{ TRMToolbarGrid }

constructor TRMToolbarGrid.CreateAndDock(AOwner: TComponent; DockTo: TRMDock);
begin
  inherited Create(AOwner);
  BeginUpdate;
  Dockedto := DockTo;
  FDesignerForm := TRMGridReportDesignerForm(AOwner);
  DockRow := 0;
  DockPos := 100;
  Name := 'GridReport_ToolbarGrid';
  CloseButton := False;

  btnInsertColumn := TRMToolbarButton.Create(Self);
  with btnInsertColumn do
  begin
    ImageIndex := 0;
    Images := FDesignerForm.ImageListGrid;
    OnClick := FDesignerForm.itmInsertLeftColumnClick;
    AddTo := Self;
  end;
  btnInsertRow := TRMToolbarButton.Create(Self);
  with btnInsertRow do
  begin
    ImageIndex := 1;
    Images := FDesignerForm.ImageListGrid;
    OnClick := FDesignerForm.itmInsertTopRowClick;
    AddTo := Self;
  end;
  btnAddColumn := TRMToolbarButton.Create(Self);
  with btnAddColumn do
  begin
    ImageIndex := 2;
    Images := FDesignerForm.ImageListGrid;
    OnClick := OnAddColumnClick;
    AddTo := Self;
  end;
  btnAddRow := TRMToolbarButton.Create(Self);
  with btnAddRow do
  begin
    ImageIndex := 3;
    Images := FDesignerForm.ImageListGrid;
    OnClick := OnAddRowClick;
    AddTo := Self;
  end;
  ToolbarSep1 := TRMToolbarSep.Create(Self);
  with ToolbarSep1 do
  begin
    AddTo := Self;
  end;

  btnDeleteColumn := TRMToolbarButton.Create(Self);
  with btnDeleteColumn do
  begin
    ImageIndex := 4;
    Images := FDesignerForm.ImageListGrid;
    OnClick := FDesignerForm.itmDeleteColumnClick;
    AddTo := Self;
  end;
  btnDeleteRow := TRMToolbarButton.Create(Self);
  with btnDeleteRow do
  begin
    ImageIndex := 5;
    Images := FDesignerForm.ImageListGrid;
    OnClick := FDesignerForm.itmDeleteRowClick;
    AddTo := Self;
  end;
  btnSetRowsAndColumns := TRMToolbarButton.Create(Self);
  with btnSetRowsAndColumns do
  begin
    ImageIndex := 10;
    Images := FDesignerForm.ImageListGrid;
    OnClick := OnBtnSetRowsAndColumnsClick;
    AddTo := Self;
  end;
  ToolbarSep2 := TRMToolbarSep.Create(Self);
  with ToolbarSep2 do
  begin
    AddTo := Self;
  end;

  btnMerge := TRMToolbarButton.Create(Self);
  with btnMerge do
  begin
    ImageIndex := 6;
    Images := FDesignerForm.ImageListGrid;
    OnClick := FDesignerForm.btnMergeClick;
    AddTo := Self;
  end;
  btnSplit := TRMToolbarButton.Create(Self);
  with btnSplit do
  begin
    ImageIndex := 7;
    Images := FDesignerForm.ImageListGrid;
    OnClick := FDesignerForm.btnSplitClick;
    AddTo := Self;
  end;
  btnMergeColumn := TRMToolbarButton.Create(Self);
  with btnMergeColumn do
  begin
    ImageIndex := 8;
    Images := FDesignerForm.ImageListGrid;
    OnClick := OnMergeColumnClick;
    AddTo := Self;
  end;
  btnMergeRow := TRMToolbarButton.Create(Self);
  with btnMergeRow do
  begin
    ImageIndex := 9;
    Images := FDesignerForm.ImageListGrid;
    OnClick := OnMergeRowClick;
    AddTo := Self;
  end;

  EndUpdate;
  Localize;
end;

procedure TRMToolbarGrid.Localize;
begin
  RMSetStrProp(Self, 'Caption', rmRes + 244);
  RMSetStrProp(btnInsertColumn, 'Hint', rmRes + 236);
  RMSetStrProp(btnInsertRow, 'Hint', rmRes + 237);
  RMSetStrProp(btnAddColumn, 'Hint', rmRes + 238);
  RMSetStrProp(btnAddRow, 'Hint', rmRes + 239);
  RMSetStrProp(btnDeleteColumn, 'Hint', rmRes + 240);
  RMSetStrProp(btnDeleteRow, 'Hint', rmRes + 241);
  RMSetStrProp(btnMerge, 'Hint', rmRes + 805);
  RMSetStrProp(btnSplit, 'Hint', rmRes + 806);
  RMSetStrProp(btnMergeColumn, 'Hint', rmRes + 242);
  RMSetStrProp(btnMergeRow, 'Hint', rmRes + 243);
  RMSetStrProp(btnSetRowsAndColumns, 'Hint', rmRes + 693);
end;

procedure TRMToolbarGrid.OnAddColumnClick(Sender: TObject);
begin
  FDesignerForm.AddUndoAction(acChangeCellCount);
  FDesignerForm.Modified := True;
  FDesignerForm.FGrid.ColCount := FDesignerForm.FGrid.ColCount + 1;
end;

procedure TRMToolbarGrid.OnAddRowClick(Sender: TObject);
begin
  FDesignerForm.AddUndoAction(acChangeCellCount);
  FDesignerForm.Modified := True;
  FDesignerForm.FGrid.RowCount := FDesignerForm.FGrid.RowCount + 1;
end;

procedure TRMToolbarGrid.OnMergeColumnClick(Sender: TObject);
var
  i: Integer;
  liRect: TRect;
begin
  FDesignerForm.Modified := True;
  liRect := FDesignerForm.FGrid.Selection;
  for i := liRect.Left to liRect.Right do
  begin
    FDesignerForm.FGrid.MergeCell(i, liRect.Top, i, liRect.Bottom);
  end;
end;

procedure TRMToolbarGrid.OnMergeRowClick(Sender: TObject);
var
  i: Integer;
  liRect: TRect;
begin
  FDesignerForm.Modified := True;
  liRect := FDesignerForm.FGrid.Selection;