File: unit1.lfm

package info (click to toggle)
lazarus 2.0.0%2Bdfsg-2
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 214,460 kB
  • sloc: pascal: 1,862,622; xml: 265,709; cpp: 56,595; sh: 3,008; java: 609; makefile: 535; perl: 297; sql: 222; ansic: 137
file content (177 lines) | stat: -rw-r--r-- 4,211 bytes parent folder | download | duplicates (12)
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
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
object Form1: TForm1
  Left = 265
  Height = 334
  Top = 150
  Width = 781
  HorzScrollBar.Page = 780
  VertScrollBar.Page = 333
  ActiveControl = ListBox1
  Caption = 'Form1'
  ClientHeight = 334
  ClientWidth = 781
  OnCreate = FormCreate
  Position = poScreenCenter
  LCLVersion = '0.9.25'
  object ListBox1: TListBox
    AnchorSideLeft.Control = GroupBox1
    AnchorSideTop.Control = GroupBox1
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = GroupBox5
    AnchorSideRight.Side = asrBottom
    Left = 20
    Height = 120
    Top = 166
    Width = 740
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Top = 10
    OnSelectionChange = ListBox1SelectionChange
    TabOrder = 0
  end
  object GroupBox1: TGroupBox
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Owner
    Left = 20
    Height = 146
    Top = 10
    Width = 132
    AutoSize = True
    BorderSpacing.Left = 20
    BorderSpacing.Top = 10
    Caption = 'Normal'
    ClientHeight = 128
    ClientWidth = 128
    Color = clWhite
    ParentColor = False
    TabOrder = 1
    object Image1: TImage
      AnchorSideTop.Side = asrBottom
      Height = 128
      Width = 128
      Center = True
      Transparent = False
    end
  end
  object GroupBox2: TGroupBox
    AnchorSideLeft.Control = GroupBox1
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = Owner
    Left = 172
    Height = 146
    Top = 10
    Width = 132
    AutoSize = True
    BorderSpacing.Left = 20
    BorderSpacing.Top = 10
    Caption = 'Disabled'
    ClientHeight = 128
    ClientWidth = 128
    Color = clWhite
    ParentColor = False
    TabOrder = 2
    object Image2: TImage
      AnchorSideTop.Side = asrBottom
      Height = 128
      Width = 128
      Center = True
      Transparent = False
    end
  end
  object GroupBox3: TGroupBox
    AnchorSideLeft.Control = GroupBox2
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = Owner
    Left = 324
    Height = 146
    Top = 10
    Width = 132
    AutoSize = True
    BorderSpacing.Left = 20
    BorderSpacing.Top = 10
    Caption = 'Highlighted'
    ClientHeight = 128
    ClientWidth = 128
    Color = clWhite
    ParentColor = False
    TabOrder = 3
    object Image3: TImage
      AnchorSideTop.Side = asrBottom
      Height = 128
      Width = 128
      Center = True
      Transparent = False
    end
  end
  object GroupBox4: TGroupBox
    AnchorSideLeft.Control = GroupBox3
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = Owner
    Left = 476
    Height = 146
    Top = 10
    Width = 132
    AutoSize = True
    BorderSpacing.Left = 20
    BorderSpacing.Top = 10
    Caption = 'Shadowed'
    ClientHeight = 128
    ClientWidth = 128
    Color = clWhite
    ParentColor = False
    TabOrder = 4
    object Image4: TImage
      AnchorSideTop.Side = asrBottom
      Height = 128
      Width = 128
      Center = True
      Transparent = False
    end
  end
  object Button1: TButton
    AnchorSideTop.Control = ListBox1
    AnchorSideTop.Side = asrBottom
    Left = 20
    Height = 25
    Top = 296
    Width = 75
    BorderSpacing.Top = 10
    Caption = 'Add ...'
    OnClick = Button1Click
    TabOrder = 5
  end
  object GroupBox5: TGroupBox
    AnchorSideLeft.Control = GroupBox4
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = Owner
    Left = 628
    Height = 146
    Top = 10
    Width = 132
    AutoSize = True
    BorderSpacing.Left = 20
    BorderSpacing.Top = 10
    Caption = '1 Bit'
    ClientHeight = 128
    ClientWidth = 128
    Color = clWhite
    ParentColor = False
    TabOrder = 6
    object Image5: TImage
      AnchorSideTop.Side = asrBottom
      Height = 128
      Width = 128
      Center = True
      Transparent = False
    end
  end
  object ImageList1: TImageList
    Height = 128
    Width = 128
    left = 384
    top = 192
  end
  object OpenPictureDialog1: TOpenPictureDialog
    Filter = 'Graphic (*.ico;*.ppm;*.pgm;*.pbm;*.png;*.xpm;*.bmp)|*.ico;*.ppm;*.pgm;*.pbm;*.png;*.xpm;*.bmp|Icon (*.ico)|*.ico|Portable PixMap (*.ppm)|*.ppm|Portable GrayMap (*.pgm)|*.pgm|Portable BitMap (*.pbm)|*.pbm|Portable Network Graphic (*.png)|*.png|Pixmap (*.xp'
    left = 416
    top = 192
  end
end