diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-07-16 09:03:07 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-07-16 09:03:07 +0000 |
| commit | 320ce4e735e508c2f924f4c6dd85638aeda64fb0 (patch) | |
| tree | 42baefa6b5d3e378aef407e4cf5244d354d29901 /examples/gui/listviewtest | |
| parent | 6272816b16c7de17709e204b2ec53fe95bae7fa1 (diff) | |
| download | fpGUI-320ce4e735e508c2f924f4c6dd85638aeda64fb0.tar.xz | |
* Added compile fix for Splash Screen demo from MvC.
* Added the compileall.sh script supplied by Michael van Canneyt for the GUI examples.
* Removed all compiler warnings and hints from the GUI examples.
Diffstat (limited to 'examples/gui/listviewtest')
| -rw-r--r-- | examples/gui/listviewtest/listviewtest.lpr | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/examples/gui/listviewtest/listviewtest.lpr b/examples/gui/listviewtest/listviewtest.lpr index 553e2d53..8e15a631 100644 --- a/examples/gui/listviewtest/listviewtest.lpr +++ b/examples/gui/listviewtest/listviewtest.lpr @@ -40,14 +40,13 @@ end; procedure TMainForm.AddBttn(Sender: TObject); var Item: TfpgLVItem; - I: Integer; begin FListView.BeginUpdate; FTmpListView.BeginUpdate; //FListView.Items.Capacity := FListView.Items.Capacity + 2000000; //for I := 0 to 1999999 do begin Item := FListView.ItemAdd; - Item.Caption :=FEdit.Text+IntToStr(FListView.Items.Count); + Item.Caption := FEdit.Text + IntToStr(FListView.Items.Count); Item.SubItems.Add('0'); Item.SubItems.Add('1'); Item.SubItems.Add('2'); @@ -56,7 +55,6 @@ begin //end; FListView.EndUpdate; FTmpListView.EndUpdate; - end; procedure TMainForm.ShowHeadersChange(Sender: TObject); |