home *** CD-ROM | disk | FTP | other *** search
/ Delphi Anthology / aDELPHI.iso / ActiveX / BtPrinterList.ActiveX.Control.v1.1.0.0.Win9x.Cracked-KAC / Btprtl_t.exe / Helpers.pas < prev    next >
Pascal/Delphi Source File  |  1999-10-14  |  6KB  |  209 lines
  1. unit Helpers;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls;
  8.  
  9. type
  10.   TFormHelper = class(TForm)
  11.     bnBtGetAvailableBinName: TButton;
  12.     bnBtGetAvailableBinConstant: TButton;
  13.     bnBtGetAvailablePaperName: TButton;
  14.     bnBtGetAvailablePaperConstant: TButton;
  15.     bnBtGetAvailableOrientationName: TButton;
  16.     bnBtGetAvailableOrientationConstant: TButton;
  17.     cmbBtGetAvailableBinName: TComboBox;
  18.     txtBtGetAvailableBinName: TEdit;
  19.     cmbBtGetAvailableBinConstant: TComboBox;
  20.     cmbBtGetAvailablePaperName: TComboBox;
  21.     cmbBtGetAvailablePaperConstant: TComboBox;
  22.     cmbBtGetAvailableOrientationName: TComboBox;
  23.     cmbBtGetAvailableOrientationConstant: TComboBox;
  24.     txtBtGetAvailableBinConstant: TEdit;
  25.     txtBtGetAvailablePaperName: TEdit;
  26.     txtBtGetAvailablePaperConstant: TEdit;
  27.     txtBtGetAvailableOrientationName: TEdit;
  28.     txtBtGetAvailableOrientationConstant: TEdit;
  29.     procedure bnBtGetAvailableBinConstantClick(Sender: TObject);
  30.     procedure bnBtGetAvailableBinNameClick(Sender: TObject);
  31.     procedure bnBtGetAvailableOrientationConstantClick(Sender: TObject);
  32.     procedure bnBtGetAvailableOrientationNameClick(Sender: TObject);
  33.     procedure bnBtGetAvailablePaperConstantClick(Sender: TObject);
  34.     procedure bnBtGetAvailablePaperNameClick(Sender: TObject);
  35.     procedure FormCreate(Sender: TObject);
  36.   private
  37.     { Private declarations }
  38.   public
  39.     { Public declarations }
  40.   end;
  41.  
  42. var
  43.   FormHelper: TFormHelper;
  44.  
  45. implementation
  46.  
  47. uses Main;
  48.  
  49. {$R *.DFM}
  50.  
  51. procedure TFormHelper.bnBtGetAvailableBinConstantClick(Sender: TObject);
  52. var
  53.   b: string[25];
  54.   c: Integer;
  55.   i: Integer;
  56.   s: string[25];
  57.  
  58. begin
  59.   i := FormMain.PrinterListCtrl1.BtGetSelectedIndex;
  60.   b := cmbBtGetAvailableBinName.Items[cmbBtGetAvailableBinName.ItemIndex];
  61.   c := FormMain.PrinterListCtrl1.BtGetAvailableBinConstant(i, b);
  62.   Str(c, s);
  63.   txtBtGetAvailableBinName.Text := s;
  64. end;
  65.  
  66. procedure TFormHelper.bnBtGetAvailableBinNameClick(Sender: TObject);
  67. var
  68.   b: string[25];
  69.   c: Integer;
  70.   sc: string[25];
  71.   i: Integer;
  72.  
  73. begin
  74.     i := FormMain.PrinterListCtrl1.BtGetSelectedIndex;
  75.     sc := cmbBtGetAvailableBinConstant.Items[cmbBtGetAvailableBinConstant.ItemIndex];
  76.     Val(sc, c, c);
  77.     b := FormMain.PrinterListCtrl1.BtGetAvailableBinName(i, c);
  78.     txtBtGetAvailableBinConstant.text := b;
  79. end;
  80.  
  81. procedure TFormHelper.bnBtGetAvailableOrientationConstantClick(
  82.   Sender: TObject);
  83. var
  84.   o: string[25];
  85.   c: Integer;
  86.   i: Integer;
  87.   s: string[25];
  88. begin
  89.     i := FormMain.PrinterListCtrl1.BtGetSelectedIndex;
  90.     o := cmbBtGetAvailableOrientationName.Items[cmbBtGetAvailableOrientationName.ItemIndex];
  91.     c := FormMain.PrinterListCtrl1.BtGetAvailableOrientationConstant(i, o);
  92.     Str(c, s);
  93.     txtBtGetAvailableOrientationName.Text := s;
  94. end;
  95.  
  96. procedure TFormHelper.bnBtGetAvailableOrientationNameClick(
  97.   Sender: TObject);
  98. var
  99.   o: string[25];
  100.   c: Integer;
  101.   sc: string[25];
  102.   i: Integer;
  103.  
  104. begin
  105.     i := FormMain.PrinterListCtrl1.BtGetSelectedIndex;
  106.     sc := cmbBtGetAvailableOrientationConstant.Items[cmbBtGetAvailableOrientationConstant.ItemIndex];
  107.     Val(sc, c, c);
  108.     o := FormMain.PrinterListCtrl1.BtGetAvailableOrientationName(i, c);
  109.  
  110.     txtBtGetAvailableOrientationConstant.Text := o;
  111. end;
  112.  
  113. procedure TFormHelper.bnBtGetAvailablePaperConstantClick(Sender: TObject);
  114. var
  115.   p: string[25];
  116.   c: Integer;
  117.   i: Integer;
  118.   s: string[25];
  119. begin
  120.     i := FormMain.PrinterListCtrl1.BtGetSelectedIndex;
  121.     p := cmbBtGetAvailablePaperName.Items[cmbBtGetAvailablePaperName.ItemIndex];
  122.     c := FormMain.PrinterListCtrl1.BtGetAvailablePaperConstant(i, p);
  123.     Str(c, s);
  124.     txtBtGetAvailablePaperName.Text := s;
  125. end;
  126.  
  127. procedure TFormHelper.bnBtGetAvailablePaperNameClick(Sender: TObject);
  128. var
  129.   p: string[25];
  130.   c: Integer;
  131.   sc: string[25];
  132.   i: Integer;
  133. begin
  134.     i := FormMain.PrinterListCtrl1.BtGetSelectedIndex;
  135.     sc := cmbBtGetAvailablePaperConstant.Items[cmbBtGetAvailablePaperConstant.ItemIndex];
  136.     Val(sc, c, c);
  137.     p := FormMain.PrinterListCtrl1.BtGetAvailablePaperName(i, c);
  138.     txtBtGetAvailablePaperConstant.Text := p;
  139. end;
  140.  
  141. procedure TFormHelper.FormCreate(Sender: TObject);
  142. var
  143.   selIndex: Integer;
  144.   i: Integer;
  145.   binConstants: variant;
  146.   binNames: variant;
  147.   paperConstants: variant;
  148.   paperNames: variant;
  149.   orientConstants: variant;
  150.   orientNames: variant;
  151.   s: string[50];
  152.   n: Integer;
  153.  
  154. begin
  155.   selIndex := FormMain.PrinterListCtrl1.BtGetSelectedIndex;
  156.   binConstants := FormMain.PrinterListCtrl1.BtGetBinConstants(selIndex);
  157.   for i := 0 To VarArrayHighBound(binConstants, 1) do
  158.     begin
  159.       n := binConstants[i];
  160.       Str(n, s);
  161.       cmbBtGetAvailableBinConstant.Items.Add(s);
  162.     end;
  163.   cmbBtGetAvailableBinConstant.ItemIndex := 0;
  164.  
  165.   binNames := FormMain.PrinterListCtrl1.BtGetBinNames(selIndex);
  166.   for i := 0 To VarArrayHighBound(binNames, 1) do
  167.     begin
  168.       s := binNames[i];
  169.       cmbBtGetAvailableBinName.Items.Add(s);
  170.     end;
  171.   cmbBtGetAvailableBinName.ItemIndex := 0;
  172.  
  173.   paperConstants := FormMain.PrinterListCtrl1.BtGetPaperConstants(selIndex);
  174.   for i := 0 To VarArrayHighBound(paperConstants, 1) do
  175.     begin
  176.       n := paperConstants[i];
  177.       Str(n, s);
  178.       cmbBtGetAvailablePaperConstant.Items.Add(s);
  179.     end;
  180.   cmbBtGetAvailablePaperConstant.ItemIndex := 0;
  181.  
  182.   paperNames := FormMain.PrinterListCtrl1.BtGetPaperNames(selIndex);
  183.   for i := 0 To VarArrayHighBound(paperNames, 1) do
  184.     begin
  185.       s := paperNames[i];
  186.       cmbBtGetAvailablePaperName.Items.Add(s);
  187.     end;
  188.   cmbBtGetAvailablePaperName.ItemIndex := 0;
  189.  
  190.   orientConstants := FormMain.PrinterListCtrl1.BtGetOrientationConstants(selIndex);
  191.   for i := 0 To VarArrayHighBound(orientConstants, 1) do
  192.     begin
  193.       n := orientConstants[i];
  194.       Str(n, s);
  195.       cmbBtGetAvailableOrientationConstant.Items.Add(s);
  196.     end;
  197.   cmbBtGetAvailableOrientationConstant.ItemIndex := 0;
  198.  
  199.   orientNames := FormMain.PrinterListCtrl1.BtGetOrientationNames(selIndex);
  200.   for i := 0 To VarArrayHighBound(orientNames, 1) do
  201.     begin
  202.       s := orientNames[i];
  203.       cmbBtGetAvailableOrientationName.Items.Add(s);
  204.     end;
  205.   cmbBtGetAvailableOrientationName.ItemIndex := 0;
  206. end;
  207.  
  208. end.
  209.