mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-08 02:58:10 +02:00
104 lines
2.0 KiB
Plaintext
104 lines
2.0 KiB
Plaintext
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
|