NewImageUnit.lfm 3.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166
  1. object FrmNewImage: TFrmNewImage
  2. Left = 282
  3. Height = 194
  4. Top = 194
  5. Width = 250
  6. BorderStyle = bsDialog
  7. Caption = 'New Image'
  8. ClientHeight = 194
  9. ClientWidth = 250
  10. Color = clBtnFace
  11. Font.Color = clWindowText
  12. Font.Height = -11
  13. Font.Name = 'Tahoma'
  14. Position = poScreenCenter
  15. LCLVersion = '1.0.1.3'
  16. object LblWidth: TLabel
  17. Left = 24
  18. Height = 14
  19. Top = 27
  20. Width = 33
  21. Caption = 'Width:'
  22. FocusControl = EdtImageWidth
  23. ParentColor = False
  24. end
  25. object LblHeight: TLabel
  26. Left = 24
  27. Height = 14
  28. Top = 67
  29. Width = 36
  30. Caption = 'Height:'
  31. FocusControl = EdtImageHeight
  32. ParentColor = False
  33. end
  34. object LblWidthUnit: TLabel
  35. Left = 200
  36. Height = 14
  37. Top = 27
  38. Width = 28
  39. Caption = 'pixels'
  40. ParentColor = False
  41. end
  42. object LblHeightUnit: TLabel
  43. Left = 200
  44. Height = 14
  45. Top = 67
  46. Width = 28
  47. Caption = 'pixels'
  48. ParentColor = False
  49. end
  50. object LblBackgroundColor: TLabel
  51. Left = 24
  52. Height = 14
  53. Top = 116
  54. Width = 89
  55. Caption = 'Background Color:'
  56. ParentColor = False
  57. end
  58. object EdtImageWidth: TEdit
  59. Left = 72
  60. Height = 21
  61. Top = 24
  62. Width = 97
  63. TabOrder = 0
  64. Text = '640'
  65. end
  66. object BtnUpDownWidth: TUpDown
  67. Left = 169
  68. Height = 21
  69. Top = 24
  70. Width = 18
  71. Associate = EdtImageWidth
  72. Min = 1
  73. Max = 2000
  74. Position = 640
  75. TabOrder = 1
  76. Wrap = False
  77. end
  78. object EdtImageHeight: TEdit
  79. Left = 72
  80. Height = 21
  81. Top = 64
  82. Width = 97
  83. TabOrder = 2
  84. Text = '480'
  85. end
  86. object BtnUpDownHeight: TUpDown
  87. Left = 169
  88. Height = 21
  89. Top = 64
  90. Width = 18
  91. Associate = EdtImageHeight
  92. Min = 1
  93. Max = 2000
  94. Position = 480
  95. TabOrder = 3
  96. Wrap = False
  97. end
  98. object PnlColor: TPanel
  99. Left = 120
  100. Height = 21
  101. Top = 112
  102. Width = 67
  103. BevelOuter = bvNone
  104. BorderStyle = bsSingle
  105. Color = clWhite
  106. ParentColor = False
  107. TabOrder = 4
  108. end
  109. object BtnSelect: TButton
  110. Left = 192
  111. Height = 20
  112. Top = 112
  113. Width = 35
  114. Caption = 'Select'
  115. OnClick = BtnSelectClick
  116. TabOrder = 5
  117. TabStop = False
  118. end
  119. object BtnOK: TButton
  120. Left = 104
  121. Height = 22
  122. Top = 164
  123. Width = 65
  124. Caption = 'OK'
  125. Default = True
  126. ModalResult = 1
  127. TabOrder = 6
  128. end
  129. object BtnCancel: TButton
  130. Left = 176
  131. Height = 22
  132. Top = 164
  133. Width = 65
  134. Cancel = True
  135. Caption = 'Cancel'
  136. ModalResult = 2
  137. TabOrder = 7
  138. end
  139. object ColorDialog: TColorDialog
  140. Color = clWhite
  141. CustomColors.Strings = (
  142. 'ColorA=000000'
  143. 'ColorB=000080'
  144. 'ColorC=008000'
  145. 'ColorD=008080'
  146. 'ColorE=800000'
  147. 'ColorF=800080'
  148. 'ColorG=808000'
  149. 'ColorH=808080'
  150. 'ColorI=C0C0C0'
  151. 'ColorJ=0000FF'
  152. 'ColorK=00FF00'
  153. 'ColorL=00FFFF'
  154. 'ColorM=FF0000'
  155. 'ColorN=FF00FF'
  156. 'ColorO=FFFF00'
  157. 'ColorP=FFFFFF'
  158. 'ColorQ=C0DCC0'
  159. 'ColorR=F0CAA6'
  160. 'ColorS=F0FBFF'
  161. 'ColorT=A4A0A0'
  162. )
  163. left = 196
  164. top = 132
  165. end
  166. end