XFaceInSeparateWindow

From 40tude Dialog Wiki

Script allows you to display X-Face in separate window.



//     Type : 40tude Dialog Event script (tested at 2.0.12.1).
//     Name : XFaceInSeparateWindow
//  Version : 1.0. (2004-08-21)
//   Author : Doktor (doktorlubicz <at> poczta <dot> onet <dot> pl)

//  If you have any suggestions about script or if you found any
//  bug in it, contact me. Please put a word 'script' in email subject.

program OnStartup;
 
uses Forms, Extctrls;
 
const
   // window position
   L = 500; // left
   T = 100; // top
   // window size
   W = 67; // width
   H = 95; // height
 
 var
   XFForm : TForm;
 
 procedure XFShowForm;  
 begin 
   XFForm := TForm.Create (nil);
   XFForm.Parent := Application.MainForm;
   XFForm.FormStyle := fsStayOnTop;
   XFForm.BorderStyle := bsToolWindow;
   XFForm.Left := L;
   XFForm.Top := T;
   XFForm.Width := W;
   XFForm.Height := H;
   
   TPanel (Application.MainForm.FindComponent 
     ('XFacePanel')).Parent := XFForm;
   
   XFForm.Show;
 end;
 
 procedure OnStartup;
 begin
   XFShowForm;
 end;
 
 begin
 end.