Subversion Repositories spacemission

Rev

Rev 1 | Go to most recent revision | Only display areas with differences | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1 Rev 4
1 
ÿ
 1 
object DelphiXPictureEditForm: TDelphiXPictureEditForm
2 
TDELPHIXPICTUREEDITFORM0jTPF0TDelphiXPictureEditFormDelphiXPictureEditFormLeftýTop
 2 
  Left = 318
3 

ActiveControlCancelButtonBorderStylebsDialogCaptionPicture editorClientHeight1ClientWidthgFont.CharsetDEFAULT_CHARSET
 3 
  Top = 330
4 
Font.ColorclWindowTextFont.Heightô	Font.Name
MS Sans Serif
 4 
  ActiveControl = CancelButton
5 
Font.Style	PopupMenu
 5 
  BorderStyle = bsDialog
6 
PopupMenu1PositionpoScreenCenterScaledOnShowFormShow
PixelsPerInch`
 6 
  Caption = 'Picture editor'
7 
TextHeightTBevelBevel2LeftTopPWidthQHeightQTBevelBevel1LeftTopWidthHeight!ShapebsFrameTLabel	SizeLabelLeftTophWidthHeightCaptionSizeTLabel
BitCountLabelLeftTopxWidth-HeightCaptionBitCountTLabelBitSizeLabelLeftTopˆWidth$HeightCaptionBitSizeTLabelClassNameLabelLeftTopXWidth:HeightCaption	ClassNameTButton
 7 
  ClientHeight = 305
8 
LoadButtonLeftTopWidthIHeightCaption&Load...TabOrderOnClickLoadButtonClickTButton
 8 
  ClientWidth = 359
9 
SaveButtonLeft`TopWidthIHeightCaption&Save...TabOrderOnClickSaveButtonClickTButtonClearButtonLeft°TopWidthIHeightCaption&ClearTabOrderOnClickClearButtonClickTButtonOKButtonLeftTopWidthQHeightCaptionOKTabOrderOnClick
OKButtonClickTButtonCancelButtonLeftTop(WidthQHeightCancel	CaptionCancelDefault	TabOrderOnClickCancelButtonClickTPanelPanel1LeftTopWidthñHeightñ
 9 
  Color = clBtnFace
10 
BevelOuterbvNoneBorderStylebsSingleColorclWhiteTabOrderTShapeShapeLeftöTopöWidthûHeightûBrush.ColorclBlackBrush.StylebsDiagCrossTLabel	NoneLabelLeftnToppWidthHeight	AlignmenttaCenterCaption(None)TImageViewBoxLeftTopWidthäHeightäCenter	Stretch	TButtonConvertToDIBLeftTop¨WidthQHeightCaptionTDIBTabOrderOnClickConvertToDIBClickTOpenPictureDialog
 10 
  Font.Charset = DEFAULT_CHARSET
11 
OpenDialog
 11 
  Font.Color = clWindowText
12 
DefaultExtbmpFilter OptionsofHideReadOnlyofPathMustExistofFileMustExistLefthTop¨TSavePictureDialog
 12 
  Font.Height = -12
13 
SaveDialog
 13 
  Font.Name = 'MS Sans Serif'
14 
DefaultExtbmpFilter OptionsofOverwritePromptofHideReadOnlyofPathMustExistLeftˆTop¨
 14 
  Font.Style = []
15 
TPopupMenu
 15 
  OldCreateOrder = True
16 
PopupMenu1OnPopupPopupMenu1PopupLeft¨Top¨	TMenuItemgeConvertColorTagCaption&Convert color	TMenuItemN15TagCaption2 colorOnClickgeConvertColorClick	TMenuItemN41TagCaption16 colorOnClickgeConvertColorClick	TMenuItemN21TagCaption	256 colorOnClickgeConvertColorClick	TMenuItemN22TagCaption24 bit colorOnClickgeConvertColorClick	TMenuItemgeGreyscaleTagCaption
 16 
  PopupMenu = PopupMenu1
17 
&Greyscale	TMenuItemN11TagCaption2 colorOnClickgeGreyscaleClick	TMenuItemN12TagCaption16 colorOnClickgeGreyscaleClick	TMenuItemN13TagCaption	256 colorOnClickgeGreyscaleClick	TMenuItemN14TagCaption24 bit colorOnClickgeGreyscaleClick	TMenuItem
 17 
  Position = poScreenCenter
18 
geNegativeTagCaption	&NegativeOnClickgeNegativeClick	TMenuItemN1Caption-	TMenuItem
 18 
  Scaled = False
19 
geCompressTagCaption	&CompressOnClickgeCompressClick	TMenuItemgeDecompressTagCaption&DecompressOnClickgeDecompressClick	TMenuItemN3Caption-	TMenuItemgeCopyTagCaption&CopyShortCutC@OnClickgeCopyClick	TMenuItemgePasteCaption&PasteShortCutV@OnClickgePasteClick
 19 
  OnShow = FormShow
- 
 
 20 
  PixelsPerInch = 96
- 
 
 21 
  TextHeight = 13
- 
 
 22 
  object Bevel2: TBevel
- 
 
 23 
    Left = 272
- 
 
 24 
    Top = 80
- 
 
 25 
    Width = 81
- 
 
 26 
    Height = 81
- 
 
 27 
  end
- 
 
 28 
  object Bevel1: TBevel
- 
 
 29 
    Left = 8
- 
 
 30 
    Top = 8
- 
 
 31 
    Width = 257
- 
 
 32 
    Height = 289
- 
 
 33 
    Shape = bsFrame
- 
 
 34 
  end
- 
 
 35 
  object SizeLabel: TLabel
- 
 
 36 
    Left = 280
- 
 
 37 
    Top = 104
- 
 
 38 
    Width = 20
- 
 
 39 
    Height = 13
- 
 
 40 
    Caption = 'Size'
- 
 
 41 
  end
- 
 
 42 
  object BitCountLabel: TLabel
- 
 
 43 
    Left = 280
- 
 
 44 
    Top = 120
- 
 
 45 
    Width = 40
- 
 
 46 
    Height = 13
- 
 
 47 
    Caption = 'BitCount'
- 
 
 48 
  end
- 
 
 49 
  object BitSizeLabel: TLabel
- 
 
 50 
    Left = 280
- 
 
 51 
    Top = 136
- 
 
 52 
    Width = 32
- 
 
 53 
    Height = 13
- 
 
 54 
    Caption = 'BitSize'
- 
 
 55 
  end
- 
 
 56 
  object ClassNameLabel: TLabel
- 
 
 57 
    Left = 280
- 
 
 58 
    Top = 88
- 
 
 59 
    Width = 53
- 
 
 60 
    Height = 13
- 
 
 61 
    Caption = 'ClassName'
- 
 
 62 
  end
- 
 
 63 
  object LoadButton: TButton
- 
 
 64 
    Left = 16
- 
 
 65 
    Top = 264
- 
 
 66 
    Width = 73
- 
 
 67 
    Height = 25
- 
 
 68 
    Caption = '&Load...'
- 
 
 69 
    TabOrder = 2
- 
 
 70 
    OnClick = LoadButtonClick
- 
 
 71 
  end
- 
 
 72 
  object SaveButton: TButton
- 
 
 73 
    Left = 96
- 
 
 74 
    Top = 264
- 
 
 75 
    Width = 73
- 
 
 76 
    Height = 25
- 
 
 77 
    Caption = '&Save...'
- 
 
 78 
    TabOrder = 3
- 
 
 79 
    OnClick = SaveButtonClick
- 
 
 80 
  end
- 
 
 81 
  object ClearButton: TButton
- 
 
 82 
    Left = 176
- 
 
 83 
    Top = 264
- 
 
 84 
    Width = 73
- 
 
 85 
    Height = 25
- 
 
 86 
    Caption = '&Clear'
- 
 
 87 
    TabOrder = 4
- 
 
 88 
    OnClick = ClearButtonClick
- 
 
 89 
  end
- 
 
 90 
  object OKButton: TButton
- 
 
 91 
    Left = 272
- 
 
 92 
    Top = 8
- 
 
 93 
    Width = 81
- 
 
 94 
    Height = 25
- 
 
 95 
    Caption = 'OK'
- 
 
 96 
    TabOrder = 0
- 
 
 97 
    OnClick = OKButtonClick
- 
 
 98 
  end
- 
 
 99 
  object CancelButton: TButton
- 
 
 100 
    Left = 272
- 
 
 101 
    Top = 40
- 
 
 102 
    Width = 81
- 
 
 103 
    Height = 25
- 
 
 104 
    Cancel = True
- 
 
 105 
    Caption = 'Cancel'
- 
 
 106 
    Default = True
- 
 
 107 
    TabOrder = 1
- 
 
 108 
    OnClick = CancelButtonClick
- 
 
 109 
  end
- 
 
 110 
  object Panel1: TPanel
- 
 
 111 
    Left = 16
- 
 
 112 
    Top = 16
- 
 
 113 
    Width = 241
- 
 
 114 
    Height = 241
- 
 
 115 
    BevelOuter = bvNone
- 
 
 116 
    BorderStyle = bsSingle
- 
 
 117 
    Color = clWhite
- 
 
 118 
    TabOrder = 5
- 
 
 119 
    object Shape: TShape
- 
 
 120 
      Left = -10
- 
 
 121 
      Top = -10
- 
 
 122 
      Width = 251
- 
 
 123 
      Height = 251
- 
 
 124 
      Brush.Color = clBlack
- 
 
 125 
      Brush.Style = bsDiagCross
- 
 
 126 
    end
- 
 
 127 
    object NoneLabel: TLabel
- 
 
 128 
      Left = 110
- 
 
 129 
      Top = 112
- 
 
 130 
      Width = 32
- 
 
 131 
      Height = 13
- 
 
 132 
      Alignment = taCenter
- 
 
 133 
      Caption = '(None)'
- 
 
 134 
    end
- 
 
 135 
    object ViewBox: TImage
- 
 
 136 
      Left = 6
- 
 
 137 
      Top = 6
- 
 
 138 
      Width = 228
- 
 
 139 
      Height = 228
- 
 
 140 
      Center = True
- 
 
 141 
      PopupMenu = PopupMenu1
- 
 
 142 
      Stretch = True
- 
 
 143 
    end
- 
 
 144 
  end
- 
 
 145 
  object ConvertToDIB: TButton
- 
 
 146 
    Left = 272
- 
 
 147 
    Top = 168
- 
 
 148 
    Width = 81
- 
 
 149 
    Height = 25
- 
 
 150 
    Caption = 'TDIB'
- 
 
 151 
    TabOrder = 6
- 
 
 152 
    OnClick = ConvertToDIBClick
- 
 
 153 
  end
- 
 
 154 
  object OpenDialog: TOpenPictureDialog
- 
 
 155 
    DefaultExt = 'bmp'
- 
 
 156 
    Filter = ' '
- 
 
 157 
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
- 
 
 158 
    Left = 104
- 
 
 159 
    Top = 168
- 
 
 160 
  end
- 
 
 161 
  object SaveDialog: TSavePictureDialog
- 
 
 162 
    DefaultExt = 'bmp'
- 
 
 163 
    Filter = ' '
- 
 
 164 
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist]
- 
 
 165 
    Left = 136
