MainUnit.dfm 3.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181
  1. object MainForm: TMainForm
  2. Left = 230
  3. Top = 122
  4. HorzScrollBar.Visible = False
  5. VertScrollBar.Visible = False
  6. Caption = 'ByteMaps Example'
  7. ClientHeight = 333
  8. ClientWidth = 494
  9. Color = clBtnFace
  10. Constraints.MinHeight = 300
  11. Constraints.MinWidth = 200
  12. Font.Charset = DEFAULT_CHARSET
  13. Font.Color = clWindowText
  14. Font.Height = -11
  15. Font.Name = 'Tahoma'
  16. Font.Style = []
  17. Menu = MainMenu
  18. OnCreate = FormCreate
  19. OnDestroy = FormDestroy
  20. TextHeight = 13
  21. object PnlMain: TPanel
  22. Left = 0
  23. Top = 27
  24. Width = 494
  25. Height = 306
  26. Align = alClient
  27. BevelOuter = bvNone
  28. BorderStyle = bsSingle
  29. ParentColor = True
  30. TabOrder = 0
  31. ExplicitHeight = 326
  32. object Image: TImgView32
  33. Left = 0
  34. Top = 0
  35. Width = 490
  36. Height = 302
  37. Align = alClient
  38. Bitmap.ResamplerClassName = 'TNearestResampler'
  39. BitmapAlign = baCustom
  40. RepaintMode = rmOptimizer
  41. Scale = 1.000000000000000000
  42. ScaleMode = smScale
  43. MousePan.Enabled = True
  44. MouseZoom.Enabled = True
  45. ScrollBars.Increment = 0
  46. ScrollBars.Size = 16
  47. OverSize = 0
  48. TabOrder = 0
  49. OnScaleChange = ImageScaleChange
  50. ExplicitHeight = 322
  51. end
  52. end
  53. object PnlSepartator: TPanel
  54. Left = 0
  55. Top = 25
  56. Width = 494
  57. Height = 2
  58. Align = alTop
  59. BevelOuter = bvNone
  60. TabOrder = 1
  61. end
  62. object Panel1: TPanel
  63. Left = 0
  64. Top = 0
  65. Width = 494
  66. Height = 25
  67. Align = alTop
  68. BevelOuter = bvNone
  69. ShowCaption = False
  70. TabOrder = 2
  71. DesignSize = (
  72. 494
  73. 25)
  74. object Label1: TLabel
  75. Left = 9
  76. Top = 6
  77. Width = 30
  78. Height = 13
  79. Caption = 'Zoom:'
  80. end
  81. object Label2: TLabel
  82. Left = 176
  83. Top = 6
  84. Width = 38
  85. Height = 13
  86. Caption = 'Palette:'
  87. end
  88. object ScaleBar: TGaugeBar
  89. Left = 53
  90. Top = 4
  91. Width = 107
  92. Height = 18
  93. Hint = 'Zoom'
  94. Backgnd = bgPattern
  95. ButtonSize = 14
  96. LargeChange = 20
  97. Min = -100
  98. ShowHandleGrip = True
  99. Style = rbsMac
  100. Position = 0
  101. OnChange = ScaleChange
  102. end
  103. object PaletteCombo: TComboBox
  104. Left = 220
  105. Top = 3
  106. Width = 73
  107. Height = 21
  108. Anchors = [akTop, akRight]
  109. TabOrder = 1
  110. TabStop = False
  111. OnChange = PaletteComboChange
  112. Items.Strings = (
  113. 'Grayscale'
  114. 'Greens'
  115. 'Reds'
  116. 'Rainbow')
  117. end
  118. end
  119. object SavePictureDialog: TSavePictureDialog
  120. DefaultExt = 'bmp'
  121. Filter = 'Bitmaps (*.bmp)|*.bmp'
  122. Left = 168
  123. Top = 148
  124. end
  125. object MainMenu: TMainMenu
  126. Left = 291
  127. Top = 158
  128. object mnFile: TMenuItem
  129. Caption = '&File'
  130. object mnNew: TMenuItem
  131. Caption = 'Generate New'
  132. ImageIndex = 0
  133. OnClick = NewClick
  134. end
  135. object mnOpen: TMenuItem
  136. Caption = 'Open...'
  137. ImageIndex = 1
  138. OnClick = OpenClick
  139. end
  140. object MenuItemSave: TMenuItem
  141. Caption = 'Save...'
  142. Enabled = False
  143. ImageIndex = 2
  144. OnClick = SaveClick
  145. end
  146. object N1: TMenuItem
  147. Caption = '-'
  148. end
  149. object mnExit: TMenuItem
  150. Caption = 'Exit'
  151. OnClick = mnExitClick
  152. end
  153. end
  154. object mnEdit: TMenuItem
  155. Caption = '&Edit'
  156. object MenuItemCopy: TMenuItem
  157. Caption = 'Copy'
  158. Enabled = False
  159. ImageIndex = 3
  160. OnClick = CopyClick
  161. end
  162. end
  163. object View1: TMenuItem
  164. Caption = 'View'
  165. object MenuItemLinear: TMenuItem
  166. AutoCheck = True
  167. Caption = 'Linear resampler'
  168. OnClick = MenuItemLinearClick
  169. end
  170. end
  171. end
  172. object OpenPictureDialog: TOpenPictureDialog
  173. Filter =
  174. 'All (*.gif;*.jpg;*.jpeg;*.bmp;*.ico)|*.gif;*.jpg;*.jpeg;*.bmp;*.' +
  175. 'ico|CompuServe GIF Image (*.gif)|*.gif|JPEG Image File (*.jpg)|*' +
  176. '.jpg|JPEG Image File (*.jpeg)|*.jpeg|Bitmaps (*.bmp)|*.bmp|Icons' +
  177. ' (*.ico)|*.ico'
  178. Left = 170
  179. Top = 98
  180. end
  181. end