home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 October / Chip_2001-10_cd1.bin / zkuste / delphi / kolekce / d56 / TDSOFT.ZIP / DEMO / MainFrm.pas < prev    next >
Pascal/Delphi Source File  |  2001-08-09  |  3KB  |  101 lines
  1. unit MainFrm;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, TDSuperEdit, ExtCtrls, TDGradientPanel, TDTrasparentWindow,
  8.   TDScreenStamp, Buttons, TDSuperLabel, ImgList, TDSuperComboBox,
  9.   TDTrayIcon, TDEnvironmentStrings, TDSuperListBox;
  10.  
  11. type
  12.   TfrmMain = class(TForm)
  13.     TDGradientPanel1: TTDGradientPanel;
  14.     pnlTDSuperEdit: TPanel;
  15.     TDSuperEdit1: TTDSuperEdit;
  16.     TDSuperEdit2: TTDSuperEdit;
  17.     TDSuperEdit3: TTDSuperEdit;
  18.     TDSuperEdit4: TTDSuperEdit;
  19.     TDSuperEdit5: TTDSuperEdit;
  20.     chkSizeBox: TCheckBox;
  21.     chkDialogFrame: TCheckBox;
  22.     chkFloating: TCheckBox;
  23.     chkOnlyNumber: TCheckBox;
  24.     chkUseArrow: TCheckBox;
  25.     chkMultiLine: TCheckBox;
  26.     TDScreenStamp: TTDScreenStamp;
  27.     TDGradientPanel2: TPanel;
  28.     SpeedButton1: TSpeedButton;
  29.     edtDelay: TTDSuperEdit;
  30.     TDSuperLabel1: TTDSuperLabel;
  31.     TDSuperLabel2: TTDSuperLabel;
  32.     SpeedButton2: TSpeedButton;
  33.     TDSuperComboBox1: TTDSuperComboBox;
  34.     ImageList1: TImageList;
  35.     TDTrayIcon1: TTDTrayIcon;
  36.     Button1: TButton;
  37.     Button2: TButton;
  38.     TDEnvironmentStrings1: TTDEnvironmentStrings;
  39.     TDSuperListBox1: TTDSuperListBox;
  40.     procedure chkMultiLineClick(Sender: TObject);
  41.     procedure SpeedButton1Click(Sender: TObject);
  42.     procedure SpeedButton2Click(Sender: TObject);
  43.     procedure Button1Click(Sender: TObject);
  44.     procedure Button2Click(Sender: TObject);
  45.   private
  46.     { Private declarations }
  47.   public
  48.     { Public declarations }
  49.   end;
  50.  
  51. var
  52.   frmMain: TfrmMain;
  53.  
  54. implementation
  55.  
  56. uses InvisibleFrm, ScreenStampFrm;
  57.  
  58. {$R *.DFM}
  59.  
  60. procedure TfrmMain.chkMultiLineClick(Sender: TObject);
  61. var
  62.   i: Byte;
  63. begin
  64.   for i:=0 to Pred(frmMain.ComponentCount) do
  65.   if (frmMain.Components[i] is TTDSuperEdit) then
  66.     with(frmMain.Components[i] as TTDSuperEdit) do
  67.     begin
  68.       SizeBox:=chkSizeBox.Checked;
  69.       DialogFrame:=chkDialogFrame.Checked;
  70.       Float:=chkFloating.Checked;
  71.       OnlyNumber:=chkOnlyNumber.Checked;
  72.       UseArrowNavigation:=chkUseArrow.Checked;
  73.       Multiline:=chkMultiline.Checked;
  74.     end;
  75. end;
  76.  
  77. procedure TfrmMain.SpeedButton1Click(Sender: TObject);
  78. begin
  79.   frmInvisible.TDTW.ShowTrasparent(strtoint(edtDelay.Text));
  80. end;
  81.  
  82. procedure TfrmMain.SpeedButton2Click(Sender: TObject);
  83. begin
  84.   frmScreenStamp.Image.Canvas.Draw(0,0,TDScreenStamp.CaptureScreen);
  85.   frmScreenStamp.ShowModal;
  86. end;
  87.  
  88. procedure TfrmMain.Button1Click(Sender: TObject);
  89. begin
  90.     TDTrayIcon1.Active:= not TDTrayIcon1.Active; 
  91. end;
  92.  
  93. procedure TfrmMain.Button2Click(Sender: TObject);
  94. begin
  95.     TDEnvironmentStrings1.RefreshVariables;
  96.     TDEnvironmentStrings1.GetVariablesList(TDSuperListBox1.Items);
  97.  
  98. end;
  99.  
  100. end.
  101.