- 
 
 166 
    Top = 168
- 
 
 167 
  end
- 
 
 168 
  object PopupMenu1: TPopupMenu
- 
 
 169 
    OnPopup = PopupMenu1Popup
- 
 
 170 
    Left = 168
- 
 
 171 
    Top = 168
- 
 
 172 
    object geConvertColor: TMenuItem
- 
 
 173 
      Tag = 1
- 
 
 174 
      Caption = '&Convert color'
- 
 
 175 
      object N15: TMenuItem
- 
 
 176 
        Tag = 1
- 
 
 177 
        Caption = '2 color'
- 
 
 178 
        OnClick = geConvertColorClick
- 
 
 179 
      end
- 
 
 180 
      object N41: TMenuItem
- 
 
 181 
        Tag = 4
- 
 
 182 
        Caption = '16 color'
- 
 
 183 
        OnClick = geConvertColorClick
- 
 
 184 
      end
- 
 
 185 
      object N21: TMenuItem
- 
 
 186 
        Tag = 8
- 
 
 187 
        Caption = '256 color'
- 
 
 188 
        OnClick = geConvertColorClick
- 
 
 189 
      end
- 
 
 190 
      object N22: TMenuItem
- 
 
 191 
        Tag = 24
- 
 
 192 
        Caption = '24 bit color'
