~ubuntu-branches/ubuntu/saucy/lazarus/saucy

« back to all changes in this revision

Viewing changes to examples/widestringstreaming/mainunit.lfm

  • Committer: Package Import Robot
  • Author(s): Paul Gevers, Abou Al Montacir, Bart Martens, Paul Gevers
  • Date: 2013-06-08 14:12:17 UTC
  • mfrom: (1.1.9)
  • Revision ID: package-import@ubuntu.com-20130608141217-7k0cy9id8ifcnutc
Tags: 1.0.8+dfsg-1
[ Abou Al Montacir ]
* New upstream major release and multiple maintenace release offering many
  fixes and new features marking a new milestone for the Lazarus development
  and its stability level.
  - The detailed list of changes can be found here:
    http://wiki.lazarus.freepascal.org/Lazarus_1.0_release_notes
    http://wiki.lazarus.freepascal.org/Lazarus_1.0_fixes_branch
* LCL changes:
  - LCL is now a normal package.
      + Platform independent parts of the LCL are now in the package LCLBase
      + LCL is automatically recompiled when switching the target platform,
        unless pre-compiled binaries for this target are already installed.
      + No impact on existing projects.
      + Linker options needed by LCL are no more added to projects that do
        not use the LCL package.
  - Minor changes in LCL basic classes behaviour
      + TCustomForm.Create raises an exception if a form resource is not
        found.
      + TNotebook and TPage: a new implementation of these classes was added.
      + TDBNavigator: It is now possible to have focusable buttons by setting
        Options = [navFocusableButtons] and TabStop = True, useful for
        accessibility and for devices with neither mouse nor touch screen.
      + Names of TControlBorderSpacing.GetSideSpace and GetSpace were swapped
        and are now consistent. GetSideSpace = Around + GetSpace.
      + TForm.WindowState=wsFullscreen was added
      + TCanvas.TextFitInfo was added to calculate how many characters will
        fit into a specified Width. Useful for word-wrapping calculations.
      + TControl.GetColorResolvingParent and
        TControl.GetRGBColorResolvingParent were added, simplifying the work
        to obtain the final color of the control while resolving clDefault
        and the ParentColor.
      + LCLIntf.GetTextExtentExPoint now has a good default implementation
        which works in any platform not providing a specific implementation.
        However, Widgetset specific implementation is better, when available.
      + TTabControl was reorganized. Now it has the correct class hierarchy
        and inherits from TCustomTabControl as it should.
  - New unit in the LCL:
      + lazdialogs.pas: adds non-native versions of various native dialogs,
        for example TLazOpenDialog, TLazSaveDialog, TLazSelectDirectoryDialog.
        It is used by widgetsets which either do not have a native dialog, or
        do not wish to use it because it is limited. These dialogs can also be
        used by user applications directly.
      + lazdeviceapis.pas: offers an interface to more hardware devices such
        as the accelerometer, GPS, etc. See LazDeviceAPIs
      + lazcanvas.pas: provides a TFPImageCanvas descendent implementing
        drawing in a LCL-compatible way, but 100% in Pascal.
      + lazregions.pas. LazRegions is a wholly Pascal implementation of
        regions for canvas clipping, event clipping, finding in which control
        of a region tree one an event should reach, for drawing polygons, etc.
      + customdrawncontrols.pas, customdrawndrawers.pas,
        customdrawn_common.pas, customdrawn_android.pas and
        customdrawn_winxp.pas: are the Lazarus Custom Drawn Controls -controls
        which imitate the standard LCL ones, but with the difference that they
        are non-native and support skinning.
  - New APIs added to the LCL to improve support of accessibility software
    such as screen readers.
* IDE changes:
  - Many improvments.
  - The detailed list of changes can be found here:
    http://wiki.lazarus.freepascal.org/New_IDE_features_since#v1.0_.282012-08-29.29
    http://wiki.lazarus.freepascal.org/Lazarus_1.0_release_notes#IDE_Changes
* Debugger / Editor changes:
  - Added pascal sources and breakpoints to the disassembler
  - Added threads dialog.
