PC World Komputer 1997 February/PCWK0297.iso/envelop/envelop.3/Program/options.eto

Text File | 1996-07-08 | 14KB | 474 lines

Type EnvelopLayoutSet From ScreenLayoutSet
  Type ScreenLayout1024x768 From EnvelopScreenLayout
    Dim Item1 As New WindowLayoutItem
    Dim Item2 As New WindowLayoutItem
    Dim Item3 As New WindowLayoutItem
    Dim Item4 As New WindowLayoutItem
    Dim Item5 As New WindowLayoutItem
    Dim Item6 As New WindowLayoutItem
    Dim Item7 As New WindowLayoutItem
    Dim Item8 As New WindowLayoutItem
    Dim Item9 As New WindowLayoutItem
    Dim Item10 As New WindowLayoutItem
    Dim Item11 As New WindowLayoutItem
    Dim Item12 As New WindowLayoutItem
    Dim Item14 As New WindowLayoutItem
    Dim Item15 As New WindowLayoutItem
    Dim Item16 As New WindowLayoutItem
    Dim Item17 As New WindowLayoutItem
  End Type
  Type ScreenLayout800x600 From EnvelopScreenLayout
    Dim Item1 As New WindowLayoutItem
    Dim Item2 As New WindowLayoutItem
    Dim Item3 As New WindowLayoutItem
    Dim Item4 As New WindowLayoutItem
    Dim Item5 As New WindowLayoutItem
    Dim Item6 As New WindowLayoutItem
    Dim Item7 As New WindowLayoutItem
    Dim Item8 As New WindowLayoutItem
    Dim Item9 As New WindowLayoutItem
    Dim Item10 As New WindowLayoutItem
    Dim Item11 As New WindowLayoutItem
    Dim Item12 As New WindowLayoutItem
    Dim Item13 As New WindowLayoutItem
    Dim Item14 As New WindowLayoutItem
    Dim Item15 As New WindowLayoutItem
    Dim Item16 As New WindowLayoutItem
    Dim Item17 As New WindowLayoutItem
  End Type
  Type ScreenLayout640x480 From EnvelopScreenLayout
    Dim Item1 As New WindowLayoutItem
    Dim Item2 As New WindowLayoutItem
    Dim Item3 As New WindowLayoutItem
    Dim Item4 As New WindowLayoutItem
    Dim Item5 As New WindowLayoutItem
    Dim Item6 As New WindowLayoutItem
    Dim Item7 As New WindowLayoutItem
    Dim Item8 As New WindowLayoutItem
    Dim Item9 As New WindowLayoutItem
    Dim Item10 As New WindowLayoutItem
    Dim Item11 As New WindowLayoutItem
    Dim Item12 As New WindowLayoutItem
    Dim Item13 As New WindowLayoutItem
    Dim Item14 As New WindowLayoutItem
    Dim Item15 As New WindowLayoutItem
    Dim Item17 As New WindowLayoutItem
    Dim Item18 As New WindowLayoutItem
  End Type
End Type

Type ProjectStartupOptions
  Dim AskOnStartup As Boolean
  Const ACTION_OPEN_PROJECT& = 1
  Const ACTION_DEFAULT_PROJECT& = 2
  Const ACTION_NEW_PROJECT& = 3
  Const ACTION_NO_PROJECT& = 4
  Dim StartupAction As Integer
  Dim FileDialogDir As String

  ' METHODS for object: ProjectStartupOptions
  Sub Preload
    Envelop.FileDialogDir = FileDialogDir
  End Sub

End Type

