?? rm_prvdlg.pas
字號:
{*****************************************}
{ }
{ Report Machine v2.0 }
{ Report preview Dlg }
{ }
{*****************************************}
unit RM_PrvDlg;
interface
{$I RM.inc}
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, Buttons, StdCtrls, Menus, RM_Const, RM_View, RM_common,
TB97Tlbr, TB97Ctls, TB97
{$IFDEF Delphi4}, ImgList, RzButton, RzLabel, RzPanel{$ENDIF};
type
TRMPreviewForm = class(TForm)
ProcMenu: TPopupMenu;
itmScale200: TMenuItem;
itmScale150: TMenuItem;
itmScale100: TMenuItem;
itmScaale75: TMenuItem;
itmScale50: TMenuItem;
itmScale25: TMenuItem;
itmScale10: TMenuItem;
itmPageWidth: TMenuItem;
itmOnePage: TMenuItem;
itmDoublePage: TMenuItem;
OpenDialog: TOpenDialog;
SaveDialog: TSaveDialog;
PreviewPanel: TPanel;
ImageList1: TImageList;
N1: TMenuItem;
itmNewPage: TMenuItem;
itmDeletePage: TMenuItem;
itmEditPage: TMenuItem;
Dock971: TDock97;
ToolbarStand: TToolbar97;
btnAutoScale: TToolbarButton97;
btnOnePage: TToolbarButton97;
BtnExit: TToolbarButton97;
btn100: TToolbarButton97;
btnPageSetup: TToolbarButton97;
btnPageWidth: TToolbarButton97;
ToolbarSep972: TToolbarSep97;
btnPrint: TToolbarButton97;
ToolbarSep973: TToolbarSep97;
btnTop: TToolbarButton97;
btnSave: TToolbarButton97;
btnPrev: TToolbarButton97;
btnOpen: TToolbarButton97;
btnNext: TToolbarButton97;
btnLast: TToolbarButton97;
btnFind: TToolbarButton97;
ToolbarSep974: TToolbarSep97;
ToolbarSep975: TToolbarSep97;
tbLine: TToolbarSep97;
ToolbarDraw: TToolbar97;
ToolbarButton971: TToolbarButton97;
ToolbarButton972: TToolbarButton97;
ToolbarButton973: TToolbarButton97;
ToolbarButton974: TToolbarButton97;
ToolbarButton975: TToolbarButton97;
ToolbarButton976: TToolbarButton97;
ToolbarButton977: TToolbarButton97;
ImageList2: TImageList;
ToolbarButton978: TToolbarButton97;
ToolbarButton979: TToolbarButton97;
ToolbarButton9710: TToolbarButton97;
ToolbarButton9711: TToolbarButton97;
ToolbarSep976: TToolbarSep97;
ToolbarSep977: TToolbarSep97;
Dock972: TDock97;
Dock973: TDock97;
Dock974: TDock97;
N4: TMenuItem;
itmPrint: TMenuItem;
itmPrintCurrentPage: TMenuItem;
RzPanel3: TRzPanel;
RzLabel1: TRzLabel;
RzPanel2: TRzPanel;
RzToolButton1: TRzToolButton;
ImageList3: TImageList;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure btnTopClick(Sender: TObject);
procedure btnPrevClick(Sender: TObject);
procedure btnNextClick(Sender: TObject);
procedure btnLastClick(Sender: TObject);
procedure btn100Click(Sender: TObject);
procedure btnOnePageClick(Sender: TObject);
procedure btnPageWidthClick(Sender: TObject);
procedure itmScale10Click(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure btnOpenClick(Sender: TObject);
procedure btnSaveClick(Sender: TObject);
procedure btnPrintClick(Sender: TObject);
procedure btnFindClick(Sender: TObject);
procedure itmNewPageClick(Sender: TObject);
procedure itmDeletePageClick(Sender: TObject);
procedure itmEditPageClick(Sender: TObject);
procedure btnPageSetupClick(Sender: TObject);
procedure ProcMenuPopup(Sender: TObject);
procedure btnAutoScaleClick(Sender: TObject);
procedure BtnExitClick(Sender: TObject);
procedure itmPrintCurrentPageClick(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
FDoc: Pointer;
FViewer: TRMPreview;
FCmbZoom: TRMComboBox;
procedure WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo); message WM_GETMINMAXINFO;
procedure OnStatusChange(Sender: TObject);
procedure OnCmbZoomChange(Sender: TObject);
procedure Localize;
public
{ Public declarations }
procedure Show_Modal(ADoc: Pointer);
end;
implementation
{$R *.DFM}
uses RM_Class, Printers, RM_Prntr, RM_PrDlg, RM_Utils, RM_CmpReg;
var
LastScale: Double = 1;
LastScaleMode: TRMScaleMode = mdNone;
LastAutoScale: Boolean = False;
procedure TRMPreviewForm.Localize;
begin
Font.Name := RMLoadStr(SRMDefaultFontName);
Font.Size := StrToInt(RMLoadStr(SRMDefaultFontSize));
Font.Charset := StrToInt(RMLoadStr(SCharset));
itmPageWidth.Caption := RMLoadStr(rmRes + 020);
itmOnePage.Caption := RMLoadStr(rmRes + 021);
itmDoublePage.Caption := RMLoadStr(rmRes + 022);
itmNewPage.Caption := RMLoadStr(rmRes + 030);
itmDeletePage.Caption := RMLoadStr(rmRes + 031);
itmEditPage.Caption := RMLoadStr(rmRes + 029);
itmPrint.Caption := RMLoadStr(rmRes + 40) + '...';
itmPrintCurrentPage.Caption := RMLoadStr(rmRes + 376);
btnOpen.Hint := RMLoadStr(rmRes + 025);
btnSave.Hint := RMLoadStr(rmRes + 026);
btnPrint.Hint := RMLoadStr(rmRes + 027);
btnFind.Hint := RMLoadStr(rmRes + 028);
btnExit.Hint := RMLoadStr(rmRes + 023);
btnOnePage.Hint := RMLoadStr(rmRes + 1858);
btnPageWidth.Hint := RMLoadStr(rmRes + 1857);
btnTop.Hint := RMLoadStr(rmRes + 32);
btnPrev.Hint := RMLoadStr(rmRes + 33);
btnNext.Hint := RMLoadStr(rmRes + 34);
btnLast.Hint := RMLoadStr(rmRes + 35);
btnPageSetup.Hint := RMLoadStr(rmRes + 24);
end;
procedure TRMPreviewForm.OnStatusChange(Sender: TObject);
begin
case FViewer.ZoomMode of
mdPageWidth: btnPageWidth.Down := TRUE;
mdOnePage: btnOnePage.Down := TRUE;
else
if Round(FViewer.Zoom) = 100 then
btn100.Down := TRUE
else
begin
btn100.Down := FALSE;
btnPageWidth.Down := FALSE;
btnOnePage.Down := FALSE;
end;
end;
if btnPageWidth.Down then
FCmbZoom.ItemIndex := 7
else if btnOnePage.Down then
FCmbZoom.ItemIndex := 8
else if btn100.Down then
FCmbZoom.ItemIndex := 2
else
FCmbZoom.ItemIndex := FCmbZoom.Items.IndexOf(IntToStr(Round(FViewer.Zoom)) + '%');
end;
procedure TRMPreviewForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if FormStyle <> fsMDIChild then
RMSaveFormPosition(Self);
Action := caFree;
end;
procedure TRMPreviewForm.Show_Modal(ADoc: Pointer);
begin
FDoc := ADoc;
FViewer.Connect(ADoc);
FViewer.OnStatusChange := OnStatusChange;
N4.Visible := RMDesignerClass <> nil;
itmNewPage.Visible := N4.Visible;
itmDeletePage.Visible := N4.Visible;
itmEditPage.Visible := N4.Visible;
if not (csDesigning in TRMReport(ADoc).ComponentState) then
begin
FCmbZoom.Visible := pbZoom in TRMReport(ADoc).PreviewButtons;
btnOpen.Visible := pbLoad in TRMReport(ADoc).PreviewButtons;
btnSave.Visible := pbSave in TRMReport(ADoc).PreviewButtons;
btnPrint.Visible := pbPrint in TRMReport(ADoc).PreviewButtons;
btnExit.Visible := pbExit in TRMReport(ADoc).PreviewButtons;
end;
case TRMReport(ADoc).InitialZoom of
pzPageWidth: btnPageWidth.Down := TRUE;
pzOnePage: btnOnePage.Down := TRUE;
else
FViewer.LastScale := LastScale;
FViewer.ZoomMode := LastScaleMode;
// btn100.Down := TRUE;
end;
FViewer.AutoScale := LastAutoScale;
btnAutoScale.Down := FViewer.AutoScale;
btnPrint.Enabled := Printer.Printers.Count > 0;
FCmbZoom.Text := IntToStr(Round(FViewer.Zoom)) + '%';
tbLine.Visible := FCmbZoom.Visible;
if TRMReport(ADoc).ModalPreview and (not TRMReport(ADoc).MDIPreview) then
ShowModal
else
Show;
end;
procedure TRMPreviewForm.WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo);
begin
with Msg.MinMaxInfo^ do
begin
ptMaxSize.x := Screen.Width;
ptMaxSize.y := Screen.Height;
ptMaxPosition.x := 0;
ptMaxPosition.y := 0;
end;
end;
procedure TRMPreviewForm.FormCreate(Sender: TObject);
begin
Localize;
FCmbZoom := TRMComboBox.Create(ToolbarStand);
with FCmbZoom do
begin
Parent := ToolbarStand;
SetBounds(0, 1, 60, 20);
DropDownCount := 11;
Items.Add('200%');
Items.Add('150%');
Items.Add('100%');
Items.Add('75%');
Items.Add('50%');
Items.Add('25%');
Items.Add('10%');
Items.Add(RMLoadStr(rmRes + 1857));
Items.Add(RMLoadStr(rmRes + 1858));
Items.Add(RMLoadStr(rmRes + 1859));
OnChange := OnCmbZoomChange;
end;
ToolbarStand.OrderIndex[FCmbZoom] := 0;
FViewer := TRMPreview.Create(Self);
with FViewer do
begin
Align := alClient;
Parent := PreviewPanel;
PopupMenu := ProcMenu;
AutoScale := False;
ParentForm := Self;
end;
end;
procedure TRMPreviewForm.FormDestroy(Sender: TObject);
begin
// FViewer.Free;
// FViewer := nil;
end;
procedure TRMPreviewForm.btnTopClick(Sender: TObject);
begin
FViewer.First;
end;
procedure TRMPreviewForm.btnPrevClick(Sender: TObject);
begin
FViewer.Prev;
end;
procedure TRMPreviewForm.btnNextClick(Sender: TObject);
begin
FViewer.Next;
end;
procedure TRMPreviewForm.btnLastClick(Sender: TObject);
begin
FViewer.Last;
end;
procedure TRMPreviewForm.btn100Click(Sender: TObject);
begin
FViewer.Zoom := 100;
LastScale := FViewer.LastScale;
LastScaleMode := FViewer.ZoomMode;
end;
procedure TRMPreviewForm.btnOnePageClick(Sender: TObject);
begin
FViewer.OnePage;
LastScale := FViewer.LastScale;
LastScaleMode := FViewer.ZoomMode;
end;
procedure TRMPreviewForm.btnPageWidthClick(Sender: TObject);
begin
FViewer.PageWidth;
LastScale := FViewer.LastScale;
LastScaleMode := FViewer.ZoomMode;
end;
procedure TRMPreviewForm.itmScale10Click(Sender: TObject);
begin
with Sender as TMenuItem do
begin
case Tag of
1: FViewer.PageWidth;
2: FViewer.OnePage;
3: FViewer.TwoPages;
else
FViewer.Zoom := Tag;
end;
Checked := True;
end;
FCmbZoom.Text := IntToStr(Round(FViewer.Zoom)) + '%';
LastScale := FViewer.LastScale;
LastScaleMode := FViewer.ZoomMode;
end;
procedure TRMPreviewForm.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if FViewer.Doc = nil then Exit;
if Key in [vk_Up, vk_Down, vk_Prior, vk_Next] then
if FViewer.VScrollBar.Enabled then FViewer.VScrollBar.SetFocus;
if Key in [vk_Left, vk_Right] then
if FViewer.HScrollBar.Enabled then FViewer.HScrollBar.SetFocus;
if Key = vk_Up then
FViewer.VScrollBar.Position := FViewer.VScrollBar.Position - FViewer.VScrollBar.SmallChange
else if Key = vk_Down then
FViewer.VScrollBar.Position := FViewer.VScrollBar.Position + FViewer.VScrollBar.SmallChange
else if Key = vk_Left then
FViewer.HScrollBar.Position := FViewer.HScrollBar.Position - FViewer.HScrollBar.SmallChange
else if Key = vk_Right then
FViewer.HScrollBar.Position := FViewer.HScrollBar.Position + FViewer.HScrollBar.SmallChange
else if Key = vk_Prior then
begin
if ssCtrl in Shift then
btnPrev.Click
else
FViewer.VScrollBar.Position := FViewer.VScrollBar.Position - FViewer.VScrollBar.LargeChange;
end
else if Key = vk_Next then
begin
if ssCtrl in Shift then
btnNext.Click
else
FViewer.VScrollBar.Position := FViewer.VScrollBar.Position + FViewer.VScrollBar.LargeChange;
end
else if Key = vk_Escape then
btnExit.Click
else if Key = vk_Home then
begin
if ssCtrl in Shift then
FViewer.VScrollBar.Position := 0
else
Exit;
end
else if Key = vk_End then
begin
if ssCtrl in Shift then
btnLast.Click
else
Exit;
end
else if ssCtrl in Shift then
begin
if (ssAlt in Shift) and (Chr(Key) = 'P') and btnPrint.Enabled then
FViewer.PrintCurrentPage
else if Chr(Key) = 'O' then btnOpen.Click
else if Chr(Key) = 'S' then btnSave.Click
else if (Chr(Key) = 'P') and btnPrint.Enabled then btnPrint.Click
else if Chr(Key) = 'F' then btnFind.Click
else if (Chr(Key) = 'E') and itmEditPage.Visible then itmEditPage.Click;
end
else if Key = vk_F3 then
begin
if FViewer.FindStr <> '' then
begin
if FViewer.LastFoundPage <> FViewer.CurPage - 1 then
begin
FViewer.LastFoundPage := FViewer.CurPage - 1;
FViewer.LastFoundObject := 0;
end;
FViewer.FindNext;
end;
end
else
Exit;
Key := 0;
end;
procedure TRMPreviewForm.btnOpenClick(Sender: TObject);
begin
if FViewer.Doc = nil then
Exit;
OpenDialog.Filter := RMLoadStr(SRepFile) + ' (*.rmp)|*.rmp';
with OpenDialog do
begin
if Execute then
FViewer.LoadFromFile(FileName);
end;
end;
procedure TRMPreviewForm.btnSaveClick(Sender: TObject);
var
i: Integer;
s: string;
begin
if FViewer.Doc = nil then
Exit;
s := RMLoadStr(SRepFile) + ' (*.rmp)|*.rmp';
for i := 0 to RMFiltersCount - 1 do
s := s + '|' + RMFilters(i).FilterDesc + '|' + RMFilters(i).FilterExt;
SaveDialog.Filter := s;
SaveDialog.FilterIndex := 1;
if SaveDialog.Execute then
begin
FViewer.SaveToFile(SaveDialog.FileName, SaveDialog.FilterIndex);
end;
end;
procedure TRMPreviewForm.btnPrintClick(Sender: TObject);
begin
FViewer.Print;
end;
procedure TRMPreviewForm.OnCmbZoomChange(Sender: TObject);
begin
case FCmbZoom.ItemIndex of
0: FViewer.Zoom := 200;
1: FViewer.Zoom := 150;
2: FViewer.Zoom := 100;
3: FViewer.Zoom := 75;
4: FViewer.Zoom := 50;
5: FViewer.Zoom := 25;
6: FViewer.Zoom := 10;
7: FViewer.PageWidth;
8: FViewer.OnePage;
9: FViewer.TwoPages;
end;
end;
procedure TRMPreviewForm.btnFindClick(Sender: TObject);
begin
FViewer.Find;
end;
procedure TRMPreviewForm.itmNewPageClick(Sender: TObject);
begin
FViewer.AddPage;
end;
procedure TRMPreviewForm.itmDeletePageClick(Sender: TObject);
begin
FViewer.DeletePage(FViewer.CurPage - 1);
end;
procedure TRMPreviewForm.itmEditPageClick(Sender: TObject);
begin
FViewer.EditPage(FViewer.CurPage - 1);
end;
procedure TRMPreviewForm.btnPageSetupClick(Sender: TObject);
begin
FViewer.DlgPageSetup;
end;
procedure TRMPreviewForm.ProcMenuPopup(Sender: TObject);
begin
N4.Visible := FViewer.CanModify;
itmNewPage.Visible := N4.Visible;
itmDeletePage.Visible := N4.Visible;
itmEditPage.Visible := N4.Visible;
end;
procedure TRMPreviewForm.btnAutoScaleClick(Sender: TObject);
begin
FViewer.AutoScale := btnAutoScale.Down;
LastAutoScale := btnAutoScale.Down;
end;
procedure TRMPreviewForm.BtnExitClick(Sender: TObject);
begin
if TRMReport(FDoc).ModalPreview then
ModalResult := mrOk
else
Close;
end;
procedure TRMPreviewForm.itmPrintCurrentPageClick(Sender: TObject);
begin
FViewer.PrintCurrentPage;
end;
procedure TRMPreviewForm.FormShow(Sender: TObject);
begin
if FormStyle <> fsMDIChild then
RMRestoreFormPosition(Self);
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -