File: mainunit.lfm

package info (click to toggle)
lazarus 0.9.28.2-12
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 93,096 kB
  • ctags: 89,312
  • sloc: pascal: 820,189; xml: 202,194; makefile: 110,323; sh: 2,460; perl: 395; sql: 174; ansic: 133
file content (115 lines) | stat: -rw-r--r-- 2,825 bytes parent folder | download | duplicates (2)
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
object StreamDemoForm: TStreamDemoForm
  Caption = 'Streaming components example'
  ClientHeight = 485
  ClientWidth = 525
  OnCreate = FormCreate
  PixelsPerInch = 112
  HorzScrollBar.Page = 524
  VertScrollBar.Page = 484
  Left = 292
  Height = 485
  Top = 168
  Width = 525
  object Note1Label: TLabel
    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
    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
      TabOrder = 0
      Left = 23
      Height = 43
      Top = 15
      Width = 128
    end
  end
  object DestinationGroupBox: TGroupBox
    Anchors = [akLeft, akBottom]
    Caption = 'Destination'
    ClientHeight = 92
    ClientWidth = 211
    TabOrder = 1
    Left = 30
    Height = 109
    Top = 360
    Width = 215
  end
  object WriteToStreamButton: TButton
    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
    Anchors = [akTop, akLeft, akRight, akBottom]
    Caption = 'Stream (special characters are shown as hexnumbers)'
    ClientHeight = 115
    ClientWidth = 492
    TabOrder = 3
    Left = 15
    Height = 132
    Top = 170
    Width = 496
    object StreamMemo: TMemo
      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
      Align = alBottom
      Caption = 'Show sream in LFM format (text)'
      OnChange = StreamAsLFMCheckBoxChange
      TabOrder = 1
      Height = 20
      Top = 95
      Width = 492
    end
  end
  object ReadStreamButton: TButton
    Anchors = [akLeft, akBottom]
    BorderSpacing.InnerBorder = 4
    Caption = '2. Create component from stream'
    OnClick = ReadStreamButtonClick
    TabOrder = 4
    Left = 25
    Height = 24
    Top = 316
    Width = 215
  end
end