- 
 
 193 
        OnClick = geConvertColorClick
- 
 
 194 
      end
- 
 
 195 
    end
- 
 
 196 
    object geGreyscale: TMenuItem
- 
 
 197 
      Tag = 1
- 
 
 198 
      Caption = '&Greyscale'
- 
 
 199 
      object N11: TMenuItem
- 
 
 200 
        Tag = 1
- 
 
 201 
        Caption = '2 color'
- 
 
 202 
        OnClick = geGreyscaleClick
- 
 
 203 
      end
- 
 
 204 
      object N12: TMenuItem
- 
 
 205 
        Tag = 4
- 
 
 206 
        Caption = '16 color'
- 
 
 207 
        OnClick = geGreyscaleClick
- 
 
 208 
      end
- 
 
 209 
      object N13: TMenuItem
- 
 
 210 
        Tag = 8
- 
 
 211 
        Caption = '256 color'
- 
 
 212 
        OnClick = geGreyscaleClick
- 
 
 213 
      end
- 
 
 214 
      object N14: TMenuItem
- 
 
 215 
        Tag = 24
- 
 
 216 
        Caption = '24 bit color'
- 
 
 217 
        OnClick = geGreyscaleClick
- 
 
 218 
      end
- 
 
 219 
    end
- 
 
 220 
    object geNegative: TMenuItem
