| 1 | 
 object Form1: TForm1 | 
 
 
 
 
 
 | 2 | 
   Left = 0 | 
 
 
 
 
 
 | 3 | 
   Top = 0 | 
 
 
 
 
 
 | 4 | 
   BorderStyle = bsToolWindow | 
 
 
 
 
 
 | 5 | 
   Caption = 'ONIWindowMover' | 
 
 
 
 
 
 | 6 | 
   ClientHeight = 217 | 
 
 
 
 
 
 | 7 | 
   ClientWidth = 121 | 
 
 
 
 
 
 | 8 | 
   Color = clBtnFace | 
 
 
 
 
 
 | 9 | 
   Font.Charset = DEFAULT_CHARSET | 
 
 
 
 
 
 | 10 | 
   Font.Color = clWindowText | 
 
 
 
 
 
 | 11 | 
   Font.Height = -11 | 
 
 
 
 
 
 | 12 | 
   Font.Name = 'Tahoma' | 
 
 
 
 
 
 | 13 | 
   Font.Style = [] | 
 
 
 
 
 
 | 14 | 
   OldCreateOrder = False | 
 
 
 
 
 
 | 15 | 
   OnCreate = FormCreate | 
 
 
 
 
 
 | 16 | 
   PixelsPerInch = 96 | 
 
 
 
 
 
 | 17 | 
   TextHeight = 13 | 
 
 
 
 
 
 | 18 | 
   object grp_center: TGroupBox | 
 
 
 
 
 
 | 19 | 
     Left = 0 | 
 
 
 
 
 
 | 20 | 
     Top = 0 | 
 
 
 
 
 
 | 21 | 
     Width = 121 | 
 
 
 
 
 
 | 22 | 
     Height = 57 | 
 
 
 
 
 
 | 23 | 
     Caption = 'Center ONI' | 
 
 
 
 
 
 | 24 | 
     TabOrder = 0 | 
 
 
 
 
 
 | 25 | 
     object btn_center: TButton | 
 
 
 
 
 
 | 26 | 
       Left = 8 | 
 
 
 
 
 
 | 27 | 
       Top = 16 | 
 
 
 
 
 
 | 28 | 
       Width = 105 | 
 
 
 
 
 
 | 29 | 
       Height = 33 | 
 
 
 
 
 
 | 30 | 
       Caption = 'Please click me :D' | 
 
 
 
 
 
 | 31 | 
       TabOrder = 0 | 
 
 
 
 
 
 | 32 | 
       OnClick = btn_centerClick | 
 
 
 
 
 
 | 33 | 
     end | 
 
 
 
 
 
 | 34 | 
   end | 
 
 
 
 
 
 | 35 | 
   object group_setxy: TGroupBox | 
 
 
 
 
 
 | 36 | 
     Left = 0 | 
 
 
 
 
 
 | 37 | 
     Top = 64 | 
 
 
 
 
 
 | 38 | 
     Width = 121 | 
 
 
 
 
 
 | 39 | 
     Height = 97 | 
 
 
 
 
 
 | 40 | 
     Caption = 'Set x/y-position' | 
 
 
 
 
 
 | 41 | 
     TabOrder = 1 | 
 
 
 
 
 
 | 42 | 
     object edit_x: TCrossEdit | 
 
 
 
 
 
 | 43 | 
       Left = 8 | 
 
 
 
 
 
 | 44 | 
       Top = 16 | 
 
 
 
 
 
 | 45 | 
       Width = 105 | 
 
 
 
 
 
 | 46 | 
       Height = 17 | 
 
 
 
 
 
 | 47 | 
       AutoSize = False | 
 
 
 
 
 
 | 48 | 
       BorderStyle = bsNone | 
 
 
 
 
 
 | 49 | 
       Color = clWhite | 
 
 
 
 
 
 | 50 | 
       Font.Charset = DEFAULT_CHARSET | 
 
 
 
 
 
 | 51 | 
       Font.Color = clWindowText | 
 
 
 
 
 
 | 52 | 
       Font.Height = -11 | 
 
 
 
 
 
 | 53 | 
       Font.Name = 'Tahoma' | 
 
 
 
 
 
 | 54 | 
       Font.Style = [] | 
 
 
 
 
 
 | 55 | 
       ParentFont = False | 
 
 
 
 
 
 | 56 | 
       TabOrder = 0 | 
 
 
 
 
 
 | 57 | 
       Text = '0' | 
 
 
 
 
 
 | 58 | 
       FocusAlignment = taLeftJustify | 
 
 
 
 
 
 | 59 | 
       NoFocusAlignment = taRightJustify | 
 
 
 
 
 
 | 60 | 
       Precision = 15 | 
 
 
 
 
 
 | 61 | 
       Decimals = 2 | 
 
 
 
 
 
 | 62 | 
       FocusWidthInc = 0 | 
 
 
 
 
 
 | 63 | 
       EditType = etInteger | 
 
 
 
 
 
 | 64 | 
       NextDialogOnEnter = True | 
 
 
 
 
 
 | 65 | 
       DialogOnCursorKeys = True | 
 
 
 
 
 
 | 66 | 
       NextPriorStep = 1 | 
 
 
 
 
 
 | 67 | 
       AutoFocus = False | 
 
 
 
 
 
 | 68 | 
       LimitCheck = True | 
 
 
 
 
 
 | 69 | 
       Max = 1024.000000000000000000 | 
 
 
 
 
 
 | 70 | 
       FocusColor = clWhite | 
 
 
 
 
 
 | 71 | 
       NoFocusColor = clWhite | 
 
 
 
 
 
 | 72 | 
       ErrorColor = clRed | 
 
 
 
 
 
 | 73 | 
       StringCharSet = scFull | 
 
 
 
 
 
 | 74 | 
     end | 
 
 
 
 
 
 | 75 | 
     object edit_y: TCrossEdit | 
 
 
 
 
 
 | 76 | 
       Left = 8 | 
 
 
 
 
 
 | 77 | 
       Top = 40 | 
 
 
 
 
 
 | 78 | 
       Width = 105 | 
 
 
 
 
 
 | 79 | 
       Height = 17 | 
 
 
 
 
 
 | 80 | 
       AutoSize = False | 
 
 
 
 
 
 | 81 | 
       BorderStyle = bsNone | 
 
 
 
 
 
 | 82 | 
       Color = clWhite | 
 
 
 
 
 
 | 83 | 
       Font.Charset = DEFAULT_CHARSET | 
 
 
 
 
 
 | 84 | 
       Font.Color = clWindowText | 
 
 
 
 
 
 | 85 | 
       Font.Height = -11 | 
 
 
 
 
 
 | 86 | 
       Font.Name = 'Tahoma' | 
 
 
 
 
 
 | 87 | 
       Font.Style = [] | 
 
 
 
 
 
 | 88 | 
       ParentFont = False | 
 
 
 
 
 
 | 89 | 
       TabOrder = 1 | 
 
 
 
 
 
 | 90 | 
       Text = '0' | 
 
 
 
 
 
 | 91 | 
       FocusAlignment = taLeftJustify | 
 
 
 
 
 
 | 92 | 
       NoFocusAlignment = taRightJustify | 
 
 
 
 
 
 | 93 | 
       Precision = 15 | 
 
 
 
 
 
 | 94 | 
       Decimals = 2 | 
 
 
 
 
 
 | 95 | 
       FocusWidthInc = 0 | 
 
 
 
 
 
 | 96 | 
       EditType = etInteger | 
 
 
 
 
 
 | 97 | 
       NextDialogOnEnter = True | 
 
 
 
 
 
 | 98 | 
       DialogOnCursorKeys = True | 
 
 
 
 
 
 | 99 | 
       NextPriorStep = 1 | 
 
 
 
 
 
 | 100 | 
       AutoFocus = False | 
 
 
 
 
 
 | 101 | 
       LimitCheck = True | 
 
 
 
 
 
 | 102 | 
       Max = 768.000000000000000000 | 
 
 
 
 
 
 | 103 | 
       FocusColor = clWhite | 
 
 
 
 
 
 | 104 | 
       NoFocusColor = clWhite | 
 
 
 
 
 
 | 105 | 
       ErrorColor = clRed | 
 
 
 
 
 
 | 106 | 
       StringCharSet = scFull | 
 
 
 
 
 
 | 107 | 
     end | 
 
 
 
 
 
 | 108 | 
     object btn_setxy: TButton | 
 
 
 
 
 
 | 109 | 
       Left = 8 | 
 
 
 
 
 
 | 110 | 
       Top = 64 | 
 
 
 
 
 
 | 111 | 
       Width = 105 | 
 
 
 
 
 
 | 112 | 
       Height = 25 | 
 
 
 
 
 
 | 113 | 
       Caption = 'Set x/y' | 
 
 
 
 
 
 | 114 | 
       TabOrder = 2 | 
 
 
 
 
 
 | 115 | 
       OnClick = btn_setxyClick | 
 
 
 
 
 
 | 116 | 
     end | 
 
 
 
 
 
 | 117 | 
   end | 
 
 
 
 
 
 | 118 | 
   object group_black: TGroupBox | 
 
 
 
 
 
 | 119 | 
     Left = 0 | 
 
 
 
 
 
 | 120 | 
     Top = 168 | 
 
 
 
 
 
 | 121 | 
     Width = 121 | 
 
 
 
 
 
 | 122 | 
     Height = 49 | 
 
 
 
 
 
 | 123 | 
     Caption = 'Open BlackScreen' | 
 
 
 
 
 
 | 124 | 
     TabOrder = 2 | 
 
 
 
 
 
 | 125 | 
     object btn_black: TButton | 
 
 
 
 
 
 | 126 | 
       Left = 8 | 
 
 
 
 
 
 | 127 | 
       Top = 16 | 
 
 
 
 
 
 | 128 | 
       Width = 105 | 
 
 
 
 
 
 | 129 | 
       Height = 25 | 
 
 
 
 
 
 | 130 | 
       Caption = '...' | 
 
 
 
 
 
 | 131 | 
       TabOrder = 0 | 
 
 
 
 
 
 | 132 | 
       OnClick = btn_blackClick | 
 
 
 
 
 
 | 133 | 
     end | 
 
 
 
 
 
 | 134 | 
   end | 
 
 
 
 
 
 | 135 | 
   object timer_check: TTimer | 
 
 
 
 
 
 | 136 | 
     OnTimer = timer_checkTimer | 
 
 
 
 
 
 | 137 | 
     Left = 48 | 
 
 
 
 
 
 | 138 | 
     Top = 104 | 
 
 
 
 
 
 | 139 | 
   end | 
 
 
 
 
 
 | 140 | 
 end |