home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 September / Chip_2001-09_cd1.bin / zkuste / delphi / kompon / d23456 / RSRULER.ZIP / DemoForm.pas < prev    next >
Pascal/Delphi Source File  |  2001-07-01  |  5KB  |  154 lines
  1. unit DemoForm;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   RsRuler, ExtCtrls, Buttons, ComCtrls, StdCtrls, Math, jpeg, GIFImage;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Panel1: TPanel;
  12.     Panel2: TPanel;
  13.     Panel3: TPanel;
  14.     Panel4: TPanel;
  15.     Panel5: TPanel;
  16.     Panel6: TPanel;
  17.     RsRulerCorner1: TRsRulerCorner;
  18.     RsRulerCorner2: TRsRulerCorner;
  19.     RsRulerCorner3: TRsRulerCorner;
  20.     RsRulerCorner4: TRsRulerCorner;
  21.     RsRuler1: TRsRuler;
  22.     RsRuler2: TRsRuler;
  23.     RsRuler3: TRsRuler;
  24.     RsRuler4: TRsRuler;
  25.     SpeedButton1: TSpeedButton;
  26.     SpeedButton2: TSpeedButton;
  27.     SpeedButton3: TSpeedButton;
  28.     SpeedButton4: TSpeedButton;
  29.     Label1: TLabel;
  30.     TrackBar1: TTrackBar;
  31.     PctBtn: TSpeedButton;
  32.     LogoImage: TImage;
  33.     SpeedButton5: TSpeedButton;
  34.     SpeedButton6: TSpeedButton;
  35.     SpeedButton7: TSpeedButton;
  36.     Label2: TLabel;
  37.     procedure SpeedButton1Click(Sender: TObject);
  38.     procedure SpeedButton2Click(Sender: TObject);
  39.     procedure SpeedButton3Click(Sender: TObject);
  40.     procedure SpeedButton4Click(Sender: TObject);
  41.     procedure SpeedButton5Click(Sender: TObject);
  42.     procedure TrackBar1Change(Sender: TObject);
  43.     procedure PctBtnClick(Sender: TObject);
  44.     procedure LogoImageMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  45.     procedure SpeedButton6Click(Sender: TObject);
  46.     procedure SpeedButton7Click(Sender: TObject);
  47.  
  48.   private
  49.     { Private declarations }
  50.   public
  51.     { Public declarations }
  52.   end;
  53.  
  54. var
  55.   Form1: TForm1;
  56.  
  57. implementation
  58.  
  59. {$R *.DFM}
  60.  
  61. procedure TForm1.SpeedButton1Click(Sender: TObject);
  62. begin
  63.   RsRulerCorner1.Flat := (Sender as TSpeedButton).Down;
  64.   RsRulerCorner2.Flat := (Sender as TSpeedButton).Down;
  65.   RsRulerCorner3.Flat := (Sender as TSpeedButton).Down;
  66.   RsRulerCorner4.Flat := (Sender as TSpeedButton).Down;
  67.   RsRuler1.Flat := (Sender as TSpeedButton).Down;
  68.   RsRuler2.Flat := (Sender as TSpeedButton).Down;
  69.   RsRuler3.Flat := (Sender as TSpeedButton).Down;
  70.   RsRuler4.Flat := (Sender as TSpeedButton).Down;
  71. end;
  72.  
  73. procedure TForm1.SpeedButton2Click(Sender: TObject);
  74. begin
  75.   RsRulerCorner1.Units := ruCenti;
  76.   RsRuler1.Units := ruCenti;
  77.   RsRuler2.Units := ruCenti;
  78.   RsRuler3.Units := ruCenti;
  79.   RsRuler4.Units := ruCenti;
  80. end;
  81.  
  82. procedure TForm1.SpeedButton3Click(Sender: TObject);
  83. begin
  84.   RsRulerCorner1.Units := ruMilli;
  85.   RsRuler1.Units := ruMilli;
  86.   RsRuler2.Units := ruMilli;
  87.   RsRuler3.Units := ruMilli;
  88.   RsRuler4.Units := ruMilli;
  89. end;
  90.  
  91. procedure TForm1.SpeedButton4Click(Sender: TObject);
  92. begin
  93.   RsRulerCorner1.Units := ruInch;
  94.   RsRuler1.Units := ruInch;
  95.   RsRuler2.Units := ruInch;
  96.   RsRuler3.Units := ruInch;
  97.   RsRuler4.Units := ruInch;
  98. end;
  99.  
  100. procedure TForm1.SpeedButton5Click(Sender: TObject);
  101. begin
  102.   RsRuler1.HairLine := (Sender as TSpeedButton).Down;
  103.   RsRuler2.HairLine := (Sender as TSpeedButton).Down;
  104.   RsRuler3.HairLine := (Sender as TSpeedButton).Down;
  105.   RsRuler4.HairLine := (Sender as TSpeedButton).Down;
  106.   SpeedButton6.Visible := (Sender as TSpeedButton).Down;
  107.   SpeedButton7.Visible := (Sender as TSpeedButton).Down;
  108. end;
  109.  
  110. procedure TForm1.TrackBar1Change(Sender: TObject);
  111. begin
  112.   RsRuler1.Scale := (Sender as TTrackBar).Position;
  113.   RsRuler2.Scale := (Sender as TTrackBar).Position;
  114.   RsRuler3.Scale := (Sender as TTrackBar).Position;
  115.   RsRuler4.Scale := (Sender as TTrackBar).Position;
  116.   (Sender as TTrackBar).Hint := IntToStr((Sender as TTrackBar).Position) + '%';;
  117.   PctBtn.Caption := IntToStr(RsRuler1.Scale) +'%';
  118.   LogoImage.Width := Max(1, Round(200 * RsRuler1.Scale / 100));
  119.   LogoImage.Height := Max(1, Round(134 * RsRuler1.Scale / 100));
  120. end;
  121.  
  122. procedure TForm1.PctBtnClick(Sender: TObject);
  123. begin
  124.   TrackBar1.Position := 100;
  125. end;
  126.  
  127. procedure TForm1.LogoImageMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  128. begin
  129.   RsRuler1.HairLinePos := X;
  130.   RsRuler2.HairLinePos := X;
  131.   RsRuler3.HairLinePos := Y;
  132.   RsRuler4.HairLinePos := Y;
  133. end;
  134.  
  135.  
  136.  
  137. procedure TForm1.SpeedButton6Click(Sender: TObject);
  138. begin
  139.   RsRuler1.HairLineStyle := hlsLine;
  140.   RsRuler2.HairLineStyle := hlsLine;
  141.   RsRuler3.HairLineStyle := hlsLine;
  142.   RsRuler4.HairLineStyle := hlsLine;
  143. end;
  144.  
  145. procedure TForm1.SpeedButton7Click(Sender: TObject);
  146. begin
  147.   RsRuler1.HairLineStyle := hlsRect;
  148.   RsRuler2.HairLineStyle := hlsRect;
  149.   RsRuler3.HairLineStyle := hlsRect;
  150.   RsRuler4.HairLineStyle := hlsRect;
  151. end;
  152.  
  153. end.
  154.