PageRenderTime 23ms CodeModel.GetById 14ms app.highlight 4ms RepoModel.GetById 2ms app.codeStats 0ms

/examples/stock_images/unit1.lfm

http://github.com/graemeg/lazarus
Unknown | 171 lines | 171 code | 0 blank | 0 comment | 0 complexity | ceb62610072e3df9a5a2e64cf1c39b92 MD5 | raw file
  1object Form1: TForm1
  2  Left = 370
  3  Height = 255
  4  Top = 229
  5  Width = 400
  6  Caption = 'Stock Icons Tester'
  7  ClientHeight = 255
  8  ClientWidth = 400
  9  OnCreate = FormCreate
 10  LCLVersion = '1.3'
 11  object Label1: TLabel
 12    AnchorSideLeft.Control = Owner
 13    AnchorSideLeft.Side = asrCenter
 14    AnchorSideTop.Control = Owner
 15    Left = 200
 16    Height = 1
 17    Top = 0
 18    Width = 1
 19    ParentColor = False
 20  end
 21  object GroupBox1: TGroupBox
 22    AnchorSideLeft.Control = Owner
 23    AnchorSideTop.Control = Owner
 24    AnchorSideRight.Control = Label1
 25    AnchorSideRight.Side = asrBottom
 26    AnchorSideBottom.Control = BitBtn1
 27    Left = 6
 28    Height = 211
 29    Top = 6
 30    Width = 192
 31    Anchors = [akTop, akLeft, akRight, akBottom]
 32    BorderSpacing.Left = 6
 33    BorderSpacing.Top = 6
 34    BorderSpacing.Right = 3
 35    Caption = 'Dialog Icons:'
 36    ClientHeight = 193
 37    ClientWidth = 188
 38    TabOrder = 0
 39    object DialogImage: TImage
 40      AnchorSideLeft.Control = GroupBox1
 41      AnchorSideTop.Control = DialogCaptionLbl
 42      AnchorSideTop.Side = asrBottom
 43      AnchorSideRight.Control = GroupBox1
 44      AnchorSideRight.Side = asrBottom
 45      AnchorSideBottom.Control = DialogTrack
 46      Left = 6
 47      Height = 113
 48      Top = 27
 49      Width = 176
 50      Anchors = [akTop, akLeft, akRight, akBottom]
 51      BorderSpacing.Around = 6
 52      Center = True
 53    end
 54    object DialogCaptionLbl: TLabel
 55      AnchorSideLeft.Control = GroupBox1
 56      AnchorSideTop.Control = GroupBox1
 57      AnchorSideRight.Control = GroupBox1
 58      AnchorSideRight.Side = asrBottom
 59      Left = 6
 60      Height = 15
 61      Top = 6
 62      Width = 176
 63      Anchors = [akTop, akLeft, akRight]
 64      BorderSpacing.Left = 6
 65      BorderSpacing.Top = 6
 66      BorderSpacing.Right = 6
 67      Caption = 'DialogCaptionLbl'
 68      ParentColor = False
 69    end
 70    object DialogTrack: TTrackBar
 71      AnchorSideLeft.Control = GroupBox1
 72      AnchorSideRight.Control = GroupBox1
 73      AnchorSideRight.Side = asrBottom
 74      AnchorSideBottom.Control = GroupBox1
 75      AnchorSideBottom.Side = asrBottom
 76      Left = 6
 77      Height = 41
 78      Top = 146
 79      Width = 176
 80      OnChange = DialogTrackChange
 81      Position = 0
 82      Anchors = [akLeft, akRight, akBottom]
 83      BorderSpacing.Around = 6
 84      TabOrder = 0
 85    end
 86  end
 87  object GroupBox2: TGroupBox
 88    AnchorSideLeft.Control = Label1
 89    AnchorSideTop.Control = Owner
 90    AnchorSideRight.Control = Owner
 91    AnchorSideRight.Side = asrBottom
 92    AnchorSideBottom.Control = GroupBox1
 93    AnchorSideBottom.Side = asrBottom
 94    Left = 203
 95    Height = 211
 96    Top = 6
 97    Width = 191
 98    Anchors = [akTop, akLeft, akRight, akBottom]
 99    BorderSpacing.Left = 3
100    BorderSpacing.Top = 6
101    BorderSpacing.Right = 6
102    Caption = 'Button Icons:'
103    ClientHeight = 193
104    ClientWidth = 187
105    TabOrder = 1
106    object ButtonImage: TImage
107      AnchorSideLeft.Control = GroupBox2
108      AnchorSideTop.Control = ButtonCaptionLbl
109      AnchorSideTop.Side = asrBottom
110      AnchorSideRight.Control = GroupBox2
111      AnchorSideRight.Side = asrBottom
112      AnchorSideBottom.Control = ButtonTrack
113      Left = 6
114      Height = 113
115      Top = 27
116      Width = 175
117      Anchors = [akTop, akLeft, akRight, akBottom]
118      BorderSpacing.Around = 6
119      Center = True
120    end
121    object ButtonCaptionLbl: TLabel
122      AnchorSideLeft.Control = GroupBox2
123      AnchorSideTop.Control = GroupBox2
124      AnchorSideRight.Control = GroupBox2
125      AnchorSideRight.Side = asrBottom
126      Left = 6
127      Height = 15
128      Top = 6
129      Width = 175
130      Anchors = [akTop, akLeft, akRight]
131      BorderSpacing.Left = 6
132      BorderSpacing.Top = 6
133      BorderSpacing.Right = 6
134      Caption = 'ButtonCaptionLbl'
135      ParentColor = False
136    end
137    object ButtonTrack: TTrackBar
138      AnchorSideLeft.Control = GroupBox2
139      AnchorSideRight.Control = GroupBox2
140      AnchorSideRight.Side = asrBottom
141      AnchorSideBottom.Control = GroupBox2
142      AnchorSideBottom.Side = asrBottom
143      Left = 6
144      Height = 41
145      Top = 146
146      Width = 175
147      OnChange = ButtonTrackChange
148      Position = 0
149      Anchors = [akLeft, akRight, akBottom]
150      BorderSpacing.Around = 6
151      TabOrder = 0
152    end
153  end
154  object BitBtn1: TBitBtn
155    AnchorSideRight.Control = Owner
156    AnchorSideRight.Side = asrBottom
157    AnchorSideBottom.Control = Owner
158    AnchorSideBottom.Side = asrBottom
159    Left = 319
160    Height = 26
161    Top = 223
162    Width = 75
163    Anchors = [akRight, akBottom]
164    AutoSize = True
165    BorderSpacing.Around = 6
166    Caption = '&Close'
167    Constraints.MinWidth = 75
168    Kind = bkClose
169    TabOrder = 2
170  end
171end