home *** CD-ROM | disk | FTP | other *** search
- object FormProp: TFormProp
- Left = 209
- Top = 143
- BorderStyle = bsDialog
- Caption = 'Properties'
- ClientHeight = 328
- ClientWidth = 713
- Color = clBtnFace
- ParentFont = True
- OldCreateOrder = False
- Position = poDesktopCenter
- Scaled = False
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 12
- object Bevel1: TBevel
- Left = 8
- Top = 8
- Width = 369
- Height = 157
- Shape = bsFrame
- end
- object LabelWd: TLabel
- Left = 24
- Top = 52
- Width = 30
- Height = 12
- Caption = 'Width:'
- end
- object LabelHt: TLabel
- Left = 24
- Top = 80
- Width = 35
- Height = 12
- Caption = 'Height:'
- end
- object LabelWidth: TLabel
- Left = 108
- Top = 52
- Width = 55
- Height = 12
- Caption = 'LabelWidth'
- end
- object LabelHeight: TLabel
- Left = 108
- Top = 80
- Width = 60
- Height = 12
- Caption = 'LabelHeight'
- end
- object LabelBpp: TLabel
- Left = 24
- Top = 108
- Width = 54
- Height = 12
- Caption = 'Bits/Pixel:'
- end
- object LabelBits: TLabel
- Left = 108
- Top = 108
- Width = 48
- Height = 12
- Caption = 'LabelBits'
- end
- object LabelPt: TLabel
- Left = 24
- Top = 24
- Width = 25
- Height = 12
- Caption = 'Path:'
- end
- object LabelFrm: TLabel
- Left = 24
- Top = 136
- Width = 36
- Height = 12
- Caption = 'Length:'
- end
- object LabelFrame: TLabel
- Left = 108
- Top = 136
- Width = 59
- Height = 12
- Caption = 'LabelFrame'
- end
- object LabelBG: TLabel
- Left = 8
- Top = 228
- Width = 93
- Height = 12
- Caption = 'Background Color:'
- end
- object ShapeBGCol: TShape
- Left = 124
- Top = 224
- Width = 65
- Height = 21
- Cursor = crHandPoint
- OnMouseDown = ShapeBGColMouseDown
- end
- object btnPick: TToolbarButton97
- Left = 192
- Top = 224
- 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 CheckSyncPal: TCheckBox
- Left = 8
- Top = 172
- Width = 197
- Height = 17
- Caption = 'Single Palette'
- TabOrder = 1
- end
- object Button1: TButton
- Left = 224
- Top = 264
- Width = 75
- Height = 25
- Caption = 'OK'
- Default = True
- ModalResult = 1
- TabOrder = 3
- end
- object btnCancel: TButton
- Left = 304
- Top = 264
- Width = 75
- Height = 25
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 4
- end
- object EditPath: TEdit
- Left = 108
- Top = 20
- Width = 257
- Height = 20
- ReadOnly = True
- TabOrder = 0
- Text = 'EditPath'
- end
- object CheckNoBG: TCheckBox
- Left = 8
- Top = 196
- Width = 305
- Height = 17
- Caption = 'Disable transparency of bottom layer'
- TabOrder = 2
- end
- object PopupPanel: TPopupPanel
- Left = 400
- 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
- end
-