-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathToDoList_Unit1.dfm
154 lines (154 loc) · 3.9 KB
/
ToDoList_Unit1.dfm
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
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
object Form1: TForm1
Left = 0
Top = 0
Caption = 'ToDo List'
ClientHeight = 311
ClientWidth = 429
Color = clBtnFace
Constraints.MinHeight = 200
Constraints.MinWidth = 300
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
PopupMenu = PopupMenu1
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnDestroy = FormDestroy
OnKeyDown = CheckListBox1KeyDown
DesignSize = (
429
311)
PixelsPerInch = 96
TextHeight = 13
object AddItemButton: TButton
Left = 8
Top = 265
Width = 81
Height = 38
Anchors = [akLeft, akBottom]
Caption = #36861#21152
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -27
Font.Name = #12513#12452#12522#12458
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = AddItemButtonClick
OnKeyDown = CheckListBox1KeyDown
end
object DeleteButton: TButton
Left = 346
Top = 265
Width = 75
Height = 38
Anchors = [akRight, akBottom]
Caption = #21066#38500
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -27
Font.Name = #12513#12452#12522#12458
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = DeleteButtonClick
OnKeyDown = CheckListBox1KeyDown
end
object CheckListBox1: TCheckListBox
Left = 0
Top = 0
Width = 429
Height = 259
OnClickCheck = CheckListBox1ClickCheck
Align = alTop
Anchors = [akLeft, akTop, akRight, akBottom]
DragMode = dmAutomatic
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Tahoma'
Font.Style = []
ImeMode = imDisable
ItemHeight = 19
ParentFont = False
ParentShowHint = False
PopupMenu = PopupMenu1
ScrollWidth = 5
ShowHint = True
Style = lbOwnerDrawFixed
TabOrder = 1
OnDblClick = CheckListBox1DblClick
OnDragDrop = CheckListBox1DragDrop
OnDragOver = CheckListBox1DragOver
OnDrawItem = CheckListBox1DrawItem
OnKeyDown = CheckListBox1KeyDown
OnMouseEnter = CheckListBox1MouseEnter
end
object Memo1: TMemo
Left = 96
Top = 158
Width = 249
Height = 89
Anchors = [akLeft, akBottom]
Lines.Strings = (
'Debug '#34920#31034)
TabOrder = 3
OnKeyDown = CheckListBox1KeyDown
end
object ReplaceButton: TButton
Left = 95
Top = 265
Width = 81
Height = 38
Anchors = [akLeft, akBottom]
Caption = #20837#12428#26367#12360
Enabled = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #12513#12452#12522#12458
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = ReplaceButtonClick
OnKeyDown = CheckListBox1KeyDown
end
object PopupMenu1: TPopupMenu
Left = 200
Top = 272
object PopupPasteFromClipboardText: TMenuItem
Caption = #12463#12522#12483#12503#12508#12540#12489#12363#12425#36028#12426#20184#12369
ShortCut = 16464
OnClick = PasteFromClipboardText
end
object DeleteAllChecked: TMenuItem
Caption = #12377#12409#12390#12398#12481#12455#12483#12463#12434#22806#12377
OnClick = DeleteAllCheckedClick
end
object SwitchTaskTray: TMenuItem
Caption = #12479#12473#12463#12488#12524#12452#12395#26684#32013#12377#12427
OnClick = SwitchTaskTrayClick
end
object SaveListLog: TMenuItem
Caption = #29694#22312#12398#12522#12473#12488#12434#12486#12461#12473#12488#12395#20445#23384#12377#12427
ShortCut = 16467
OnClick = SaveListLogClick
end
object N1: TMenuItem
Caption = '-'
end
object Setting_N1: TMenuItem
Caption = #35373#23450#12454#12451#12531#12489#12454
OnClick = Setting_N1Click
end
end
object TrayIcon1: TTrayIcon
PopupMenu = PopupMenu1
OnClick = TrayIcon1Click
Left = 264
Top = 272
end
end