Chip 2005 November/CDVD1105.ISO/Software/Freeware/programare/graphics32/Examples/Clx/ImgView_Layers_Ex/RGBALoaderUnit.xfm/RGBALoaderUnit.txt

Text File | 2004-07-14 | 4.6 KB | 232 lines

object RGBALoaderForm: TRGBALoaderForm
  Left = 208
  Top = 184
  Width = 412
  Height = 367
  VertScrollBar.Range = 349
  HorzScrollBar.Range = 387
  ActiveControl = Button1
  Caption = 'New Bitmap Layer with Alpha Channel'
  Color = clButton
  Font.Color = clText
  Font.Height = 11
  Font.Name = 'Tahoma'
  Font.Pitch = fpVariable
  Font.Style = []
  Font.Weight = 40
  ParentFont = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  TextWidth = 6
  object Bevel1: TBevel
    Left = 0
    Top = 0
    Width = 412
    Height = 2
    Align = alTop
    Shape = bsTopLine
  end
  object SpeedButton1: TSpeedButton
    Left = 148
    Top = 80
    Width = 21
    Height = 21
    Caption = '+'
    Flat = True
    Font.Color = clText
    Font.Height = 21
    Font.Name = 'MS Sans Serif'
    Font.Pitch = fpVariable
    Font.Style = []
    Font.Weight = 40
    Layout = blGlyphBottom
    ParentFont = False
    OnClick = SpeedButton1Click
  end
  object SpeedButton2: TSpeedButton
    Left = 170
    Top = 80
    Width = 21
    Height = 21
    Caption = '-'
    Flat = True
    Font.Color = clText
    Font.Height = 27
    Font.Name = 'MS Sans Serif'
    Font.Pitch = fpVariable
    Font.Style = []
    Font.Weight = 40
    Layout = blGlyphBottom
    ParentFont = False
    OnClick = SpeedButton2Click
  end
  object SpeedButton3: TSpeedButton
    Left = 340
    Top = 80
    Width = 21
    Height = 21
    Caption = '+'
    Flat = True
    Font.Color = clText
    Font.Height = 21
    Font.Name = 'MS Sans Serif'
    Font.Pitch = fpVariable
    Font.Style = []
    Font.Weight = 40
    Layout = blGlyphBottom
    ParentFont = False
    OnClick = SpeedButton3Click
  end
  object SpeedButton4: TSpeedButton
    Left = 362
    Top = 80
    Width = 21
    Height = 21
    Caption = '-'
    Flat = True
    Font.Color = clText
    Font.Height = 27
    Font.Name = 'MS Sans Serif'
    Font.Pitch = fpVariable
    Font.Style = []
    Font.Weight = 40
    Layout = blGlyphBottom
    ParentFont = False
    OnClick = SpeedButton4Click
  end
  object Label2: TLabel
    Left = 24
    Top = 83
    Width = 58
    Height = 13
    Caption = 'RGB Image:'
  end
  object Label3: TLabel
    Left = 216
    Top = 83
    Width = 65
    Height = 13
    Caption = 'Alpha Image:'
  end
  object Label4: TLabel
    Left = 24
    Top = 294
    Width = 324
    Height = 13
    Caption =
      'If the images have different sizes, the alpha image will be resc' +
      'aled.'
  end
  object Panel1: TPanel
    Left = 0
    Top = 2
    Width = 412
    Height = 55
    Align = alTop
    BevelOuter = bvNone
    Color = clBase
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 6
      Width = 386
      Height = 39
      Caption =
        'Load two images, one of them will be used to fill RGB components' +
        ' '#13#10'of the layer, another will be converted to a grayscale image ' +
        'and '#13#10'used as alpha channel'
      Font.Color = clText
      Font.Height = 11
      Font.Name = 'Verdana'
      Font.Pitch = fpVariable
      Font.Style = []
      Font.Weight = 40
      ParentFont = False
    end
  end
  object ImgRGB: TImgView32
    Left = 24
    Top = 112
    Width = 169
    Height = 169
    Color = clMid
    ParentColor = False
    Scale = 1.000000000000000000
    ScrollBars.Color = clDark
    ScrollBars.ShowHandleGrip = True
    ScrollBars.Style = rbsDefault
    SizeGrip = sgAuto
    TabOrder = 1
  end
  object Button1: TButton
    Left = 96
    Top = 80
    Width = 49
    Height = 21
    Caption = 'Load...'
    TabOrder = 2
    OnClick = Button1Click
  end
  object ImgAlpha: TImgView32
    Left = 216
    Top = 112
    Width = 169
    Height = 169
    Color = clMid
    ParentColor = False
    Scale = 1.000000000000000000
    ScrollBars.Color = clDark
    ScrollBars.ShowHandleGrip = True
    ScrollBars.Style = rbsDefault
    SizeGrip = sgAuto
    TabOrder = 3
  end
  object Button2: TButton
    Left = 288
    Top = 80
    Width = 49
    Height = 21
    Caption = 'Load...'
    TabOrder = 4
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 232
    Top = 328
    Width = 75
    Height = 21
    Caption = 'OK'
    Default = True
    ModalResult = 1
    TabOrder = 5
  end
  object Button4: TButton
    Left = 312
    Top = 328
    Width = 75
    Height = 21
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 6
  end
  object Button5: TButton
    Left = 24
    Top = 328
    Width = 75
    Height = 21
    Caption = 'Reset Scales'
    TabOrder = 7
    OnClick = Button5Click
  end
  object OpenPictureDialog: TOpenDialog
    FilterIndex = 0
    Height = 0
    Width = 0
    Left = 104
    Top = 328
  end
end