home *** CD-ROM | disk | FTP | other *** search
- object FormLayerProp: TFormLayerProp
- Left = 300
- Top = 135
- BorderStyle = bsDialog
- Caption = 'Properties'
- ClientHeight = 328
- ClientWidth = 586
- Color = clBtnFace
- ParentFont = True
- OldCreateOrder = False
- Position = poDesktopCenter
- Scaled = False
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 12
- object Bevel1: TBevel
- Left = 8
- Top = 8
- Width = 249
- Height = 165
- Shape = bsFrame
- end
- object LabelName: TLabel
- Left = 20
- Top = 24
- Width = 31
- Height = 12
- Caption = '&Name:'
- FocusControl = EditName
- end
- object LabelTrans: TLabel
- Left = 20
- Top = 56
- Width = 63
- Height = 12
- Caption = 'Transparent:'
- FocusControl = CheckTrans
- end
- object LabelAlpha: TLabel
- Left = 20
- Top = 120
- Width = 64
- Height = 12
- Caption = '&Alpha Blend:'
- FocusControl = EditAlpha
- end
- object ShapeTrans: TShape
- Left = 96
- Top = 80
- Width = 61
- Height = 21
- Cursor = crHandPoint
- OnMouseDown = ShapeTransMouseDown
- end
- object btnPick: TToolbarButton97
- Left = 160
- Top = 80
- Width = 23
- Height = 22
- AllowAllUp = True
- GroupIndex = 1
- DisplayMode = dmGlyphOnly
- DropdownAlways = True
- DropdownArrow = False
- Flat = False
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000000000000000000000000
- BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDEEE
- DDDDDDDDEEEDEEEEEDEDDDDE0DDDDDDDDDDDDDD0E00DDDDDDDDDDDDD0EE0DDDD
- DDDDDDDD0EE70DDDDDDDDDDDD07770DDDDDDDDDDDD07770D0DDDDDDDDDD07770
- 0DDDDDDDDDDD07110DDDDDDDDDDDD09910DDDDDDDDDD0009910DDDDDDDDDDDD0
- 910DDDDDDDDDDDDD000DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD}
- ShowBorderWhenInactive = True
- OnClick = btnPickClick
- end
- object EditName: TEdit
- Left = 96
- Top = 20
- Width = 145
- Height = 20
- TabOrder = 0
- Text = 'EditName'
- end
- object Button1: TButton
- Left = 100
- Top = 180
- Width = 75
- Height = 25
- Caption = 'OK'
- Default = True
- ModalResult = 1
- TabOrder = 4
- end
- object btnCancel: TButton
- Left = 180
- Top = 180
- Width = 75
- Height = 25
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 5
- end
- object EditAlpha: TEdit
- Left = 96
- Top = 140
- Width = 53
- Height = 20
- TabOrder = 2
- Text = '0'
- OnChange = EditAlphaChange
- end
- object UpDownAlpha: TUpDown
- Left = 149
- Top = 140
- Width = 15
- Height = 20
- Associate = EditAlpha
- Min = 0
- Max = 255
- Position = 0
- TabOrder = 3
- Wrap = False
- end
- object CheckTrans: TCheckBox
- Left = 96
- Top = 56
- Width = 97
- Height = 17
- Caption = '&Enabled'
- TabOrder = 1
- OnClick = CheckTransClick
- end
- object TrackAlpha: TTrackBar
- Left = 92
- Top = 116
- Width = 150
- Height = 17
- Max = 255
- Orientation = trHorizontal
- Frequency = 16
- Position = 0
- SelEnd = 0
- SelStart = 0
- TabOrder = 6
- ThumbLength = 10
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = TrackAlphaChange
- end
- object PopupPanel: TPopupPanel
- Left = 272
- Top = 8
- Width = 301
- Height = 301
- BevelOuter = bvNone
- Font.Charset = SHIFTJIS_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = '�l�r �o�S�V�b�N'
- Font.Style = []
- FullRepaint = False
- ShowHint = False
- OnEnter = PopupPanelEnter
- OnExit = PopupPanelExit
- object ScrollBox: TScrollBox
- Left = 0
- Top = 0
- Width = 301
- Height = 260
- HorzScrollBar.Tracking = True
- VertScrollBar.Tracking = True
- Align = alClient
- TabOrder = 0
- OnMouseDown = ScrollBoxMouseDown
- object PaintBox: TDXPaintBox
- Left = 0
- Top = 0
- Width = 105
- Height = 105
- Cursor = 12
- AutoStretch = True
- Center = False
- KeepAspect = False
- Stretch = False
- ViewWidth = 0
- ViewHeight = 0
- OnMouseDown = PaintBoxMouseDown
- OnMouseMove = PaintBoxMouseMove
- end
- end
- object Panel1: TPanel
- Left = 0
- Top = 260
- Width = 301
- Height = 41
- Align = alBottom
- TabOrder = 1
- object Shape: TShape
- Left = 228
- Top = 12
- Width = 65
- Height = 21
- end
- object Label1: TLabel
- Left = 12
- Top = 16
- Width = 30
- Height = 12
- Caption = 'Zoom:'
- end
- object ComboZoom: TComboBox
- Left = 80
- Top = 12
- Width = 77
- Height = 20
- Style = csDropDownList
- ItemHeight = 12
- TabOrder = 0
- OnClick = ComboZoomClick
- Items.Strings = (
- 'x1'
- 'x2'
- 'x4'
- 'x8'
- 'x16')
- end
- end
- end
- object ColorDialog: TColorDialog
- Ctl3D = True
- Left = 204
- Top = 72
- end
- end
-