/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

  1. object 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
  171. end