popspr/uPopSpr.dfm at master · OpenPop/popspr · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
object PopSprExt: TPopSprExt
  Left = 192
  Top = 114
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Pop Sprite Extractor'
  ClientHeight = 226
  ClientWidth = 217
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object txtPal: TLabel
    Left = 8
    Top = 8
    Width = 89
    Height = 13
    Caption = 'Palette: not loaded'
  end
  object txtSpr: TLabel
    Left = 8
    Top = 24
    Width = 83
    Height = 13
    Caption = 'Sprite: not loaded'
  end
  object txtFrames: TLabel
    Left = 8
    Top = 40
    Width = 46
    Height = 13
    Caption = 'Frames: 0'
  end
  object txtALACN: TLabel
    Left = 160
    Top = 208
    Width = 49
    Height = 13
    Caption = 'by ALACN'
  end
  object btnLoadPal: TButton
    Left = 8
    Top = 56
    Width = 75
    Height = 25
    Caption = 'Load Palette'
    TabOrder = 0
    OnClick = load_pal
  end
  object btnLoadSpr: TButton
    Left = 8
    Top = 88
    Width = 75
    Height = 25
    Caption = 'Load Sprite'
    TabOrder = 1
    OnClick = load_spr
  end
  object btnExtract: TButton
    Left = 8
    Top = 120
    Width = 75
    Height = 25
    Caption = 'Extract'
    TabOrder = 2
    OnClick = extract
  end
  object progress: TProgressBar
    Left = 8
    Top = 184
    Width = 201
    Height = 17
    Min = 0
    Max = 100
    TabOrder = 3
  end
  object btnCancel: TButton
    Left = 8
    Top = 152
    Width = 75
    Height = 25
    Caption = 'Cancel'
    TabOrder = 4
    OnClick = btnCancelClick
  end
  object pnlImg: TPanel
    Left = 88
    Top = 56
    Width = 121
    Height = 121
    BevelOuter = bvLowered
    TabOrder = 5
    object img: TImage
      Left = 0
      Top = 0
      Width = 65
      Height = 65
    end
  end
end