mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-29 09:22:44 +02:00
examplaes nicer layout
git-svn-id: trunk@31437 -
This commit is contained in:
mattias
parent
5acb5bda6c
commit
65e81b030b
@ -1,115 +1,129 @@
|
||||
object StreamDemoForm: TStreamDemoForm
|
||||
Caption = 'Streaming components example'
|
||||
ClientHeight = 485
|
||||
ClientWidth = 525
|
||||
OnCreate = FormCreate
|
||||
PixelsPerInch = 112
|
||||
Left = 292
|
||||
Height = 503
|
||||
Top = 168
|
||||
Width = 601
|
||||
HorzScrollBar.Page = 524
|
||||
VertScrollBar.Page = 484
|
||||
Left = 292
|
||||
Height = 485
|
||||
Top = 168
|
||||
Width = 525
|
||||
Caption = 'Streaming components example'
|
||||
ClientHeight = 503
|
||||
ClientWidth = 601
|
||||
OnCreate = FormCreate
|
||||
LCLVersion = '0.9.31'
|
||||
object Note1Label: TLabel
|
||||
AnchorSideLeft.Control = SourceGroupBox
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 216
|
||||
Height = 35
|
||||
Top = 27
|
||||
Width = 379
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Right = 6
|
||||
Caption = 'This example demonstrates, how to stream a component to a stream in binary format ...'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
WordWrap = True
|
||||
Left = 253
|
||||
Height = 43
|
||||
Top = 27
|
||||
Width = 196
|
||||
end
|
||||
object Note2Label: TLabel
|
||||
AnchorSideLeft.Control = DestinationGroupBox
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = DestinationGroupBox
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 251
|
||||
Height = 103
|
||||
Top = 378
|
||||
Width = 344
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Right = 6
|
||||
Caption = '... and how to reconstruct the component from a stream. This technique can be used to save components to disk or to transfer them via network. Of course this also works for your own classes as long as they are descendants of TComponent.'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
WordWrap = True
|
||||
Left = 265
|
||||
Height = 103
|
||||
Top = 325
|
||||
Width = 228
|
||||
end
|
||||
object SourceGroupBox: TGroupBox
|
||||
Caption = 'Source'
|
||||
ClientHeight = 73
|
||||
ClientWidth = 191
|
||||
TabOrder = 0
|
||||
Left = 15
|
||||
Height = 90
|
||||
Top = 25
|
||||
Width = 195
|
||||
object AGroupBox: TGroupBox
|
||||
Caption = 'AGroupBox'
|
||||
ClientHeight = 26
|
||||
ClientWidth = 124
|
||||
Caption = 'Source'
|
||||
ClientHeight = 69
|
||||
ClientWidth = 187
|
||||
TabOrder = 0
|
||||
object AGroupBox: TGroupBox
|
||||
Left = 23
|
||||
Height = 43
|
||||
Top = 15
|
||||
Width = 128
|
||||
Caption = 'AGroupBox'
|
||||
TabOrder = 0
|
||||
end
|
||||
end
|
||||
object DestinationGroupBox: TGroupBox
|
||||
Anchors = [akLeft, akBottom]
|
||||
Caption = 'Destination'
|
||||
ClientHeight = 92
|
||||
ClientWidth = 211
|
||||
TabOrder = 1
|
||||
Left = 30
|
||||
Height = 109
|
||||
Top = 360
|
||||
Top = 378
|
||||
Width = 215
|
||||
Anchors = [akLeft, akBottom]
|
||||
Caption = 'Destination'
|
||||
TabOrder = 1
|
||||
end
|
||||
object WriteToStreamButton: TButton
|
||||
Left = 23
|
||||
Height = 35
|
||||
Top = 130
|
||||
Width = 229
|
||||
AutoSize = True
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Caption = '1. Write AGroupBox to stream'
|
||||
OnClick = WriteToStreamButtonClick
|
||||
TabOrder = 2
|
||||
Left = 23
|
||||
Height = 25
|
||||
Top = 130
|
||||
Width = 197
|
||||
end
|
||||
object StreamGroupBox: TGroupBox
|
||||
Left = 15
|
||||
Height = 150
|
||||
Top = 170
|
||||
Width = 572
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
Caption = 'Stream (special characters are shown as hexnumbers)'
|
||||
ClientHeight = 115
|
||||
ClientWidth = 492
|
||||
ClientHeight = 129
|
||||
ClientWidth = 564
|
||||
TabOrder = 3
|
||||
Left = 15
|
||||
Height = 132
|
||||
Top = 170
|
||||
Width = 496
|
||||
object StreamMemo: TMemo
|
||||
Left = 0
|
||||
Height = 107
|
||||
Top = 0
|
||||
Width = 564
|
||||
Align = alClient
|
||||
Lines.Strings = (
|
||||
'First click on the button above, then on button below'
|
||||
)
|
||||
ReadOnly = True
|
||||
TabOrder = 0
|
||||
Height = 95
|
||||
Width = 492
|
||||
end
|
||||
object StreamAsLFMCheckBox: TCheckBox
|
||||
Left = 0
|
||||
Height = 22
|
||||
Top = 107
|
||||
Width = 564
|
||||
Align = alBottom
|
||||
Caption = 'Show sream in LFM format (text)'
|
||||
OnChange = StreamAsLFMCheckBoxChange
|
||||
TabOrder = 1
|
||||
Height = 20
|
||||
Top = 95
|
||||
Width = 492
|
||||
end
|
||||
end
|
||||
object ReadStreamButton: TButton
|
||||
Left = 25
|
||||
Height = 35
|
||||
Top = 323
|
||||
Width = 254
|
||||
Anchors = [akLeft, akBottom]
|
||||
AutoSize = True
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Caption = '2. Create component from stream'
|
||||
OnClick = ReadStreamButtonClick
|
||||
TabOrder = 4
|
||||
Left = 25
|
||||
Height = 24
|
||||
Top = 316
|
||||
Width = 215
|
||||
end
|
||||
end
|
||||
|
||||
@ -1,39 +1,48 @@
|
||||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TStreamDemoForm','FORMDATA',[
|
||||
'TPF0'#15'TStreamDemoForm'#14'StreamDemoForm'#7'Caption'#6#28'Streaming compo'
|
||||
+'nents example'#12'ClientHeight'#3#229#1#11'ClientWidth'#3#13#2#8'OnCreate'#7
|
||||
+#10'FormCreate'#13'PixelsPerInch'#2'p'#18'HorzScrollBar.Page'#3#12#2#18'Vert'
|
||||
+'ScrollBar.Page'#3#228#1#4'Left'#3'$'#1#6'Height'#3#229#1#3'Top'#3#168#0#5'W'
|
||||
+'idth'#3#13#2#0#6'TLabel'#10'Note1Label'#7'Caption'#6'UThis example demonstr'
|
||||
+'ates, how to stream a component to a stream in binary format ...'#5'Color'#7
|
||||
+#6'clNone'#11'ParentColor'#8#8'WordWrap'#9#4'Left'#3#253#0#6'Height'#2'+'#3
|
||||
+'Top'#2#27#5'Width'#3#196#0#0#0#6'TLabel'#10'Note2Label'#7'Caption'#6#236'..'
|
||||
+'. and how to reconstruct the component from a stream. This technique can be'
|
||||
+' used to save components to disk or to transfer them via network. Of course'
|
||||
+' this also works for your own classes as long as they are descendants of TC'
|
||||
+'omponent.'#5'Color'#7#6'clNone'#11'ParentColor'#8#8'WordWrap'#9#4'Left'#3#9
|
||||
+#1#6'Height'#2'g'#3'Top'#3'E'#1#5'Width'#3#228#0#0#0#9'TGroupBox'#14'SourceG'
|
||||
+'roupBox'#7'Caption'#6#6'Source'#12'ClientHeight'#2'I'#11'ClientWidth'#3#191
|
||||
+#0#8'TabOrder'#2#0#4'Left'#2#15#6'Height'#2'Z'#3'Top'#2#25#5'Width'#3#195#0#0
|
||||
+#9'TGroupBox'#9'AGroupBox'#7'Caption'#6#9'AGroupBox'#12'ClientHeight'#2#26#11
|
||||
+'ClientWidth'#2'|'#8'TabOrder'#2#0#4'Left'#2#23#6'Height'#2'+'#3'Top'#2#15#5
|
||||
+'Width'#3#128#0#0#0#0#9'TGroupBox'#19'DestinationGroupBox'#7'Anchors'#11#6'a'
|
||||
+'kLeft'#8'akBottom'#0#7'Caption'#6#11'Destination'#12'ClientHeight'#2'\'#11
|
||||
+'ClientWidth'#3#211#0#8'TabOrder'#2#1#4'Left'#2#30#6'Height'#2'm'#3'Top'#3'h'
|
||||
+#1#5'Width'#3#215#0#0#0#7'TButton'#19'WriteToStreamButton'#25'BorderSpacing.'
|
||||
+'InnerBorder'#2#4#7'Caption'#6#28'1. Write AGroupBox to stream'#7'OnClick'#7
|
||||
+#24'WriteToStreamButtonClick'#8'TabOrder'#2#2#4'Left'#2#23#6'Height'#2#25#3
|
||||
+'Top'#3#130#0#5'Width'#3#197#0#0#0#9'TGroupBox'#14'StreamGroupBox'#7'Anchors'
|
||||
+#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#7'Caption'#6'3Stream (specia'
|
||||
+'l characters are shown as hexnumbers)'#12'ClientHeight'#2's'#11'ClientWidth'
|
||||
+#3#236#1#8'TabOrder'#2#3#4'Left'#2#15#6'Height'#3#132#0#3'Top'#3#170#0#5'Wid'
|
||||
+'th'#3#240#1#0#5'TMemo'#10'StreamMemo'#5'Align'#7#8'alClient'#13'Lines.Strin'
|
||||
+'gs'#1#6'5First click on the button above, then on button below'#0#8'ReadOnl'
|
||||
+'y'#9#8'TabOrder'#2#0#6'Height'#2'_'#5'Width'#3#236#1#0#0#9'TCheckBox'#19'St'
|
||||
+'reamAsLFMCheckBox'#5'Align'#7#8'alBottom'#7'Caption'#6#31'Show sream in LFM'
|
||||
+' format (text)'#8'OnChange'#7#25'StreamAsLFMCheckBoxChange'#8'TabOrder'#2#1
|
||||
+#6'Height'#2#20#3'Top'#2'_'#5'Width'#3#236#1#0#0#0#7'TButton'#16'ReadStreamB'
|
||||
+'utton'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#25'BorderSpacing.InnerBorder'#2
|
||||
+#4#7'Caption'#6#31'2. Create component from stream'#7'OnClick'#7#21'ReadStre'
|
||||
+'amButtonClick'#8'TabOrder'#2#4#4'Left'#2#25#6'Height'#2#24#3'Top'#3'<'#1#5
|
||||
+'Width'#3#215#0#0#0#0
|
||||
'TPF0'#15'TStreamDemoForm'#14'StreamDemoForm'#4'Left'#3'$'#1#6'Height'#3#247#1
|
||||
+#3'Top'#3#168#0#5'Width'#3'Y'#2#18'HorzScrollBar.Page'#3#12#2#18'VertScrollB'
|
||||
+'ar.Page'#3#228#1#7'Caption'#6#28'Streaming components example'#12'ClientHei'
|
||||
+'ght'#3#247#1#11'ClientWidth'#3'Y'#2#8'OnCreate'#7#10'FormCreate'#10'LCLVers'
|
||||
+'ion'#6#6'0.9.31'#0#6'TLabel'#10'Note1Label'#22'AnchorSideLeft.Control'#7#14
|
||||
+'SourceGroupBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#23'AnchorSideRight.C'
|
||||
+'ontrol'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#216#0#6
|
||||
+'Height'#2'#'#3'Top'#2#27#5'Width'#3'{'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7
|
||||
+'akRight'#0#18'BorderSpacing.Left'#2#6#19'BorderSpacing.Right'#2#6#7'Caption'
|
||||
+#6'UThis example demonstrates, how to stream a component to a stream in bina'
|
||||
+'ry format ...'#11'ParentColor'#8#8'WordWrap'#9#0#0#6'TLabel'#10'Note2Label'
|
||||
+#22'AnchorSideLeft.Control'#7#19'DestinationGroupBox'#19'AnchorSideLeft.Side'
|
||||
+#7#9'asrBottom'#21'AnchorSideTop.Control'#7#19'DestinationGroupBox'#23'Ancho'
|
||||
+'rSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Le'
|
||||
+'ft'#3#251#0#6'Height'#2'g'#3'Top'#3'z'#1#5'Width'#3'X'#1#7'Anchors'#11#5'ak'
|
||||
+'Top'#6'akLeft'#7'akRight'#0#18'BorderSpacing.Left'#2#6#19'BorderSpacing.Rig'
|
||||
+'ht'#2#6#7'Caption'#6#236'... and how to reconstruct the component from a st'
|
||||
+'ream. This technique can be used to save components to disk or to transfer '
|
||||
+'them via network. Of course this also works for your own classes as long as'
|
||||
+' they are descendants of TComponent.'#11'ParentColor'#8#8'WordWrap'#9#0#0#9
|
||||
+'TGroupBox'#14'SourceGroupBox'#4'Left'#2#15#6'Height'#2'Z'#3'Top'#2#25#5'Wid'
|
||||
+'th'#3#195#0#7'Caption'#6#6'Source'#12'ClientHeight'#2'E'#11'ClientWidth'#3
|
||||
+#187#0#8'TabOrder'#2#0#0#9'TGroupBox'#9'AGroupBox'#4'Left'#2#23#6'Height'#2
|
||||
+'+'#3'Top'#2#15#5'Width'#3#128#0#7'Caption'#6#9'AGroupBox'#8'TabOrder'#2#0#0
|
||||
+#0#0#9'TGroupBox'#19'DestinationGroupBox'#4'Left'#2#30#6'Height'#2'm'#3'Top'
|
||||
+#3'z'#1#5'Width'#3#215#0#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Caption'#6
|
||||
+#11'Destination'#8'TabOrder'#2#1#0#0#7'TButton'#19'WriteToStreamButton'#4'Le'
|
||||
+'ft'#2#23#6'Height'#2'#'#3'Top'#3#130#0#5'Width'#3#229#0#8'AutoSize'#9#25'Bo'
|
||||
+'rderSpacing.InnerBorder'#2#4#7'Caption'#6#28'1. Write AGroupBox to stream'#7
|
||||
+'OnClick'#7#24'WriteToStreamButtonClick'#8'TabOrder'#2#2#0#0#9'TGroupBox'#14
|
||||
+'StreamGroupBox'#4'Left'#2#15#6'Height'#3#150#0#3'Top'#3#170#0#5'Width'#3'<'
|
||||
+#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#7'Caption'#6'3S'
|
||||
+'tream (special characters are shown as hexnumbers)'#12'ClientHeight'#3#129#0
|
||||
+#11'ClientWidth'#3'4'#2#8'TabOrder'#2#3#0#5'TMemo'#10'StreamMemo'#4'Left'#2#0
|
||||
+#6'Height'#2'k'#3'Top'#2#0#5'Width'#3'4'#2#5'Align'#7#8'alClient'#13'Lines.S'
|
||||
+'trings'#1#6'5First click on the button above, then on button below'#0#8'Rea'
|
||||
+'dOnly'#9#8'TabOrder'#2#0#0#0#9'TCheckBox'#19'StreamAsLFMCheckBox'#4'Left'#2
|
||||
+#0#6'Height'#2#22#3'Top'#2'k'#5'Width'#3'4'#2#5'Align'#7#8'alBottom'#7'Capti'
|
||||
+'on'#6#31'Show sream in LFM format (text)'#8'OnChange'#7#25'StreamAsLFMCheck'
|
||||
+'BoxChange'#8'TabOrder'#2#1#0#0#0#7'TButton'#16'ReadStreamButton'#4'Left'#2
|
||||
+#25#6'Height'#2'#'#3'Top'#3'C'#1#5'Width'#3#254#0#7'Anchors'#11#6'akLeft'#8
|
||||
+'akBottom'#0#8'AutoSize'#9#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#31
|
||||
+'2. Create component from stream'#7'OnClick'#7#21'ReadStreamButtonClick'#8'T'
|
||||
+'abOrder'#2#4#0#0#0
|
||||
]);
|
||||
|
||||
Loading…
Reference in New Issue
Block a user