← Back to branch summary

~ubuntu-branches/ubuntu/gutsy/lazarus/gutsy

« back to all changes in this revision

Viewing changes to examples/listview/testform.pp

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2007-05-06 13:46:10 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20070506134610-lf4rbsb7p0mx31x1
Tags: 0.9.22-1
http://bugs.debian.org/421850
http://bugs.debian.org/408512
* Add homepage to debian/control.
* New upstream release. (Closes: #421850, #408512)
* Remove old patch and add new symlink /usr/bin/startlazarus.
* Add myself to Uploaders.
* Add XS-X-Vcs-Svn header to debian/control.

Show diffs side-by-side

added added

removed removed

Lines of Context:
examples/listview/testform.pp
24
24
    CheckBox3: TCheckBox;
25
25
    CheckBox4: TCheckBox;
26
26
    CheckBox5: TCheckBox;
 
27
    HideSelection: TCheckBox;
27
28
    ComboBox1: TComboBox;
28
29
    ComboBox2: TComboBox;
29
30
    ComboBox3: TComboBox;
85
86
    procedure Edit6Change(Sender: TObject);
86
87
    procedure Edit7Change(Sender: TObject);
87
88
    procedure Edit8Change(Sender: TObject);
 
89
    procedure HideSelectionChange(Sender: TObject);
88
90
    procedure ImageList1Change(Sender: TObject);
89
 
    procedure ListView1Change(Sender: TObject; Item: TListItem; Change: TItemChange);
90
 
    procedure ListView1Click(Sender: TObject);
91
91
    procedure ListView1ColumnClick(Sender: TObject; Column: TListColumn);
92
92
    procedure ListView1SelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
93
93
  private
299
299
  Column.MaxWidth := StrToIntDef(Edit8.Text, 0);
300
300
end;
301
301
 
 
302
procedure TForm1.HideSelectionChange(Sender: TObject);
 
303
begin
 
304
  Listview1.HideSelection := HideSelection.Checked;
 
305
end;
 
306
 
302
307
procedure TForm1.ImageList1Change(Sender: TObject);
303
308
begin
304
309
 
305
310
end;
306
311
 
307
 
procedure TForm1.ListView1Change(Sender: TObject; Item: TListItem; Change: TItemChange);
308
 
begin
309
 
 
310
 
end;
311
 
 
312
 
procedure TForm1.ListView1Click(Sender: TObject);
313
 
begin
314
 
 
315
 
end;
316
 
 
317
312
procedure TForm1.ListView1ColumnClick(Sender: TObject; Column: TListColumn);
318
313
begin
319
314
  Edit2.Text := IntToStr(Column.Index);