Index: /OniWindowMover/OniWindowMover.bdsproj
===================================================================
--- /OniWindowMover/OniWindowMover.bdsproj (revision 257)
+++ /OniWindowMover/OniWindowMover.bdsproj (revision 257)
@@ -0,0 +1,173 @@
+
+
+
+
+
+
+
+
+
+
+
+ OniWindowMover.dpr
+
+
+ 7.0
+
+
+ 8
+ 0
+ 1
+ 1
+ 0
+ 0
+ 1
+ 1
+ 1
+ 0
+ 0
+ 1
+ 0
+ 1
+ 1
+ 1
+ 0
+ 0
+ 0
+ 0
+ 0
+ 1
+ 0
+ 1
+ 1
+ 1
+ True
+ True
+ WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+
+ False
+
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ True
+ False
+ False
+ False
+ True
+ True
+ True
+
+
+ 0
+ 0
+ 1
+ False
+ False
+ False
+ 16384
+ 1048576
+ 4194304
+
+
+
+
+
+
+
+
+ xmlrtl;rtl;vcl;vclie;inet;inetdbbde;inetdbxpress;vclx;IndySystem;IndyCore;dbrtl;dsnap;soaprtl;IndyProtocols;bdertl;vcldbx;vcldb;webdsnap;websnap;vclactnband;GridPackd2005;TWrapGrid;Package1;A406_R70;CoolTrayIcon_D6plus;HexEdit;NexusDB1081x90;NexusDB108pv90;NexusDB108sr90;NexusDB108sq90;NexusDB108db90;dclAbsDBd9;vclAbsDBd9
+
+
+ False
+
+
+
+
+
+ False
+
+
+
+
+
+ False
+
+
+ False
+ False
+ 1
+ 0
+ 0
+ 0
+ False
+ False
+ False
+ False
+ False
+ 1031
+ 1252
+
+
+
+
+ 1.0.0.0
+
+
+
+
+
+ 1.0.0.0
+
+
+
+
+ (untitled)
+ Borland Web Wizard Package
+
+
+
Index: /OniWindowMover/OniWindowMover.dpr
===================================================================
--- /OniWindowMover/OniWindowMover.dpr (revision 257)
+++ /OniWindowMover/OniWindowMover.dpr (revision 257)
@@ -0,0 +1,16 @@
+program OniWindowMover;
+
+uses
+ Forms,
+ Unit1 in 'Unit1.pas' {Form1},
+ Unit2 in 'Unit2.pas' {Form2};
+
+{$R *.res}
+
+begin
+ Application.Initialize;
+ Application.Title := 'OniWindowMover';
+ Application.CreateForm(TForm1, Form1);
+ Application.CreateForm(TForm2, Form2);
+ Application.Run;
+end.
Index: /OniWindowMover/Unit1.dfm
===================================================================
--- /OniWindowMover/Unit1.dfm (revision 257)
+++ /OniWindowMover/Unit1.dfm (revision 257)
@@ -0,0 +1,140 @@
+object Form1: TForm1
+ Left = 0
+ Top = 0
+ BorderStyle = bsToolWindow
+ Caption = 'ONIWindowMover'
+ ClientHeight = 217
+ ClientWidth = 121
+ Color = clBtnFace
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ OldCreateOrder = False
+ OnCreate = FormCreate
+ PixelsPerInch = 96
+ TextHeight = 13
+ object grp_center: TGroupBox
+ Left = 0
+ Top = 0
+ Width = 121
+ Height = 57
+ Caption = 'Center ONI'
+ TabOrder = 0
+ object btn_center: TButton
+ Left = 8
+ Top = 16
+ Width = 105
+ Height = 33
+ Caption = 'Please click me :D'
+ TabOrder = 0
+ OnClick = btn_centerClick
+ end
+ end
+ object group_setxy: TGroupBox
+ Left = 0
+ Top = 64
+ Width = 121
+ Height = 97
+ Caption = 'Set x/y-position'
+ TabOrder = 1
+ object edit_x: TCrossEdit
+ Left = 8
+ Top = 16
+ Width = 105
+ Height = 17
+ AutoSize = False
+ BorderStyle = bsNone
+ Color = clWhite
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 0
+ Text = '0'
+ FocusAlignment = taLeftJustify
+ NoFocusAlignment = taRightJustify
+ Precision = 15
+ Decimals = 2
+ FocusWidthInc = 0
+ EditType = etInteger
+ NextDialogOnEnter = True
+ DialogOnCursorKeys = True
+ NextPriorStep = 1
+ AutoFocus = False
+ LimitCheck = True
+ Max = 1024.000000000000000000
+ FocusColor = clWhite
+ NoFocusColor = clWhite
+ ErrorColor = clRed
+ StringCharSet = scFull
+ end
+ object edit_y: TCrossEdit
+ Left = 8
+ Top = 40
+ Width = 105
+ Height = 17
+ AutoSize = False
+ BorderStyle = bsNone
+ Color = clWhite
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 1
+ Text = '0'
+ FocusAlignment = taLeftJustify
+ NoFocusAlignment = taRightJustify
+ Precision = 15
+ Decimals = 2
+ FocusWidthInc = 0
+ EditType = etInteger
+ NextDialogOnEnter = True
+ DialogOnCursorKeys = True
+ NextPriorStep = 1
+ AutoFocus = False
+ LimitCheck = True
+ Max = 768.000000000000000000
+ FocusColor = clWhite
+ NoFocusColor = clWhite
+ ErrorColor = clRed
+ StringCharSet = scFull
+ end
+ object btn_setxy: TButton
+ Left = 8
+ Top = 64
+ Width = 105
+ Height = 25
+ Caption = 'Set x/y'
+ TabOrder = 2
+ OnClick = btn_setxyClick
+ end
+ end
+ object group_black: TGroupBox
+ Left = 0
+ Top = 168
+ Width = 121
+ Height = 49
+ Caption = 'Open BlackScreen'
+ TabOrder = 2
+ object btn_black: TButton
+ Left = 8
+ Top = 16
+ Width = 105
+ Height = 25
+ Caption = '...'
+ TabOrder = 0
+ OnClick = btn_blackClick
+ end
+ end
+ object timer_check: TTimer
+ OnTimer = timer_checkTimer
+ Left = 48
+ Top = 104
+ end
+end
Index: /OniWindowMover/Unit1.pas
===================================================================
--- /OniWindowMover/Unit1.pas (revision 257)
+++ /OniWindowMover/Unit1.pas (revision 257)
@@ -0,0 +1,111 @@
+UNIT Unit1;
+INTERFACE
+USES
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, StdCtrls, CrossEdit, Math, ExtCtrls;
+
+TYPE
+ TForm1 = Class(TForm)
+ grp_center: TGroupBox;
+ group_setxy: TGroupBox;
+ btn_center: TButton;
+ edit_x: TCrossEdit;
+ edit_y: TCrossEdit;
+ btn_setxy: TButton;
+ group_black: TGroupBox;
+ btn_black: TButton;
+ timer_check: TTimer;
+ PROCEDURE timer_checkTimer(Sender: TObject);
+ PROCEDURE btn_blackClick(Sender: TObject);
+ PROCEDURE btn_setxyClick(Sender: TObject);
+ PROCEDURE FormCreate(Sender: TObject);
+ PROCEDURE btn_centerClick(Sender: TObject);
+ PROCEDURE Button1Click(Sender: TObject);
+ PRIVATE
+ PUBLIC
+ END;
+
+VAR
+ Form1: TForm1;
+
+IMPLEMENTATION
+USES Unit2;
+{$R *.dfm}
+VAR
+ ONIHandle:LongWord;
+
+PROCEDURE TForm1.Button1Click(Sender: TObject);
+ BEGIN
+ ONIHandle:=FindWindow(PChar('ONI '),PChar('ONI '));
+ Form1.Caption:=IntToStr(ONIHandle);
+ END;
+
+PROCEDURE TForm1.btn_centerClick(Sender: TObject);
+ VAR
+ Handle,NewX,NewY:LongWord;
+ Screen,Cur:TRect;
+ ScreenWidth,ScreenHeight,Width,Height:LongWord;
+ BEGIN
+ Handle:=FindWindow(PChar('ONI '),PChar('ONI '));
+ IF Handle>0 THEN BEGIN
+ GetWindowRect(Handle,Cur);
+ GetWindowRect(GetDesktopWindow,Screen);
+ ScreenWidth:=Screen.Right-Screen.Left;
+ ScreenHeight:=Screen.Bottom-Screen.Top;
+ Width:=Cur.Right-Cur.Left;
+ Height:=Cur.Bottom-Cur.Top;
+ IF (Width0 THEN BEGIN
+ IF NOT SetWindowPos(Handle,0,edit_x.GetInteger,edit_y.GetInteger,0,0,SWP_NOSIZE OR SWP_NOACTIVATE OR SWP_NOZORDER) THEN
+ ShowMessage('Couldn''t set the position of ONIs window!');
+ END ELSE ShowMessage('Couldn''t find ONIs window!');
+ END;
+
+PROCEDURE TForm1.btn_blackClick(Sender: TObject);
+ BEGIN
+ IF FindWindow(PChar('ONI '),PChar('ONI '))>0 THEN BEGIN
+ Form2.Visible:=NOT Form2.Visible;
+ SetForeGroundWindow(FindWindow(PChar('ONI '),PChar('ONI ')));
+ END;
+ END;
+
+PROCEDURE TForm1.timer_checkTimer(Sender: TObject);
+ BEGIN
+ IF Form2.Visible THEN BEGIN
+ IF FindWindow(PChar('ONI '),PChar('ONI '))=0 THEN Form2.Visible:=False;
+ END;
+ END;
+
+END.
Index: /OniWindowMover/Unit2.dfm
===================================================================
--- /OniWindowMover/Unit2.dfm (revision 257)
+++ /OniWindowMover/Unit2.dfm (revision 257)
@@ -0,0 +1,21 @@
+object Form2: TForm2
+ Left = 0
+ Top = 0
+ Cursor = crCross
+ BorderStyle = bsNone
+ Caption = 'BlackScreen'
+ ClientHeight = 320
+ ClientWidth = 434
+ Color = clBlack
+ TransparentColorValue = clMaroon
+ Enabled = False
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ OldCreateOrder = False
+ WindowState = wsMaximized
+ PixelsPerInch = 96
+ TextHeight = 13
+end
Index: /OniWindowMover/Unit2.pas
===================================================================
--- /OniWindowMover/Unit2.pas (revision 257)
+++ /OniWindowMover/Unit2.pas (revision 257)
@@ -0,0 +1,19 @@
+UNIT Unit2;
+INTERFACE
+USES
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs;
+
+TYPE
+ TForm2 = Class(TForm)
+ PRIVATE
+ PUBLIC
+ END;
+
+VAR
+ Form2: TForm2;
+
+IMPLEMENTATION
+{$R *.dfm}
+
+END.