forked from benibela/apim
-
Notifications
You must be signed in to change notification settings - Fork 0
/
windowList.lfm
169 lines (169 loc) · 4.62 KB
/
windowList.lfm
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
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
object WindowListFrm: TWindowListFrm
Left = 288
Height = 300
Top = 251
Width = 783
BorderStyle = bsSizeToolWin
Caption = 'Fensterliste'
ClientHeight = 300
ClientWidth = 783
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
LCLVersion = '1.8.0.2'
object Panel2: TPanel
Left = 0
Height = 33
Top = 0
Width = 783
Align = alTop
ClientHeight = 33
ClientWidth = 783
TabOrder = 0
object Label30: TLabel
AnchorSideTop.Side = asrCenter
AnchorSideBottom.Side = asrCenter
Left = 15
Height = 15
Top = 9
Width = 43
Anchors = [akLeft]
Caption = 'Filter:'
Font.Style = [fsBold]
Layout = tlCenter
ParentColor = False
ParentFont = False
end
object Label31: TLabel
AnchorSideLeft.Control = Label30
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label30
AnchorSideTop.Side = asrCenter
Left = 63
Height = 15
Top = 9
Width = 45
BorderSpacing.Left = 5
Caption = 'Parent:'
ParentColor = False
end
object Label32: TLabel
AnchorSideLeft.Control = windowsListfilterDirectChilds
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = windowsListfilterDirectChilds
AnchorSideTop.Side = asrCenter
Left = 346
Height = 15
Top = 9
Width = 72
BorderSpacing.Around = 5
Caption = 'Programm:'
ParentColor = False
end
object Label12: TLabel
AnchorSideLeft.Control = windowListFilterProgram_edt
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = windowListFilterProgram_edt
AnchorSideTop.Side = asrCenter
Left = 493
Height = 15
Top = 9
Width = 49
BorderSpacing.Around = 5
Caption = 'Thread:'
ParentColor = False
end
object windowListFilterParent_edt: TEdit
AnchorSideLeft.Control = Label31
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label31
AnchorSideTop.Side = asrCenter
Left = 113
Height = 25
Top = 4
Width = 65
BorderSpacing.Around = 5
Font.Color = clBlue
Font.Style = [fsUnderline]
OnChange = windowListFilterParent_edtChange
OnDblClick = windowListFilterParent_edtDblClick
OnKeyUp = windowListFilterParent_edtKeyUp
ParentFont = False
TabOrder = 0
Text = '0'
end
object windowListFilterProgram_edt: TEdit
AnchorSideLeft.Control = Label32
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label32
AnchorSideTop.Side = asrCenter
Left = 423
Height = 25
Top = 4
Width = 65
BorderSpacing.Around = 5
Font.Color = clBlue
Font.Style = [fsUnderline]
OnDblClick = windowListFilterProgram_edtDblClick
OnKeyUp = windowListFilterParent_edtKeyUp
ParentFont = False
TabOrder = 1
end
object windowsListfilterDirectChilds: TCheckBox
AnchorSideLeft.Control = windowListFilterParentUp
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = windowListFilterParent_edt
AnchorSideTop.Side = asrCenter
Left = 204
Height = 18
Top = 7
Width = 137
BorderSpacing.Around = 5
Caption = 'nur direkte Kinder'
Enabled = False
OnChange = windowsListfilterDirectChildsChange
TabOrder = 2
end
object windowListFilterParentUp: TButton
AnchorSideLeft.Control = windowListFilterParent_edt
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = windowListFilterParent_edt
AnchorSideTop.Side = asrCenter
Left = 183
Height = 19
Top = 7
Width = 16
BorderSpacing.Around = 5
Caption = '5'
Font.Name = 'Webdings'
OnClick = windowListFilterParentUpClick
ParentFont = False
TabOrder = 3
end
object windowListFilterThread: TEdit
AnchorSideLeft.Control = Label12
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label12
AnchorSideTop.Side = asrCenter
Left = 547
Height = 25
Top = 4
Width = 63
BorderSpacing.Around = 5
OnKeyUp = windowListFilterParent_edtKeyUp
TabOrder = 4
end
end
object PopupMenu1: TPopupMenu
Left = 200
Top = 198
object MenuItem1: TMenuItem
Caption = 'Nur Kindfenster'
OnClick = MenuItem1Click
end
object MenuItem2: TMenuItem
Caption = 'Nur dieses Programm'
OnClick = MenuItem2Click
end
end
end