mini_projects/miniprojects/PNG_Editor/unit1.lfm at main · PascalCorpsman/mini_projects · 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
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
object Form1: TForm1
  Left = 347
  Height = 444
  Top = 107
  Width = 710
  AllowDropFiles = True
  Caption = 'Form1'
  ClientHeight = 444
  ClientWidth = 710
  Position = poScreenCenter
  LCLVersion = '3.99.0.0'
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDropFiles = FormDropFiles
  object Button1: TButton
    Left = 8
    Height = 25
    Top = 8
    Width = 520
    Caption = 'Load PNG'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Image1: TImage
    Left = 8
    Height = 256
    Top = 72
    Width = 256
  end
  object Image2: TImage
    Left = 272
    Height = 256
    Top = 72
    Width = 256
  end
  object Label1: TLabel
    Left = 544
    Height = 32
    Top = 184
    Width = 120
    Caption = 'Black = Transparent'#10'White = Opaque'
    ParentColor = False
  end
  object Button2: TButton
    Left = 8
    Height = 25
    Top = 40
    Width = 256
    Caption = 'Load Normal'
    TabOrder = 1
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 272
    Height = 25
    Top = 40
    Width = 256
    Caption = 'Load Alpha'
    TabOrder = 2
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 8
    Height = 25
    Top = 336
    Width = 256
    Caption = 'Save Normal'
    TabOrder = 3
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 272
    Height = 25
    Top = 336
    Width = 256
    Caption = 'Save Alpha'
    TabOrder = 4
    OnClick = Button5Click
  end
  object Button6: TButton
    Left = 8
    Height = 25
    Top = 368
    Width = 520
    Caption = 'Save PNG'
    TabOrder = 5
    OnClick = Button6Click
  end
  object Button7: TButton
    Left = 8
    Height = 25
    Top = 408
    Width = 520
    Caption = 'Close'
    TabOrder = 6
    OnClick = Button7Click
  end
  object Label2: TLabel
    Left = 536
    Height = 16
    Top = 72
    Width = 41
    Caption = 'Label2'
    ParentColor = False
  end
  object CheckBox1: TCheckBox
    Left = 536
    Height = 22
    Top = 48
    Width = 145
    Caption = 'binarise by clfuchsia'
    TabOrder = 7
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = '.png'
    Filter = 'PNG-File|*.png|All|*.*'
    Left = 656
    Top = 8
  end
  object OpenDialog2: TOpenDialog
    DefaultExt = '.bmp'
    Filter = 'Bitmap|*.bmp|All|*.*'
    Left = 656
    Top = 56
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = '.bmp'
    Filter = 'Bitmap|*.bmp|All|*.*'
    Left = 536
    Top = 328
  end
  object SaveDialog2: TSaveDialog
    DefaultExt = '.png'
    Filter = 'PNG-File|*.png|All|*.*'
    Left = 536
    Top = 368
  end
end