home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 5 / MasteringVisualBasic5.iso / protview / demowinx / data.3 / text / samples / DELPHI / TEXTDEMO / TEXTDEM.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-10-25  |  4.8 KB  |  163 lines
  1. unit TextDem;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, OleCtrls, WinXtext, ExtCtrls;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Text3D1: TText3D;
  12.     PlaneFrame: TText3D;
  13.     IndentFrame: TText3D;
  14.     SunkenFrame: TText3D;
  15.     PictureFrame: TText3D;
  16.     SharpFrame: TText3D;
  17.     OutdentFrame: TText3D;
  18.     RaisedFrame: TText3D;
  19.     FrameFrame: TText3D;
  20.     Text3D10: TText3D;
  21.     StopGo: TText3D;
  22.     FrameColorCombo: TComboBox;
  23.     ShadowCheck: TCheckBox;
  24.     TextOnFrameCheck: TCheckBox;
  25.     Text3D12: TText3D;
  26.     Text3D13: TText3D;
  27.     CloseButton: TButton;
  28.     Text3D2: TText3D;
  29.     Timer1: TTimer;
  30.     procedure Timer1Timer(Sender: TObject);
  31.     procedure FrameColorComboChange(Sender: TObject);
  32.     procedure ShadowCheckClick(Sender: TObject);
  33.     procedure TextOnFrameCheckClick(Sender: TObject);
  34.     procedure StopGoMouseDown(Sender: TObject; Button: TMouseButton;
  35.       Shift: TShiftState; X, Y: Integer);
  36.     procedure StopGoMouseUp(Sender: TObject; Button: TMouseButton;
  37.       Shift: TShiftState; X, Y: Integer);
  38.     procedure FormActivate(Sender: TObject);
  39.     procedure CloseButtonClick(Sender: TObject);
  40.   private
  41.     { Private declarations }
  42.   public
  43.     { Public declarations }
  44.   end;
  45.  
  46. var
  47.   Form1: TForm1;
  48.   intTime: integer;
  49.  
  50. implementation
  51.  
  52. {$R *.DFM}
  53.  
  54. procedure TForm1.Timer1Timer(Sender: TObject);
  55. var strTime: string;
  56. begin
  57.     intTime := intTime + 1;
  58.     If intTime >= 10 Then intTime := 0;
  59.     strTime := IntToStr(intTime);
  60.  
  61.     PlaneFrame.FrameStyle := 1 + intTime;
  62.     PlaneFrame.Text := 'Plane' + strTime;
  63.  
  64.     IndentFrame.FrameStyle := 11 + intTime;
  65.     IndentFrame.Text := 'Indent' + strTime;
  66.  
  67.     OutdentFrame.FrameStyle := 21 + intTime;
  68.     OutdentFrame.Text := 'Outdent' + strTime;
  69.  
  70.     SunkenFrame.FrameStyle := 31 + intTime;
  71.     SunkenFrame.Text := 'Sunken' + strTime;
  72.  
  73.     RaisedFrame.FrameStyle := 41 + intTime;
  74.     RaisedFrame.Text := 'Raised' + strTime;
  75.  
  76.     PictureFrame.FrameStyle := 51 + intTime;
  77.     PictureFrame.Text := 'Picture' + strTime;
  78.  
  79.     FrameFrame.FrameStyle := 61 + intTime;
  80.     FrameFrame.Text := 'Frame' + strTime;
  81.  
  82.     SharpFrame.FrameStyle := 71 + intTime;
  83.     SharpFrame.Text := 'Sharp' + strTime;
  84. end;
  85.  
  86. procedure TForm1.FrameColorComboChange(Sender: TObject);
  87. begin
  88.     PlaneFrame.FrameColor := FrameColorCombo.ItemIndex;
  89.     IndentFrame.FrameColor := FrameColorCombo.ItemIndex;
  90.     OutdentFrame.FrameColor := FrameColorCombo.ItemIndex;
  91.     SunkenFrame.FrameColor := FrameColorCombo.ItemIndex;
  92.     RaisedFrame.FrameColor := FrameColorCombo.ItemIndex;
  93.     PictureFrame.FrameColor := FrameColorCombo.ItemIndex;
  94.     FrameFrame.FrameColor := FrameColorCombo.ItemIndex;
  95.     SharpFrame.FrameColor := FrameColorCombo.ItemIndex;
  96. end;
  97.  
  98. procedure TForm1.ShadowCheckClick(Sender: TObject);
  99. begin
  100.     PlaneFrame.FrameShadow := ShadowCheck.Checked;
  101.     IndentFrame.FrameShadow := ShadowCheck.Checked;
  102.     OutdentFrame.FrameShadow := ShadowCheck.Checked;
  103.     SunkenFrame.FrameShadow := ShadowCheck.Checked;
  104.     RaisedFrame.FrameShadow := ShadowCheck.Checked;
  105.     PictureFrame.FrameShadow := ShadowCheck.Checked;
  106.     FrameFrame.FrameShadow := ShadowCheck.Checked;
  107.     SharpFrame.FrameShadow := ShadowCheck.Checked;
  108. end;
  109.  
  110. procedure TForm1.TextOnFrameCheckClick(Sender: TObject);
  111. begin
  112.     PlaneFrame.TextOnFrame := TextOnFrameCheck.Checked;
  113.     IndentFrame.TextOnFrame := TextOnFrameCheck.Checked;
  114.     OutdentFrame.TextOnFrame := TextOnFrameCheck.Checked;
  115.     SunkenFrame.TextOnFrame := TextOnFrameCheck.Checked;
  116.     RaisedFrame.TextOnFrame := TextOnFrameCheck.Checked;
  117.     PictureFrame.TextOnFrame := TextOnFrameCheck.Checked;
  118.     FrameFrame.TextOnFrame := TextOnFrameCheck.Checked;
  119.     SharpFrame.TextOnFrame := TextOnFrameCheck.Checked;
  120. end;
  121.  
  122. procedure TForm1.StopGoMouseDown(Sender: TObject; Button: TMouseButton;
  123.   Shift: TShiftState; X, Y: Integer);
  124. begin
  125.     StopGo.FrameStyle := 39;
  126.     StopGo.ForeColor := RGB(192, 192, 192);
  127.     StopGo.HighlightColor := RGB(0, 0, 0);
  128. end;
  129.  
  130. procedure TForm1.StopGoMouseUp(Sender: TObject; Button: TMouseButton;
  131.   Shift: TShiftState; X, Y: Integer);
  132. var stopTime: Boolean;
  133. begin
  134.     stopTime := Timer1.Enabled;
  135.     Timer1.Enabled := Not stopTime;
  136.  
  137.     StopGo.FrameStyle := 49;
  138.     StopGo.ForeColor := RGB(0, 0, 0);
  139.     StopGo.HighlightColor := RGB(255, 255, 255);
  140.     If stopTime Then
  141.     begin
  142.         StopGo.Text := 'Go';
  143.         StopGo.BackColor := RGB(255, 0, 255);
  144.     end
  145.     Else
  146.     begin
  147.         StopGo.Text := 'Stop';
  148.         StopGo.BackColor := RGB(255, 0, 0);
  149.     end;
  150. end;
  151.  
  152. procedure TForm1.FormActivate(Sender: TObject);
  153. begin
  154.      FrameColorCombo.ItemIndex := 0;
  155. end;
  156.  
  157. procedure TForm1.CloseButtonClick(Sender: TObject);
  158. begin
  159.      Close
  160. end;
  161.  
  162. end.
  163.