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

« back to all changes in this revision

Viewing changes to examples/listview/testform.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 Form1: TForm1
2
2
  Left = 356
3
 
  Height = 299
 
3
  Height = 360
4
4
  Top = 150
5
 
  Width = 627
 
5
  Width = 620
6
6
  HorzScrollBar.Page = 626
7
7
  VertScrollBar.Page = 298
8
8
  ActiveControl = CheckBox3
9
9
  Caption = 'Listview test'
10
 
  ClientHeight = 299
11
 
  ClientWidth = 627
 
10
  ClientHeight = 360
 
11
  ClientWidth = 620
12
12
  LCLVersion = '0.9.31'
13
13
  object PageControl1: TPageControl
14
 
    Left = 433
15
 
    Height = 280
 
14
    Left = 399
 
15
    Height = 341
16
16
    Top = 8
17
 
    Width = 184
 
17
    Width = 211
18
18
    ActivePage = Page3
19
19
    Anchors = [akTop, akRight]
20
20
    TabIndex = 0
21
21
    TabOrder = 0
22
22
    object Page3: TTabSheet
23
23
      Caption = 'LV'
24
 
      ClientHeight = 254
25
 
      ClientWidth = 176
 
24
      ClientHeight = 307
 
25
      ClientWidth = 205
26
26
      object Label11: TLabel
27
27
        Left = 6
28
 
        Height = 14
 
28
        Height = 17
29
29
        Top = 60
30
 
        Width = 47
 
30
        Width = 59
31
31
        Caption = 'Scrollbars'
32
32
        ParentColor = False
33
33
      end
34
34
      object Label12: TLabel
35
35
        Left = 6
36
 
        Height = 14
 
36
        Height = 17
37
37
        Top = 122
38
 
        Width = 56
 
38
        Width = 69
39
39
        Caption = 'SortColumn'
40
40
        ParentColor = False
41
41
      end
42
42
      object Label13: TLabel
43
43
        Left = 6
44
 
        Height = 14
 
44
        Height = 17
45
45
        Top = 154
46
 
        Width = 45
 
46
        Width = 52
47
47
        Caption = 'SortType'
48
48
        ParentColor = False
49
49
      end
50
50
      object Label14: TLabel
51
51
        Left = 6
52
 
        Height = 14
 
52
        Height = 17
53
53
        Top = 186
54
 
        Width = 47
 
54
        Width = 59
55
55
        Caption = 'ViewStyle'
56
56
        ParentColor = False
57
57
      end
58
58
      object CheckBox3: TCheckBox
59
59
        Left = 6
60
 
        Height = 17
 
60
        Height = 22
61
61
        Top = 4
62
 
        Width = 68
 
62
        Width = 87
63
63
        Caption = 'Multiselect'
64
64
        OnClick = CheckBox3Click
65
65
        TabOrder = 0
66
66
      end
67
67
      object ComboBox2: TComboBox
68
68
        Left = 77
69
 
        Height = 21
 
69
        Height = 26
70
70
        Top = 52
71
71
        Width = 95
72
 
        ItemHeight = 13
 
72
        ItemHeight = 0
73
73
        ItemIndex = 6
