home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / RealTime Graphics ActiveX / DATA.3 / Examples / Delphi / UITools / UIToolsU.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-10-21  |  2.7 KB  |  113 lines
  1. unit UIToolsU;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   QCSCRBAR, QCBUTTON, OleCtrls, QCGRPBUT;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     QCGrpButCtrl1: TQCGrpButCtrl;
  12.     QCGrpButCtrl2: TQCGrpButCtrl;
  13.     QCButtonCtrl1: TQCButtonCtrl;
  14.     QCButtonCtrl2: TQCButtonCtrl;
  15.     QCButtonCtrl3: TQCButtonCtrl;
  16.     QCScrBarCtrl1: TQCScrBarCtrl;
  17.     QCScrBarCtrl2: TQCScrBarCtrl;
  18.     procedure FormCreate(Sender: TObject);
  19.   private
  20.   procedure BuildGraph1;
  21.   procedure BuildGraph2;
  22.   procedure BuildGraph3;
  23.   procedure BuildGraph4;
  24.   procedure BuildGraph5;    { Private declarations }
  25.   public
  26.     { Public declarations }
  27.   end;
  28.  
  29. var
  30.   Form1: TForm1;
  31.  
  32. implementation
  33.  uses ctwxdef;
  34. {$R *.DFM}
  35.  
  36. procedure TForm1.FormCreate(Sender: TObject);
  37. begin
  38.      BuildGraph1;
  39.     BuildGraph2;
  40.     BuildGraph3;
  41.     BuildGraph4;
  42.     BuildGraph5;
  43. end;
  44.  
  45. procedure TForm1.BuildGraph1;
  46. var
  47.    sButtonStrings, CR: string;
  48. begin
  49.  
  50.      //number of buttons
  51.     QCGrpButCtrl1.ControlNumButtons  := 5;
  52.  
  53.     //button direction
  54.     QCGrpButCtrl1.ControlButtonHorizontal  := FALSE;
  55.  
  56.     //colors
  57.     QCGrpButCtrl1.ControlTitleColor  := RGB_BLACK;
  58.     CR := chr(13); // make CR a carriage return string;
  59.     sButtonStrings := 'Coffee' + CR  + 'Latte' + CR +'Cappucino' + CR + 'Tea' +  CR + 'Cocoa' + CR;
  60.  
  61.     //button string
  62.     QCGrpButCtrl1.ControllButtonString := sButtonStrings;
  63.  
  64.  
  65. end;
  66.  
  67. procedure TForm1.BuildGraph2;
  68. var
  69.   sButtonStrings, CR: string;
  70. begin
  71.     QCGrpButCtrl2.ControlNumButtons  := 3;
  72.     CR := chr(13); // make CR a carriage return string;
  73.        sButtonStrings := '8 oz' + CR  + '16 oz' + CR +'32 oz';
  74.     QCGrpButCtrl2.ControllButtonString := sButtonStrings;
  75.  
  76. end;
  77.  
  78. procedure TForm1.BuildGraph3;
  79. begin
  80.     QCScrBarCtrl1.ControlTitleString  := 'Temperature';
  81.     QCScrBarCtrl1.ControlTop  := 0.3;
  82.     QCScrBarCtrl1.ControlColor  := RGB(255, 0, 0);
  83. end;
  84.  
  85. procedure TForm1.BuildGraph4;
  86. begin
  87.     QCScrBarCtrl2.ControlTitleString  := 'Strength';
  88.     QCScrBarCtrl2.ControlTop  := 0.15;
  89. end;
  90.  
  91. procedure TForm1.BuildGraph5;
  92. begin
  93.     QCButtonCtrl1.ControlButtonString  := 'Cinnamon';
  94.     QCButtonCtrl2.ControlButtonString  := 'Chocolate';
  95.     QCButtonCtrl3.ControlButtonString  := 'Whip Cream';
  96.  
  97.     QCButtonCtrl1.ControlTitleFontSize  := 8;
  98.     QCButtonCtrl1.ControlTitleColor  := RGB_WHITE;
  99.     QCButtonCtrl1.ControlColor  := RGB_GREEN;
  100.     QCButtonCtrl1.ControlButtonLook  := BC_LOOK_HIGH;
  101.  
  102.     QCButtonCtrl2.ControlTitleFontSize  := 8;
  103.     QCButtonCtrl2.ControlTitleColor  := RGB_WHITE;
  104.     QCButtonCtrl2.ControlColor  := RGB_GREEN;
  105.  
  106.     QCButtonCtrl3.ControlTitleFontSize  := 8;
  107.     QCButtonCtrl3.ControlTitleColor  := RGB_WHITE;
  108.     QCButtonCtrl3.ControlColor  := RGB_GREEN;
  109.  
  110. end;
  111.  
  112. end.
  113.