* Components changes:
  - TAChart: many fixes and new features
  - CodeTool: support Delphi style generics and new syntax extensions.
  - AggPas: removed to honor free licencing. (Closes: Bug#708695)
[Bart Martens]
* New debian/watch file fixing issues with upstream RC release.
[Abou Al Montacir]
* Avoid changing files in .pc hidden directory, these are used by quilt for
  internal purpose and could lead to surprises during build.
[Paul Gevers]
* Updated get-orig-source target and it compinion script orig-tar.sh so that they
  repack the source file, allowing bug 708695 to be fixed.

Show diffs side-by-side

added added

removed removed

Lines of Context:
1
1
object StreamDemoForm: TStreamDemoForm
 
2
  Left = 292
 
3
  Height = 503
 
4
  Top = 168
 
5
  Width = 601
 
6
  HorzScrollBar.Page = 524
 
7
  VertScrollBar.Page = 484
2
8
  Caption = 'Streaming components example'
3
 
  ClientHeight = 485
4
 
  ClientWidth = 525
 
9
  ClientHeight = 503
 
10
  ClientWidth = 601
5
11
  OnCreate = FormCreate
6
 
  PixelsPerInch = 112
7
 
  HorzScrollBar.Page = 524
8
 
  VertScrollBar.Page = 484
9
 
  Left = 292
10
 
  Height = 485
11
 
  Top = 168
12
 
  Width = 525
 
12
  LCLVersion = '0.9.31'
13
13
  object Note1Label: TLabel
 
14
    AnchorSideLeft.Control = SourceGroupBox
 
15
    AnchorSideLeft.Side = asrBottom
 
16
    AnchorSideRight.Control = Owner
 
17
    AnchorSideRight.Side = asrBottom
 
18
    Left = 216
 
19
    Height = 35
 
20
    Top = 27
 
21
    Width = 379
 
22
    Anchors = [akTop, akLeft, akRight]
 
23
    BorderSpacing.Left = 6
 
24
    BorderSpacing.Right = 6
14
25
    Caption = 'This example demonstrates, how to stream a component to a stream in binary format ...'
15
 
    Color = clNone
16
26
    ParentColor = False
17
27
    WordWrap = True
18
 
    Left = 253
19
 
    Height = 43
20
 
    Top = 27
21
 
    Width = 196
22
28
  end
23
29
  object Note2Label: TLabel
 
30
    AnchorSideLeft.Control = DestinationGroupBox
 
31
    AnchorSideLeft.Side = asrBottom
 
32
    AnchorSideTop.Control = DestinationGroupBox
 
33
    AnchorSideRight.Control = Owner
 
34
    AnchorSideRight.Side = asrBottom
 
35
    Left = 251
 
36
    Height = 103
 
37
    Top = 378
 
38
    Width = 344
 
39
    Anchors = [akTop, akLeft, akRight]
 
40
    BorderSpacing.Left = 6
 
41
    BorderSpacing.Right = 6
24
42
    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.'
25
 
    Color = clNone
26
43
    ParentColor = False
27
44
    WordWrap = True
28
 
    Left = 265
29
 
    Height = 103
30
 
    Top = 325
31
 
    Width = 228
32
45
  end
33
46
  object SourceGroupBox: TGroupBox
34
 
    Caption = 'Source'
35
 
    ClientHeight = 73
36
 
    ClientWidth = 191
37
 
    TabOrder = 0
38
47
    Left = 15
39
48
    Height = 90
40
49
    Top = 25
41
50
    Width = 195
 
51
    Caption = 'Source'
 
52
    ClientHeight = 69
 
53
    ClientWidth = 187
 
54
    TabOrder = 0
42
55
    object AGroupBox: TGroupBox
43
 
      Caption = 'AGroupBox'
44
 
      ClientHeight = 26
45
 
      ClientWidth = 124
46
 
      TabOrder = 0
47
56
      Left = 23
48
57
      Height = 43
49
58
      Top = 15
50
59
      Width = 128
 
60
      Caption = 'AGroupBox'
 
61
      TabOrder = 0
51
62
    end
52
63
  end
53
64
  object DestinationGroupBox: TGroupBox
 
65
    Left = 30
 
66
    Height = 109
 
67
    Top = 378
 
68
    Width = 215
54
69
    Anchors = [akLeft, akBottom]
55
70
    Caption = 'Destination'
56
 
    ClientHeight = 92
57
 
    ClientWidth = 211
58
71
    TabOrder = 1
59
 
    Left = 30
60
 
    Height = 109
61
 
    Top = 360
62
 
    Width = 215
63
72
  end
64
73
  object WriteToStreamButton: TButton
 
74
    Left = 23
 
75
    Height = 35
 
76
    Top = 130
 
77
    Width = 229
 
78
    AutoSize = True
65
79
    BorderSpacing.InnerBorder = 4
66
80
    Caption = '1. Write AGroupBox to stream'
67
81
    OnClick = WriteToStreamButtonClick
68
82
    TabOrder = 2
69
 
    Left = 23
70
 
    Height = 25
71
 
    Top = 130
72
 
    Width = 197
73
83
  end
74
84
  object StreamGroupBox: TGroupBox
 
85
    Left = 15
 
86
    Height = 150
 
87
    Top = 170
 
88
    Width = 572
75
89
    Anchors = [akTop, akLeft, akRight, akBottom]
76
90
    Caption = 'Stream (special characters are shown as hexnumbers)'
77
 
    ClientHeight = 115
78
 
    ClientWidth = 492
 
91
    ClientHeight = 129
 
92
    ClientWidth = 564
79
93
    TabOrder = 3
80
 
    Left = 15
81
 
    Height = 132
82
 
    Top = 170
83
 
    Width = 496
84
94
    object StreamMemo: TMemo
 
95
      Left = 0
 
96
      Height = 107
 
97
      Top = 0
 
98
      Width = 564
85
99
      Align = alClient
86
100
      Lines.Strings = (
87
101
        'First click on the button above, then on button below'
88
102
      )
89
103
      ReadOnly = True
90
104
      TabOrder = 0
91
 
      Height = 95
92
 
      Width = 492
93
105
    end
94
106
    object StreamAsLFMCheckBox: TCheckBox
 
107
      Left = 0
 
108
      Height = 22
 
109
      Top = 107
 
110
      Width = 564
95
111
      Align = alBottom
96
112
      Caption = 'Show sream in LFM format (text)'
97
113
      OnChange = StreamAsLFMCheckBoxChange
98
114
      TabOrder = 1
99
 
      Height = 20
100
 
      Top = 95
101
 
      Width = 492
102
115
    end
103
116
  end
104
117
  object ReadStreamButton: TButton
 
118
    Left = 25
 
119
    Height = 35
 
120
    Top = 323
 
121
    Width = 254
105
122
    Anchors = [akLeft, akBottom]
 
123
    AutoSize = True
106
124
    BorderSpacing.InnerBorder = 4
107
125
    Caption = '2. Create component from stream'
108
126
    OnClick = ReadStreamButtonClick
109
127
    TabOrder = 4
110
 
    Left = 25
111
 
    Height = 24
112
 
    Top = 316
113
 
    Width = 215
114
128
  end
115
129
end