74
74
        Items.Strings = (
75
75
          'ssNone'
87
87
      end
88
88
      object Edit11: TEdit
89
89
        Left = 78
90
 
        Height = 21
 
90
        Height = 22
91
91
        Top = 116
92
92
        Width = 80
93
93
        OnChange = Edit11Change
96
96
      end
97
97
      object ComboBox3: TComboBox
98
98
        Left = 77
99
 
        Height = 21
 
99
        Height = 26
100
100
        Top = 146
101
101
        Width = 95
102
 
        ItemHeight = 13
 
102
        ItemHeight = 0
103
103
        ItemIndex = 0
104
104
        Items.Strings = (
105
105
          'stNone'
114
114
      end
115
115
      object ComboBox4: TComboBox
116
116
        Left = 78
117
 
        Height = 21
 
117
        Height = 26
118
118
        Top = 178
119
119
        Width = 95
120
 
        ItemHeight = 13
 
120
        ItemHeight = 0
121
121
        ItemIndex = 3
122
122
        Items.Strings = (
123
123
          'vsIcon'
132
132
      end
133
133
      object CheckBox4: TCheckBox
134
134
        Left = 6
135
 
        Height = 17
 
135
        Height = 22
136
136
        Top = 28
137
 
        Width = 68
 
137
        Width = 86
138
138
        Caption = 'RowSelect'
139
139
        OnClick = CheckBox4Click
140
140
        TabOrder = 5
141
141
      end
142
142
      object CheckBox5: TCheckBox
143
143
        Left = 6
144
 
        Height = 17
 
144
        Height = 22
145
145
        Top = 84
146
 
        Width = 119
 
146
        Width = 148
147
147
        Caption = 'ShowColumnHeaders'
148
148
        Checked = True
149
149
        OnClick = CheckBox5Click
151
151
        TabOrder = 6
152
152
      end
153
153
      object HideSelection: TCheckBox
154
 
        Left = 91
155
 
        Height = 17
 
154
        Left = 97
 
155
        Height = 22
156
156
        Top = 4
157
 
        Width = 82
 
157
        Width = 104
158
158
        Caption = 'HideSelection'
159
159
        Checked = True
160
160
        OnChange = HideSelectionChange
161
161
        State = cbChecked
162
162
        TabOrder = 7
163
163
      end
 
164
      object ChBoxOwnerData: TCheckBox
 
165
        Left = 6
 
166
        Height = 22
 
167
        Top = 249
 
168
        Width = 88
 
169
        Caption = 'OwnerData'
 
170
        OnChange = ChBoxOwnerDataChange
 
171
        TabOrder = 8
 
172
      end
 
173
      object lblSetCount: TLabel
 
174
        Left = 10
 
175
        Height = 17
 
176
        Top = 281
 
177
        Width = 55
 
178
        Caption = 'SetCount'
 
179
        Enabled = False
 
180
        ParentColor = False
 
181
      end
 
182
      object OwnerDataCount: TSpinEdit
 
183
        Left = 88
 
184
        Height = 22
 
185
        Top = 276
 
186
        Width = 84
 
187
        Enabled = False
 
188
        MaxValue = 10000000
 
189
        OnChange = OwnerDataCountChange
 
190
        TabOrder = 9
 
191
        Value = 2
 
192
      end
 
193
      object CheckBox6: TCheckBox
 
194
        Left = 6
 
195
        Height = 22
 
196
        Top = 217
 
197
        Width = 154
 
198
        Caption = 'AutoWidthLastColumn'
 
199
        OnChange = CheckBox6Change
 
200
        TabOrder = 10
 
201
      end
 
202
      object CheckBox7: TCheckBox
 
203
        Left = 97
 
204
        Height = 22
 
205
        Top = 28
 
206
        Width = 81
 
207
        Caption = 'ReadOnly'
 
208
        Checked = True
 
209
        OnChange = CheckBox7Change
 
210
        State = cbChecked
 
211
        TabOrder = 11
 
212
      end
164
213
    end
165
214
    object Page1: TTabSheet
166
215
      Caption = 'Items'
167
 
      ClientHeight = 0
168
 
      ClientWidth = 0
 
216
      ClientHeight = 307
 
217
      ClientWidth = 205
169
218
      object Label6: TLabel
170
219
        Left = 6
171
220
        Height = 17
172
221
        Top = 4
173
 
        Width = 65
 
222
        Width = 32
174
223
        Caption = 'Index'
175
224
        ParentColor = False
176
225
      end
178
227
        Left = 94
179
228
        Height = 17
180
229
        Top = 4
181
 
        Width = 65
 
230
        Width = 55
182
231
        Caption = 'SubIndex'
183
232
        ParentColor = False
184
233
      end
186
235
        Left = 6
187
236
        Height = 17
188
237
        Top = 116
189
 
        Width = 65
 
238
        Width = 25
190
239
        Caption = 'Text'
191
240
        ParentColor = False
192
241
      end
194
243
        Left = 94
195
244
        Height = 17
196
245
        Top = 116
197
 
        Width = 65
 
246
        Width = 67
198
247
        Caption = 'ImageIndex'
199
248
        ParentColor = False
200
249
      end
240
289
      end
241
290
      object Edit1: TEdit
242
291
        Left = 6
243
 
        Height = 23
 
292
        Height = 22
244
293
        Top = 20
245
294
        Width = 80
246
295
        OnChange = Edit1Change
249
298
      end
250
299
      object Edit4: TEdit
251
300
        Left = 6
252
 
        Height = 23
 
301
        Height = 22
253
302
        Top = 132
254
303
        Width = 80
255
304
        OnChange = Edit4Change
258
307
      end
259
308
      object Edit5: TEdit
260
309
        Left = 94
261
 
        Height = 23
 
310
        Height = 22
262
311
        Top = 20
263
312
        Width = 80
264
313
        OnChange = Edit5Change
267
316
      end
268
317
      object Edit10: TEdit
269
318
        Left = 94
270
 
        Height = 23
 
319
        Height = 22
271
320
        Top = 132
272
321
        Width = 80
273
322
        OnChange = Edit10Change
277
326
    end
278
327
    object Page2: TTabSheet
279
328
      Caption = 'Columns'
280
 
      ClientHeight = 0
281
 
      ClientWidth = 0
 
329
      ClientHeight = 307
 
330
      ClientWidth = 205
282
331
      object Label1: TLabel
283
332
        Left = 6
284
333
        Height = 17
414
463
        Height = 21
415
464
        Top = 191
416
465
        Width = 80
417
 
        ItemHeight = 13
 
466
        ItemHeight = 0
418
467
        Items.Strings = (
419
468
          'taLeftJustify'
420
469
          'taRightJustify'
436
485
  end
437
486
  object ListView1: TListView
438
487
    Left = 8
439
 
    Height = 280
 
488
    Height = 341
440
489
    Top = 8
441
 
    Width = 417
 
490
    Width = 383
442
491
    Anchors = [akTop, akLeft, akRight, akBottom]
443
492
    BorderWidth = 2
444
493
    Columns = <    
445
494
      item
446
495
        Caption = 'One'
 
496
        Width = 80
447
497
      end    
448
498
      item
449
499
        Caption = 'Two'
 
500
        Width = 301
450
501
      end>
451
502
    Items.LazData = {
452
503
      540000000200000000000000FFFFFFFFFFFFFFFF02000000050000004E657720
453
504
      31050000005375622031050000005375622032FFFFFFFFFFFFFFFFFFFFFFFF00
454
505
      000000050000004E65772032FFFFFFFFFFFFFFFF
455
506
    }
 
507
    ReadOnly = True
456
508
    ScrollBars = ssAutoBoth
457
509
    SmallImages = ImageList1
458
510
    TabOrder = 1
459
511
    ViewStyle = vsReport
460
512
    OnColumnClick = ListView1ColumnClick
 
513
    OnData = ListView1Data
461
514
    OnSelectItem = ListView1SelectItem
462
515
  end
463
516
  object ImageList1: TImageList