home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 October / Chip_2001-10_cd1.bin / zkuste / delphi / kolekce / d6 / FRCLX.ZIP / DEMO / Unit3.pas < prev    next >
Pascal/Delphi Source File  |  2001-07-29  |  3KB  |  119 lines
  1. unit Unit3;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, Classes, QGraphics, QControls, QForms, QDialogs,
  7.   FR_Ctrls, FR_View, QExtCtrls, QButtons;
  8.  
  9. type
  10.   TForm3 = class(TForm)
  11.     Panel1: TPanel;
  12.     frPreview1: TfrPreview;
  13.     frSpeedButton1: TfrSpeedButton;
  14.     frSpeedButton2: TfrSpeedButton;
  15.     frSpeedButton3: TfrSpeedButton;
  16.     frSpeedButton4: TfrSpeedButton;
  17.     frSpeedButton5: TfrSpeedButton;
  18.     frSpeedButton6: TfrSpeedButton;
  19.     frSpeedButton7: TfrSpeedButton;
  20.     frSpeedButton8: TfrSpeedButton;
  21.     frSpeedButton9: TfrSpeedButton;
  22.     frSpeedButton10: TfrSpeedButton;
  23.     frSpeedButton11: TfrSpeedButton;
  24.     procedure frSpeedButton4Click(Sender: TObject);
  25.     procedure frSpeedButton5Click(Sender: TObject);
  26.     procedure frSpeedButton6Click(Sender: TObject);
  27.     procedure frSpeedButton7Click(Sender: TObject);
  28.     procedure frSpeedButton8Click(Sender: TObject);
  29.     procedure frSpeedButton9Click(Sender: TObject);
  30.     procedure frSpeedButton10Click(Sender: TObject);
  31.     procedure frSpeedButton1Click(Sender: TObject);
  32.     procedure frSpeedButton2Click(Sender: TObject);
  33.     procedure frSpeedButton3Click(Sender: TObject);
  34.     procedure FormActivate(Sender: TObject);
  35.     procedure frSpeedButton11Click(Sender: TObject);
  36.     procedure FormKeyDown(Sender: TObject; var Key: Word;
  37.       Shift: TShiftState);
  38.   private
  39.     { Private declarations }
  40.   public
  41.     { Public declarations }
  42.   end;
  43.  
  44. var
  45.   Form3: TForm3;
  46.  
  47. implementation
  48.  
  49. {$R *.xfm}
  50.  
  51. procedure TForm3.frSpeedButton4Click(Sender: TObject);
  52. begin
  53.   frPreview1.First;
  54. end;
  55.  
  56. procedure TForm3.frSpeedButton5Click(Sender: TObject);
  57. begin
  58.   frPreview1.Prev;
  59. end;
  60.  
  61. procedure TForm3.frSpeedButton6Click(Sender: TObject);
  62. begin
  63.   frPreview1.Next;
  64. end;
  65.  
  66. procedure TForm3.frSpeedButton7Click(Sender: TObject);
  67. begin
  68.   frPreview1.Last;
  69. end;
  70.  
  71. procedure TForm3.frSpeedButton8Click(Sender: TObject);
  72. begin
  73.   frPreview1.LoadFromFile;
  74. end;
  75.  
  76. procedure TForm3.frSpeedButton9Click(Sender: TObject);
  77. begin
  78.   frPreview1.SaveToFile;
  79. end;
  80.  
  81. procedure TForm3.frSpeedButton10Click(Sender: TObject);
  82. begin
  83.   frPreview1.Print;
  84. end;
  85.  
  86. procedure TForm3.frSpeedButton1Click(Sender: TObject);
  87. begin
  88.   frPreview1.OnePage;
  89. end;
  90.  
  91. procedure TForm3.frSpeedButton2Click(Sender: TObject);
  92. begin
  93.   frPreview1.Zoom := 100;
  94. end;
  95.  
  96. procedure TForm3.frSpeedButton3Click(Sender: TObject);
  97. begin
  98.   frPreview1.PageWidth;
  99. end;
  100.  
  101. procedure TForm3.FormActivate(Sender: TObject);
  102. begin
  103.   frSpeedButton2.Down := True;
  104.   frSpeedButton2Click(nil);
  105. end;
  106.  
  107. procedure TForm3.frSpeedButton11Click(Sender: TObject);
  108. begin
  109.   ModalResult := mrOk;
  110. end;
  111.  
  112. procedure TForm3.FormKeyDown(Sender: TObject; var Key: Word;
  113.   Shift: TShiftState);
  114. begin
  115.   frPreview1.Window.FormKeyDown(Sender, Key, Shift);
  116. end;
  117.  
  118. end.
  119.