units/forsystemkol/forsystemkol_demo/Unit1_1.inc

   1 { KOL MCK } // Do not remove this line!\r
   2 \r
   3 procedure NewForm1( var Result: PForm1; AParent: PControl );\r
   4 begin\r
   5 \r
   6   {$IFDEF KOLCLASSES}\r
   7   Result := PForm1.Create;\r
   8   {$ELSE OBJECTS}\r
   9   New( Result, Create );\r
  10   {$ENDIF KOL CLASSES/OBJECTS}\r
  11   Result.Form := NewForm( AParent, 'Form1' ).SetPosition( 123, 4 ).SetClientSize( 505, 412 );\r
  12   Applet :=  Result.Form;\r
  13   Result.Form.Add2AutoFree( Result );\r
  14     Result.Form.Font.FontHeight := 8;\r
  15     Result.Form.Border := 0;\r
  16 \r
  17     Result.OpenDialog1 := NewOpenSaveDialog( '', '', [  ] );\r
  18   Result.Form.Add2AutoFree( Result.OpenDialog1 );\r
  19     // Result.GroupBox1.TabOrder = 0\r
  20     Result.GroupBox1 := NewGroupBox( Result.Form, 'Any2Ten' ).SetAlign ( caTop ).SetSize( 0, 83 );\r
  21     Result.GroupBox1.TabStop := FALSE;\r
  22     Result.GroupBox1.Border := 2;\r
  23     // Result.Label2.TabOrder = -1\r
  24       Result.Label2 := NewLabel( Result.GroupBox1, 'Ñèñòåìà ñ÷èñëåíèÿ:' ).SetPosition( 16, 38 ).AutoSize( TRUE );\r
  25     // Result.Label1.TabOrder = -1\r
  26       Result.Label1 := NewLabel( Result.GroupBox1, '×èñëî:' ).SetPosition( 16, 16 ).AutoSize( TRUE );\r
  27     // Result.Label3.TabOrder = -1\r
  28       Result.Label3 := NewLabel( Result.GroupBox1, '×èñëî â 10-é ñèñòåìå ñ÷èñëåíèÿ:' ).SetPosition( 208, 16 ).AutoSize( TRUE );\r
  29     // Result.EditBoxN1.TabOrder = 0\r
  30       Result.EditBoxN1 := NewEditBox( Result.GroupBox1, [  ] ).SetPosition( 52, 12 ).SetSize( 115, 0 );\r
  31     Result.EditBoxN1.Color := clWindow;\r
  32       Result.EditBoxN1.Text := 'FF';\r
  33     // Result.Button1.TabOrder = 1\r
  34       Result.Button1 := NewButton( Result.GroupBox1, 'Ïåðåâåñòè â 10-þ    >' ).SetPosition( 18, 60 ).SetSize( 155, 17 );\r
  35     // Result.EditBoxS1.TabOrder = 2\r
  36       Result.EditBoxS1 := NewEditBox( Result.GroupBox1, [ eoNumber ] ).SetPosition( 126, 34 ).SetSize( 41, 0 );\r
  37     Result.EditBoxS1.Color := clWindow;\r
  38       Result.EditBoxS1.Text := '16';\r
  39     // Result.EditBoxO1.TabOrder = 3\r
  40       Result.EditBoxO1 := NewEditBox( Result.GroupBox1, [  ] ).SetPosition( 218, 40 ).SetSize( 139, 0 );\r
  41     Result.EditBoxO1.Color := clWindow;\r
  42       Result.EditBoxO1.Text := 'ïóñòî';\r
  43     // Result.GroupBox2.TabOrder = 1\r
  44     Result.GroupBox2 := NewGroupBox( Result.Form, 'Ten2Any' ).SetAlign ( caTop ).SetSize( 0, 94 );\r
  45     Result.GroupBox2.TabStop := FALSE;\r
  46     Result.GroupBox2.Border := 2;\r
  47     // Result.Label5.TabOrder = -1\r
  48       Result.Label5 := NewLabel( Result.GroupBox2, 'Ñèñòåìà ñ÷èñëåíèÿ:' ).SetPosition( 16, 42 ).AutoSize( TRUE );\r
  49     // Result.Label4.TabOrder = -1\r
  50       Result.Label4 := NewLabel( Result.GroupBox2, '×èñëî â 10-é ñèñòåìå ñ÷èñëåíèÿ:' ).SetPosition( 10, 18 ).AutoSize( TRUE );\r
  51     // Result.Label6.TabOrder = -1\r
  52       Result.Label6 := NewLabel( Result.GroupBox2, '×èñëî â çàäàííîé ñèñòåìå ñ÷èñëåíèÿ:' ).SetPosition( 6, 68 ).AutoSize( TRUE );\r
  53     // Result.EditBoxN2.TabOrder = 0\r
  54       Result.EditBoxN2 := NewEditBox( Result.GroupBox2, [ eoNumber ] ).SetPosition( 184, 14 ).SetSize( 179, 0 );\r
  55     Result.EditBoxN2.Color := clWindow;\r
  56       Result.EditBoxN2.Text := '12345';\r
  57     // Result.Button2.TabOrder = 1\r
  58       Result.Button2 := NewButton( Result.GroupBox2, 'Ïåðåâåñòè â çàäàííóþ ñèñòåìó ñ÷èñëåíèÿ' ).SetPosition( 174, 42 ).SetSize( 243, 17 );\r
  59     // Result.EditBoxS2.TabOrder = 2\r
  60       Result.EditBoxS2 := NewEditBox( Result.GroupBox2, [ eoNumber ] ).SetPosition( 126, 38 ).SetSize( 41, 0 );\r
  61     Result.EditBoxS2.Color := clWindow;\r
  62       Result.EditBoxS2.Text := '16';\r
  63     // Result.EditBoxO2.TabOrder = 3\r
  64       Result.EditBoxO2 := NewEditBox( Result.GroupBox2, [  ] ).SetPosition( 204, 64 ).SetSize( 205, 0 );\r
  65     Result.EditBoxO2.Color := clWindow;\r
  66       Result.EditBoxO2.Text := 'ïóñòî';\r
  67     // Result.GroupBox3.TabOrder = 2\r
  68     Result.GroupBox3 := NewGroupBox( Result.Form, 'Ten2Two' ).SetAlign ( caTop ).SetSize( 0, 98 );\r
  69     Result.GroupBox3.TabStop := FALSE;\r
  70     Result.GroupBox3.Border := 2;\r
  71     // Result.Label8.TabOrder = -1\r
  72       Result.Label8 := NewLabel( Result.GroupBox3, 'Êîëè÷åñòâî áèò' ).SetPosition( 16, 42 ).AutoSize( TRUE );\r
  73     // Result.Label7.TabOrder = -1\r
  74       Result.Label7 := NewLabel( Result.GroupBox3, '×èñëî â 10-é ñèñòåìå ñ÷èñëåíèÿ:' ).SetPosition( 10, 18 ).AutoSize( TRUE );\r
  75     // Result.Label9.TabOrder = -1\r
  76       Result.Label9 := NewLabel( Result.GroupBox3, '×èñëî â äâîè÷íîé ñèñòåìå ñ÷èñëåíèÿ:' ).SetPosition( 4, 70 ).AutoSize( TRUE );\r
  77     // Result.EditBoxN3.TabOrder = 0\r
  78       Result.EditBoxN3 := NewEditBox( Result.GroupBox3, [ eoNumber ] ).SetPosition( 184, 14 ).SetSize( 179, 0 );\r
  79     Result.EditBoxN3.Color := clWindow;\r
  80       Result.EditBoxN3.Text := '128';\r
  81     // Result.Button3.TabOrder = 1\r
  82       Result.Button3 := NewButton( Result.GroupBox3, 'Ïåðåâåñòè â äâîè÷íóþ ñèñòåìó ñ÷èñëåíèÿ' ).SetPosition( 174, 42 ).SetSize( 243, 17 );\r
  83     // Result.EditBoxS3.TabOrder = 2\r
  84       Result.EditBoxS3 := NewEditBox( Result.GroupBox3, [ eoNumber ] ).SetPosition( 100, 38 ).SetSize( 41, 0 );\r
  85     Result.EditBoxS3.Color := clWindow;\r
  86       Result.EditBoxS3.Text := '8';\r
  87     // Result.EditBoxO3.TabOrder = 3\r
  88       Result.EditBoxO3 := NewEditBox( Result.GroupBox3, [  ] ).SetPosition( 208, 66 ).SetSize( 205, 0 );\r
  89     Result.EditBoxO3.Color := clWindow;\r
  90       Result.EditBoxO3.Text := 'ïóñòî';\r
  91     // Result.GroupBox4.TabOrder = 3\r
  92     Result.GroupBox4 := NewGroupBox( Result.Form, 'GetDPNE AddExt' ).SetAlign ( caClient );\r
  93     Result.GroupBox4.TabStop := FALSE;\r
  94     // Result.Button4.TabOrder = 0\r
  95       Result.Button4 := NewButton( Result.GroupBox4, 'Ôàéë ...' ).SetPosition( 12, 18 );\r
  96     // Result.EditBox1.TabOrder = 1\r
  97       Result.EditBox1 := NewEditBox( Result.GroupBox4, [  ] ).SetPosition( 10, 48 ).SetSize( 225, 0 );\r
  98     Result.EditBox1.Color := clWindow;\r
  99       Result.EditBox1.Text := 'c:\Mydir\MyFile.doc';\r
 100     // Result.ListBox1.TabOrder = 2\r
 101       Result.ListBox1 := NewEditBox( Result.GroupBox4, [ eoMultiline ] ).SetAlign ( caRight ).SetSize( 265, 0 );\r
 102     Result.ListBox1.Color := clWindow;\r
 103     // Result.Button5.TabOrder = 3\r
 104       Result.Button5 := NewButton( Result.GroupBox4, 'Äîáàâèòü ðàñøèðåíèå' ).SetPosition( 8, 78 ).SetSize( 123, 0 );\r
 105     // Result.EditBox2.TabOrder = 4\r
 106       Result.EditBox2 := NewEditBox( Result.GroupBox4, [  ] ).SetPosition( 136, 78 ).SetSize( 63, 0 );\r
 107     Result.EditBox2.Color := clWindow;\r
 108       Result.EditBox2.Text := 'doc';\r
 109     // Result.Button6.TabOrder = 5\r
 110       Result.Button6 := NewButton( Result.GroupBox4, 'Âû÷èñëèòü âñå >' ).SetPosition( 10, 106 ).SetSize( 223, 0 );\r
 111       Result.Button4.OnClick := Result.Button4Click;\r
 112       Result.Button3.OnClick := Result.Button3Click;\r
 113       Result.Button2.OnClick := Result.Button2Click;\r
 114       Result.Button1.OnClick := Result.Button1Click;\r
 115       Result.Button5.OnClick := Result.Button5Click;\r
 116       Result.Button6.OnClick := Result.Button6Click;\r
 117       Result.OpenDialog1.WndOwner := Result.Form.GetWindowHandle;\r
 118 \r
 119 end;\r
 120 \r