home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 September / Chip_2001-09_cd1.bin / zkuste / delphi / kompon / d2345 / JSFORMEX.ZIP / demo / uMain.pas < prev   
Pascal/Delphi Source File  |  2001-03-29  |  6KB  |  216 lines
  1. unit uMain;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   ComCtrls, StdCtrls, ImgList, Menus, FormEx;
  8.  
  9. type
  10.   TfrmMain = class(TForm)
  11.     Pager: TPageControl;
  12.     GeneralSheet: TTabSheet;
  13.     lMovementStyle: TLabel;
  14.     cbMovementStyle: TComboBox;
  15.     lAcceptFiles: TLabel;
  16.     cbAcceptFiles: TComboBox;
  17.     lTopMostStyle: TLabel;
  18.     cbTopMostStyle: TComboBox;
  19.     lTaskVisible: TLabel;
  20.     cbTaskVisible: TComboBox;
  21.     Label1: TLabel;
  22.     eResizeBorder: TEdit;
  23.     cbAlwaysOnScreen: TCheckBox;
  24.     bFullScreen: TButton;
  25.     bSendKeys: TButton;
  26.     bFlash: TButton;
  27.     ImageList1: TImageList;
  28.     cbScrollingCaption: TCheckBox;
  29.     cbAnimatedIcon: TCheckBox;
  30.     TrayPopUp: TPopupMenu;
  31.     Close1: TMenuItem;
  32.     cbAnimatedTrayIcon: TCheckBox;
  33.     cbSysMenuEx: TCheckBox;
  34.     SysExPopUp: TPopupMenu;
  35.     N1: TMenuItem;
  36.     FlashWindow1: TMenuItem;
  37.     bCaptureWindow: TButton;
  38.     SaveDialog: TSaveDialog;
  39.     FormEx: TFormEx;
  40.     procedure FormCreate(Sender: TObject);
  41.     procedure cbMovementStyleChange(Sender: TObject);
  42.     procedure cbAcceptFilesChange(Sender: TObject);
  43.     procedure FormExDropFiles(Sender: TObject; var Files: TStrings;
  44.       var Position: TPoint);
  45.     procedure cbTopMostStyleChange(Sender: TObject);
  46.     procedure cbTaskVisibleChange(Sender: TObject);
  47.     procedure FormExMaximize(Sender: TObject);
  48.     procedure FormExMinimize(Sender: TObject);
  49.     procedure eResizeBorderChange(Sender: TObject);
  50.     procedure cbAlwaysOnScreenClick(Sender: TObject);
  51.     procedure FormExRestore(Sender: TObject);
  52.     procedure bFullScreenClick(Sender: TObject);
  53.     procedure bSendKeysClick(Sender: TObject);
  54.     procedure bFlashClick(Sender: TObject);
  55.     procedure cbScrollingCaptionClick(Sender: TObject);
  56.     procedure cbAnimatedIconClick(Sender: TObject);
  57.     procedure FormExTrayIconDblClick(Sender: TObject);
  58.     procedure FormExTrayIconClick(Sender: TObject);
  59.     procedure Close1Click(Sender: TObject);
  60.     procedure cbAnimatedTrayIconClick(Sender: TObject);
  61.     procedure cbSysMenuExClick(Sender: TObject);
  62.     procedure bCaptureWindowClick(Sender: TObject);
  63.   private
  64.     { Private declarations }
  65.   public
  66.     { Public declarations }
  67.   end;
  68.  
  69. var
  70.   frmMain: TfrmMain;
  71.  
  72. implementation
  73.  
  74. {$R *.DFM}
  75.  
  76. procedure TfrmMain.FormCreate(Sender: TObject);
  77. begin
  78.  cbMovementStyle.ItemIndex:=0;
  79.  cbTopMostStyle.ItemIndex:=0;
  80.  cbAcceptFiles.ItemIndex:=1;
  81.  cbTaskVisible.ItemIndex:=0;
  82. end;
  83.  
  84. procedure TfrmMain.cbMovementStyleChange(Sender: TObject);
  85. begin
  86.  Case (Sender as tComboBox).ItemIndex of
  87.  0 : FormEx.Placement.Moveable:=fmsDefault;
  88.  1 : FormEx.Placement.Moveable:=fmsAlways;
  89.  2 : FormEx.Placement.Moveable:=fmsNever;
  90.  End;
  91. end;
  92.  
  93. procedure TfrmMain.cbAcceptFilesChange(Sender: TObject);
  94. begin
  95.  Case (Sender as tComboBox).ItemIndex of
  96.  0 : FormEx.Appearance.AcceptFiles:=True;
  97.  1 : FormEx.Appearance.AcceptFiles:=False;
  98.  End;
  99. end;
  100.  
  101. procedure TfrmMain.FormExDropFiles(Sender: TObject; var Files: TStrings;
  102.   var Position: TPoint);
  103. begin
  104.  ShowMessage(Files.Text);
  105. end;
  106.  
  107. procedure TfrmMain.cbTopMostStyleChange(Sender: TObject);
  108. begin
  109.  Case (Sender as tComboBox).ItemIndex of
  110.  0 : FormEx.Placement.TopMost:=ftmsDefault;
  111.  1 : FormEx.Placement.TopMost:=ftmsAlways;
  112.  2 : FormEx.Placement.TopMost:=ftmsWhenAcceptFiles;
  113.  End;
  114. end;
  115.  
  116. procedure TfrmMain.cbTaskVisibleChange(Sender: TObject);
  117. begin
  118.  Case (Sender as tComboBox).ItemIndex of
  119.  0 : FormEx.Appearance.ShowOnTaskBar:=ftsDefault;
  120.  1 : FormEx.Appearance.ShowOnTaskBar:=ftsAlways;
  121.  2 : FormEx.Appearance.ShowOnTaskBar:=ftsWhenVisible;
  122.  End;
  123. end;
  124.  
  125. procedure TfrmMain.FormExMaximize(Sender: TObject);
  126. begin
  127.  ShowMessage('Maximize');
  128. end;
  129.  
  130. procedure TfrmMain.FormExMinimize(Sender: TObject);
  131. begin
  132.  ShowMessage('Minimize');
  133. end;
  134.  
  135. procedure TfrmMain.eResizeBorderChange(Sender: TObject);
  136. begin
  137.  FormEx.Resize.BorderWidth:=StrToInt(eResizeBorder.Text);
  138. end;
  139.  
  140. procedure TfrmMain.cbAlwaysOnScreenClick(Sender: TObject);
  141. begin
  142.  FormEx.Placement.AlwaysOnScreen:=(sender as TCheckBox).Checked;
  143. end;
  144.  
  145. procedure TfrmMain.FormExRestore(Sender: TObject);
  146. begin
  147.  ShowMessage('Restore');
  148. end;
  149.  
  150. procedure TfrmMain.bFullScreenClick(Sender: TObject);
  151. begin
  152.  If FormEx.Appearance.FullScreen then
  153.   FormEx.Appearance.FullScreen:=False else
  154.   FormEx.Appearance.FullScreen:=True;
  155. end;
  156.  
  157. procedure TfrmMain.bSendKeysClick(Sender: TObject);
  158. begin
  159.  WinExec('notepad.exe',SW_NORMAL);
  160.  FormEx.SendKeys(FindWindowEx(FindWindow('Notepad','Untitled - Notepad'),0,'Edit',''),'FormEx -> Notepad SendKeys Demo');
  161. end;
  162.  
  163. procedure TfrmMain.bFlashClick(Sender: TObject);
  164. begin
  165.  FormEx.Flash(2,100);
  166. end;
  167.  
  168. procedure TfrmMain.cbScrollingCaptionClick(Sender: TObject);
  169. begin
  170.  FormEx.Appearance.CaptionScroll.Enabled:=(Sender as tCheckBox).Checked;
  171. end;
  172.  
  173. procedure TfrmMain.cbAnimatedIconClick(Sender: TObject);
  174. begin
  175.  FormEx.Appearance.AnimatedIcon.Enabled:=(Sender as tCheckBox).Checked;
  176. end;
  177.  
  178. procedure TfrmMain.FormExTrayIconDblClick(Sender: TObject);
  179. begin
  180.  ShowMessage('TrayIcon Double Click');
  181. end;
  182.  
  183. procedure TfrmMain.FormExTrayIconClick(Sender: TObject);
  184. begin
  185.  ShowMessage('TrayIcon Click');
  186. end;
  187.  
  188. procedure TfrmMain.Close1Click(Sender: TObject);
  189. begin
  190.  Close;
  191. end;
  192.  
  193. procedure TfrmMain.cbAnimatedTrayIconClick(Sender: TObject);
  194. begin
  195.  FormEx.TrayIcon.CycleIcons:=(Sender as tCheckBox).Checked;
  196. end;
  197.  
  198. procedure TfrmMain.cbSysMenuExClick(Sender: TObject);
  199. begin
  200.  If cbSysMenuEx.Checked then
  201.   FormEx.SysMenuEx:=SysExPopUp else
  202.   FormEx.SysMenuEx:=nil;
  203. end;
  204.  
  205. procedure TfrmMain.bCaptureWindowClick(Sender: TObject);
  206. begin
  207.  If SaveDialog.Execute then
  208.  Begin
  209.   ShowMessage('This program will execute Notepad and capture its window');
  210.   WinExec('notepad.exe',SW_NORMAL);
  211.   FormEx.CaptureWindow(FindWindow('Notepad','Untitled - Notepad'),SaveDialog.Filename);
  212.  End;
  213. end;
  214.  
  215. end.
  216.