📄 observersprites.dfm
字号:
object jdevSprites: TjdevSprites
Left = 266
Top = 143
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'Sprite Viewer'
ClientHeight = 275
ClientWidth = 288
Color = clBtnFace
DragKind = dkDock
DragMode = dmAutomatic
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poDefaultPosOnly
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 13
object llSpriteInFocus: TLabel
Left = 8
Top = 11
Width = 40
Height = 13
Caption = 'Viewing:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lOccupied: TLabel
Left = 8
Top = 72
Width = 49
Height = 13
Caption = 'Occupied:'
end
object occupied: TPaintBox
Left = 46
Top = 96
Width = 16
Height = 128
end
object scrollbar: TTrackBar
Left = 12
Top = 86
Width = 33
Height = 148
Max = 127
Orientation = trVertical
PageSize = 4
Frequency = 8
Position = 0
SelEnd = 0
SelStart = 0
TabOrder = 5
TickMarks = tmBottomRight
TickStyle = tsAuto
OnChange = scrollbarChange
end
object spriteOpen: TEdit
Left = 16
Top = 32
Width = 33
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
Text = '0'
OnChange = SelectNewSprite
end
object spriteOpenSpinner: TUpDown
Left = 49
Top = 32
Width = 15
Height = 21
Associate = spriteOpen
Min = 0
Max = 127
Position = 0
TabOrder = 1
Wrap = False
end
object gSpriteParams: TGroupBox
Left = 72
Top = 8
Width = 209
Height = 233
Caption = ' Properties '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
object bSpritePreviewBevel: TBevel
Left = 127
Top = 120
Width = 66
Height = 66
end
object spriteHeight: TLabel
Left = 60
Top = 64
Width = 18
Height = 13
Caption = '000'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object spriteWidth: TLabel
Left = 60
Top = 48
Width = 18
Height = 13
Caption = '000'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object llSpriteWidth: TLabel
Left = 8
Top = 48
Width = 48
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = 'Width:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object llSpriteHeight: TLabel
Left = 8
Top = 64
Width = 48
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = 'Height:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object llSpriteX: TLabel
Left = 8
Top = 16
Width = 48
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = 'Left:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object spriteXPos: TLabel
Left = 60
Top = 16
Width = 18
Height = 13
Caption = '000'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object spriteYPos: TLabel
Left = 60
Top = 32
Width = 18
Height = 13
Caption = '000'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object llSpriteY: TLabel
Left = 8
Top = 32
Width = 48
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = 'Top:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object spritePreview: TImage
Left = 128
Top = 121
Width = 64
Height = 64
end
object lSpritePriority: TLabel
Left = 8
Top = 96
Width = 48
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = 'Priority:'
end
object llSpriteName: TLabel
Left = 8
Top = 80
Width = 48
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = 'Name:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object spriteName: TLabel
Left = 60
Top = 80
Width = 24
Height = 13
Caption = '$000'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object spritePriority: TLabel
Left = 60
Top = 96
Width = 6
Height = 13
Caption = '2'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object spritePal: TLabel
Left = 60
Top = 112
Width = 23
Height = 13
Caption = '1/16'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object llSpritePalette: TLabel
Left = 8
Top = 112
Width = 48
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = 'Palette:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object spriteVdy: TLabel
Left = 60
Top = 208
Width = 64
Height = 13
AutoSize = False
Caption = '0.0'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lSpriteDmy: TLabel
Left = 8
Top = 208
Width = 48
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = 'vdy:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lSpriteDmx: TLabel
Left = 8
Top = 192
Width = 48
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = 'vdx:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object spriteVdx: TLabel
Left = 60
Top = 192
Width = 64
Height = 13
AutoSize = False
Caption = '0.0'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lSpriteDy: TLabel
Left = 8
Top = 176
Width = 48
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = 'hdy:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object spriteHdy: TLabel
Left = 60
Top = 176
Width = 64
Height = 13
AutoSize = False
Caption = '0.0'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lSpriteDx: TLabel
Left = 8
Top = 160
Width = 48
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = 'hdx:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object spriteHdx: TLabel
Left = 60
Top = 160
Width = 64
Height = 13
AutoSize = False
Caption = '0.0'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lSpriteMatrix: TLabel
Left = 8
Top = 144
Width = 48
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = 'Matrix:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object spriteMatrixSet: TLabel
Left = 60
Top = 144
Width = 64
Height = 13
AutoSize = False
Caption = '#1'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lSpriteMode: TLabel
Left = 8
Top = 128
Width = 48
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = 'Mode:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object spriteMode: TLabel
Left = 60
Top = 128
Width = 64
Height = 13
AutoSize = False
Caption = 'Rot/Scale'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lSpritePreview: TLabel
Left = 120
Top = 104
Width = 41
Height = 13
Caption = 'Preview:'
end
object spriteApplyBlending: TCheckBox
Left = 120
Top = 48
Width = 80
Height = 17
Caption = 'Blending'
TabOrder = 0
end
object spriteApplyMosiac: TCheckBox
Left = 120
Top = 64
Width = 80
Height = 17
Caption = 'Mosaic'
TabOrder = 1
end
object spriteFlipY: TCheckBox
Left = 120
Top = 32
Width = 80
Height = 17
Caption = 'Flip Y'
TabOrder = 2
end
object spriteFlipX: TCheckBox
Left = 120
Top = 16
Width = 80
Height = 17
Caption = 'Flip X'
TabOrder = 3
end
object spriteDoubleSized: TCheckBox
Left = 120
Top = 80
Width = 80
Height = 17
Caption = 'Double Size'
TabOrder = 4
end
end
object bSaveToFile: TButton
Left = 72
Top = 248
Width = 101
Height = 21
Caption = 'Save to file...'
TabOrder = 3
OnClick = SaveSprite
end
object bCopyToClipboard: TButton
Left = 180
Top = 248
Width = 101
Height = 21
Caption = 'Copy to clipboard'
TabOrder = 4
OnClick = CopySprite
end
object bHelp: TButton
Left = 8
Top = 248
Width = 57
Height = 21
Caption = 'Help'
TabOrder = 6
OnClick = ShowHelp
end
object saveDialog: TSaveDialog
DefaultExt = 'bmp'
Filter = 'Bitmaps|*.bmp|All Files|*.*'
Left = 176
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -