diff --git a/examples/widestringstreaming/mainunit.lfm b/examples/widestringstreaming/mainunit.lfm index 55561fffd2..d32d710bbd 100644 --- a/examples/widestringstreaming/mainunit.lfm +++ b/examples/widestringstreaming/mainunit.lfm @@ -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 + Caption = 'Source' + ClientHeight = 69 + ClientWidth = 187 + TabOrder = 0 object AGroupBox: TGroupBox - Caption = 'AGroupBox' - ClientHeight = 26 - ClientWidth = 124 - TabOrder = 0 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 diff --git a/examples/widestringstreaming/mainunit.lrs b/examples/widestringstreaming/mainunit.lrs index 60926f2fde..ec96e6c6c6 100644 --- a/examples/widestringstreaming/mainunit.lrs +++ b/examples/widestringstreaming/mainunit.lrs @@ -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 ]);