Begin Code
' Reconstruction commands for object: EnvelopLayoutSet
'
  With EnvelopLayoutSet
    With .ScreenLayout1024x768
      .curItem := 18
      .ScreenWidth := 1024
      .ScreenHeight := 768
      With .Item1
        .wnd := MethodEditor
        .top := 476
        .width := 574
        .height := 273
        .visible := True
        .left_ := 2
      End With  'EnvelopLayoutSet.ScreenLayout1024x768.Item1
      With .Item2
        .wnd := Debug
        .top := 514
        .width := 441
        .height := 234
        .visible := True
        .left_ := 579
      End With  'EnvelopLayoutSet.ScreenLayout1024x768.Item2
      With .Item3
        .wnd := SamplesBrowser
        .top := 121
        .width := 438
        .height := 448
        .left_ := 271
      End With  'EnvelopLayoutSet.ScreenLayout1024x768.Item3
      With .Item4
        .wnd := WorkSet.WorkSetForm
        .top := 148
        .width := 228
        .height := 189
        .left_ := 449
      End With  'EnvelopLayoutSet.ScreenLayout1024x768.Item4
      With .Item5
        .wnd := MenuEdit
        .top := 121
        .width := 436
        .height := 577
        .left_ := 79
      End With  'EnvelopLayoutSet.ScreenLayout1024x768.Item5
      With .Item6
        .wnd := SourceSearcher
        .top := 75
        .width := 539
        .height := 435
        .left_ := 472
      End With  'EnvelopLayoutSet.ScreenLayout1024x768.Item6
      With .Item7
        .wnd := Form
        .top := 153
        .width := 240
        .height := 288
        .left_ := 344
      End With  'EnvelopLayoutSet.ScreenLayout1024x768.Item7
      With .Item8
        .wnd := PropertyEditor
        .top := 75
        .width := 262
        .height := 396
        .visible := True
        .left_ := 3
      End With  'EnvelopLayoutSet.ScreenLayout1024x768.Item8
      With .Item9
        .wnd := ControlTools.Palette
        .top := 75
        .width := 61
        .height := 435
        .visible := True
        .left_ := 958
      End With  'EnvelopLayoutSet.ScreenLayout1024x768.Item9
      With .Item10
        .wnd := ToolPalette
        .top := 75
        .width := 621
        .height := 43
        .visible := True
        .left_ := 335
      End With  'EnvelopLayoutSet.ScreenLayout1024x768.Item10
      With .Item11
        .wnd := EnvelopForm
        .top := 1
        .width := 1022
        .height := 71
        .visible := True
        .left_ := 1
      End With  'EnvelopLayoutSet.ScreenLayout1024x768.Item11
      With .Item12
        .wnd := ObjectViewer
        .top := 121
        .width := 244
        .height := 292
        .visible := True
        .left_ := 711
      End With  'EnvelopLayoutSet.ScreenLayout1024x768.Item12
      With .Item14
        .wnd := NewProjectForm
        .top := 264
        .width := 333
        .height := 160
        .left_ := 267
      End With  'EnvelopLayoutSet.ScreenLayout1024x768.Item14
      With .Item15
        .wnd := ApplicationEditor.form
        .top := 232
        .width := 370
        .height := 233
        .left_ := 249
      End With  'EnvelopLayoutSet.ScreenLayout1024x768.Item15
      With .Item16
        .wnd := GroupEditor.EditorForm
        .top := 168
        .width := 244
        .height := 253
        .left_ := 306
      End With  'EnvelopLayoutSet.ScreenLayout1024x768.Item16
      With .Item17
        .wnd := ObjectBoxEditor.ObjBoxForm
        .top := 119
        .width := 517
        .height := 56
        .left_ := 67
      End With  'EnvelopLayoutSet.ScreenLayout1024x768.Item17
    End With  'EnvelopLayoutSet.ScreenLayout1024x768
    With .ScreenLayout800x600
      .curItem := 18
      .ScreenWidth := 800
      .ScreenHeight := 600
      With .Item1
        .wnd := ControlTools.Palette
        .top := 117
        .width := 61
        .height := 435
        .visible := True
        .left_ := 736
      End With  'EnvelopLayoutSet.ScreenLayout800x600.Item1
      With .Item2
        .wnd := ToolPalette
        .top := 73
        .width := 621
        .height := 43
        .visible := True
        .left_ := 175
      End With  'EnvelopLayoutSet.ScreenLayout800x600.Item2
      With .Item3
        .wnd := EnvelopForm
        .top := 1
        .width := 794
        .height := 71
        .visible := True
        .left_ := 2
      End With  'EnvelopLayoutSet.ScreenLayout800x600.Item3
      With .Item4
        .wnd := ScreenLayoutConfigForm
        .top := 127
        .width := 254
        .height := 179
        .left_ := 274
      End With  'EnvelopLayoutSet.ScreenLayout800x600.Item4
      With .Item5
        .wnd := Form
        .top := 147
        .width := 240
        .height := 288
        .left_ := 240
      End With  'EnvelopLayoutSet.ScreenLayout800x600.Item5
      With .Item6
        .wnd := Debug
        .top := 391
        .width := 348
        .height := 202
        .visible := True
        .left_ := 446
      End With  'EnvelopLayoutSet.ScreenLayout800x600.Item6
      With .Item7
        .wnd := MenuEdit
        .top := 94
        .width := 341
        .height := 451
        .left_ := 62
      End With  'EnvelopLayoutSet.ScreenLayout800x600.Item7
      With .Item8
        .wnd := PropertyEditor
        .top := 118
        .width := 232
        .height := 479
        .visible := True
        .left_ := 4
      End With  'EnvelopLayoutSet.ScreenLayout800x600.Item8
      With .Item9
        .wnd := MethodEditor
        .top := 275
        .width := 540
        .height := 321
        .visible := True
      End With  'EnvelopLayoutSet.ScreenLayout800x600.Item9
      With .Item10
        .wnd := SourceSearcher
        .top := 77
        .width := 441
        .height := 369
        .left_ := 285
      End With  'EnvelopLayoutSet.ScreenLayout800x600.Item10
      With .Item11
        .wnd := SamplesBrowser
        .top := 91
        .width := 438
        .height := 448
        .left_ := 120
      End With  'EnvelopLayoutSet.ScreenLayout800x600.Item11
      With .Item12
        .wnd := ObjectBoxEditor.ObjBoxForm
        .top := 119
        .width := 517
        .height := 56
        .left_ := 67
      End With  'EnvelopLayoutSet.ScreenLayout800x600.Item12
      With .Item13
        .wnd := GroupEditor.EditorForm
        .top := 168
        .width := 244
        .height := 253
        .left_ := 306
      End With  'EnvelopLayoutSet.ScreenLayout800x600.Item13
      With .Item14
        .wnd := ApplicationEditor.form
        .top := 232
        .width := 370
        .height := 233
        .left_ := 249
      End With  'EnvelopLayoutSet.ScreenLayout800x600.Item14
      With .Item15
        .wnd := NewProjectForm
        .top := 264
        .width := 333
        .height := 160
        .left_ := 267
      End With  'EnvelopLayoutSet.ScreenLayout800x600.Item15
      With .Item16
        .wnd := WorkSet.WorkSetForm
        .top := 121
        .width := 228
        .height := 189
        .left_ := 411
      End With  'EnvelopLayoutSet.ScreenLayout800x600.Item16
      With .Item17
        .wnd := ObjectViewer
        .top := 118
        .width := 244
        .height := 271
        .visible := True
        .left_ := 488
      End With  'EnvelopLayoutSet.ScreenLayout800x600.Item17
    End With  'EnvelopLayoutSet.ScreenLayout800x600
    With .ScreenLayout640x480
      .curItem := 19
      .ScreenWidth := 640
      .ScreenHeight := 480
      With .Item1
        .wnd := ControlTools.Palette
        .top := 115
        .width := 61
        .height := 435
        .visible := True
        .left_ := 577
      End With  'EnvelopLayoutSet.ScreenLayout640x480.Item1
      With .Item2
        .wnd := ToolPalette
        .top := 71
        .width := 621
        .height := 43
        .visible := True
        .left_ := 15
      End With  'EnvelopLayoutSet.ScreenLayout640x480.Item2
      With .Item3
        .wnd := EnvelopForm
        .top := 1
        .width := 634
        .height := 71
        .visible := True
        .left_ := 2
      End With  'EnvelopLayoutSet.ScreenLayout640x480.Item3
      With .Item4
        .wnd := ScreenLayoutConfigForm
        .top := 127
        .width := 254
        .height := 179
        .left_ := 274
      End With  'EnvelopLayoutSet.ScreenLayout640x480.Item4
      With .Item5
        .wnd := Debug
        .top := 321
        .width := 269
        .height := 155
        .visible := True
        .left_ := 369
      End With  'EnvelopLayoutSet.ScreenLayout640x480.Item5
      With .Item6
        .wnd := Form
        .top := 115
        .width := 240
        .height := 288
        .left_ := 238
      End With  'EnvelopLayoutSet.ScreenLayout640x480.Item6
      With .Item7
        .wnd := MethodEditor
        .top := 275
        .width := 537
        .height := 203
        .visible := True
        .left_ := 1
      End With  'EnvelopLayoutSet.ScreenLayout640x480.Item7
      With .Item8
        .wnd := NewProjectForm
        .top := 264
        .width := 333
        .height := 160
        .left_ := 267
      End With  'EnvelopLayoutSet.ScreenLayout640x480.Item8
      With .Item9
        .wnd := ObjectBoxEditor.ObjBoxForm
        .top := 119
        .width := 517
        .height := 56
        .left_ := 67
      End With  'EnvelopLayoutSet.ScreenLayout640x480.Item9
      With .Item10
        .wnd := SourceSearcher
        .top := 77
        .width := 441
        .height := 299
        .left_ := 91
      End With  'EnvelopLayoutSet.ScreenLayout640x480.Item10
      With .Item11
        .wnd := ApplicationEditor.form
        .top := 143
        .width := 370
        .height := 233
        .left_ := 163
      End With  'EnvelopLayoutSet.ScreenLayout640x480.Item11
      With .Item12
        .wnd := GroupEditor.EditorForm
        .top := 119
        .width := 244
        .height := 253
        .left_ := 217
      End With  'EnvelopLayoutSet.ScreenLayout640x480.Item12
      With .Item13
        .wnd := SamplesBrowser
        .top := 8
        .width := 438
        .height := 448
        .left_ := 92
      End With  'EnvelopLayoutSet.ScreenLayout640x480.Item13
      With .Item14
        .wnd := WorkSet.WorkSetForm
        .top := 121
        .width := 228
        .height := 189
        .left_ := 411
      End With  'EnvelopLayoutSet.ScreenLayout640x480.Item14
      With .Item15
        .wnd := PropertyEditor
        .top := 114
        .width := 232
        .height := 363
        .visible := True
        .left_ := 4
      End With  'EnvelopLayoutSet.ScreenLayout640x480.Item15
      With .Item17
        .wnd := ObjectViewer
        .top := 73
        .width := 244
        .height := 244
        .visible := True
        .left_ := 333
      End With  'EnvelopLayoutSet.ScreenLayout640x480.Item17
      With .Item18
        .wnd := MenuEdit
        .top := 76
        .width := 204
        .height := 361
        .left_ := 49
      End With  'EnvelopLayoutSet.ScreenLayout640x480.Item18
    End With  'EnvelopLayoutSet.ScreenLayout640x480
  End With  'EnvelopLayoutSet
' Reconstruction commands for object: ProjectStartupOptions
'
  With ProjectStartupOptions
    .AskOnStartup := False
    .StartupAction := 2
    .FileDialogDir := ""
  End With  'ProjectStartupOptions
End Code