- 
 
 221 
      Tag = 1
- 
 
 222 
      Caption = '&Negative'
- 
 
 223 
      OnClick = geNegativeClick
- 
 
 224 
    end
- 
 
 225 
    object N1: TMenuItem
- 
 
 226 
      Caption = '-'
- 
 
 227 
    end
- 
 
 228 
    object geCompress: TMenuItem
- 
 
 229 
      Tag = 1
- 
 
 230 
      Caption = '&Compress'
- 
 
 231 
      OnClick = geCompressClick
- 
 
 232 
    end
- 
 
 233 
    object geDecompress: TMenuItem
- 
 
 234 
      Tag = 1
- 
 
 235 
      Caption = '&Decompress'
- 
 
 236 
      OnClick = geDecompressClick
- 
 
 237 
    end
- 
 
 238 
    object N3: TMenuItem
- 
 
 239 
      Caption = '-'
- 
 
 240 
    end
- 
 
 241 
    object geCopy: TMenuItem
- 
 
 242 
      Tag = 1
- 
 
 243 
      Caption = '&Copy'
- 
 
 244 
      ShortCut = 16451
- 
 
 245 
      OnClick = geCopyClick
- 
 
 246 
    end
- 
 
 247 
    object gePaste: TMenuItem
- 
 
 248 
      Caption = '&Paste'
- 
 
 249 
      ShortCut = 16470
- 
 
 250 
      OnClick = gePasteClick
- 
 
 251 
    end
- 
 
 252 
  end
- 
 
 253 
end