pas2yaml/MainForm.dfm at master · dummzeuch/pas2yaml · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
object frmMain: TfrmMain
  Left = 0
  Top = 0
  Caption = 'frmMain'
  ClientHeight = 454
  ClientWidth = 796
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  DesignSize = (
    796
    454)
  PixelsPerInch = 96
  TextHeight = 13
  object mmoSource: TMemo
    Left = 8
    Top = 8
    Width = 385
    Height = 209
    Lines.Strings = (
      'unit Unit1;'
      ''
      '//unit comment'
      ''
      'interface'
      ''
      'uses'
      '  Windows, Forms, SysUtils;'
      ''
      '//interface comment'
      ''
      'type'
      '  //type comment'
      ''
      '  //class comment'
      '  TTest = class(TObject)'
      '  private'
      '    FTestProp: TObject;'
      '  protected'
      '    procedure Test;'
      '    function TestFunc(const aParam: Integer) string;'
      '  public'
      '    property TestProp: TObject read FTestProp;'
      '  end;'
      '  '
      'implementation'
      ''
      'uses'
      '  DateUtils, Classes;'
      ''
      '{ TTest }'
      ''
      'procedure TTest.Test;'
      'begin'
      '  //'
      'end;'
      ''
      'end.')
    ScrollBars = ssBoth
    TabOrder = 0
  end
  object Button1: TButton
    Left = 8
    Top = 223
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 1
    OnClick = Button1Click
  end
  object mmoResult: TMemo
    Left = 8
    Top = 254
    Width = 385
    Height = 192
    Anchors = [akLeft, akTop, akBottom]
    Lines.Strings = (
      'mmoResult')
    ScrollBars = ssBoth
    TabOrder = 2
  end
  object mmoOutput: TMemo
    Left = 399
    Top = 254
    Width = 385
    Height = 192
    Anchors = [akLeft, akTop, akBottom]
    Lines.Strings = (
      'mmoOutput')
    ScrollBars = ssBoth
    TabOrder = 3
  end
end