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
|
object Form1: TForm1
Left = 236
Height = 413
Hint = 'Click Checkboxes to select the redraw'#10'events, then resize the form.'
Top = 162
Width = 572
Caption = 'Image Resize Demo'
ClientHeight = 413
ClientWidth = 572
OnClose = FormClose
OnCreate = FormCreate
OnResize = FormResize
ShowHint = True
LCLVersion = '1.9.0.0'
object Pnl1: TPanel
Left = 0
Height = 63
Top = 350
Width = 572
Align = alBottom
ClientHeight = 63
ClientWidth = 572
TabOrder = 0
object CheckBoxImage: TCheckBox
Left = 168
Height = 19
Top = 0
Width = 144
Caption = 'Redraw on Image resize'
TabOrder = 0
end
object CheckBoxPanel: TCheckBox
Left = 168
Height = 19
Top = 16
Width = 140
Caption = 'Redraw on Panel resize'
TabOrder = 1
end
object CheckBoxForm: TCheckBox
Left = 168
Height = 19
Top = 32
Width = 139
Caption = 'Redraw on Form resize'
TabOrder = 2
end
object Button1: TButton
Left = 32
Height = 25
Hint = 'Clear Memo text'
Top = 16
Width = 96
Caption = 'Clear Memo'
OnClick = Button1Click
TabOrder = 3
end
end
object Pnl2: TPanel
Left = 0
Height = 350
Top = 0
Width = 160
Align = alLeft
Caption = 'Pnl2'
ClientHeight = 350
ClientWidth = 160
TabOrder = 1
object Memo1: TMemo
Left = 1
Height = 348
Hint = 'Displays event order. '#10'Clears every 200 lines.'
Top = 1
Width = 158
Align = alClient
Lines.Strings = (
'Memo1'
)
ScrollBars = ssAutoBoth
TabOrder = 0
end
end
object PnlImage: TPanel
Left = 160
Height = 350
Top = 0
Width = 412
Align = alClient
Caption = 'PnlImage'
ClientHeight = 350
ClientWidth = 412
TabOrder = 2
OnResize = PnlImageResize
object Image1: TImage
Left = 1
Height = 348
Top = 1
Width = 410
Align = alClient
OnResize = Image1Resize
end
end
end
|
