mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-11 02:24:44 +02:00
117 lines
3.3 KiB
ObjectPascal
117 lines
3.3 KiB
ObjectPascal
{
|
|
/***************************************************************************
|
|
ListViewTest.pp
|
|
-------------------
|
|
Test aplication for list views
|
|
Initial Revision : Sun Dec 31 17:30:00:00 CET 2000
|
|
|
|
|
|
|
|
|
|
***************************************************************************/
|
|
|
|
***************************************************************************
|
|
* *
|
|
* This source is free software; you can redistribute it and/or modify *
|
|
* it under the terms of the GNU General Public License as published by *
|
|
* the Free Software Foundation; either version 2 of the License, or *
|
|
* (at your option) any later version. *
|
|
* *
|
|
* This code is distributed in the hope that it will be useful, but *
|
|
* WITHOUT ANY WARRANTY; without even the implied warranty of *
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *
|
|
* General Public License for more details. *
|
|
* *
|
|
* A copy of the GNU General Public License is available on the World *
|
|
* Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also *
|
|
* obtain it by writing to the Free Software Foundation, *
|
|
* Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *
|
|
* *
|
|
***************************************************************************
|
|
}
|
|
|
|
program ListViewTest;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses
|
|
Interfaces, Classes, Buttons, ComCtrls, Forms, SysUtils;
|
|
|
|
type
|
|
TMyForm = class(TForm)
|
|
private
|
|
FItemIndex: Cardinal;
|
|
public
|
|
ListView: TListView;
|
|
Button1: TButton;
|
|
constructor Create(AOwner: TComponent); override;
|
|
procedure Button1Click(Sender: TObject);
|
|
end;
|
|
|
|
var
|
|
MyForm: TMyForm;
|
|
|
|
constructor TMyForm.Create(AOwner: TComponent);
|
|
begin
|
|
inherited Create(AOwner);
|
|
|
|
Caption := 'List View Test';
|
|
Width := 175;
|
|
Height := 195;
|
|
|
|
ListView := TListView.Create(Self);
|
|
ListView.Parent := Self;
|
|
ListView.Height := 120;
|
|
ListView.Width := 150;
|
|
ListView.Show;
|
|
|
|
Button1 := TButton.Create(Self);
|
|
with Button1 do
|
|
begin
|
|
Parent := Self;
|
|
Caption := 'Add Item';
|
|
Top := 130;
|
|
Left := 10;
|
|
Height := 25;
|
|
Width := 65;
|
|
OnClick := @Button1Click;
|
|
Show;
|
|
end;
|
|
|
|
Show;
|
|
end;
|
|
|
|
procedure TMyForm.Button1Click(Sender: TObject);
|
|
var
|
|
Item: TListItem;
|
|
begin
|
|
Inc(FItemIndex);
|
|
Item := ListView.Items.Add;
|
|
Item.Caption := Format('Item %D', [FItemIndex]);
|
|
end;
|
|
|
|
begin
|
|
Application.Initialize;
|
|
Application.CreateForm(TMyForm, MyForm);
|
|
Application.Run;
|
|
end.
|
|
|
|
{
|
|
$Log$
|
|
Revision 1.4 2002/10/29 08:22:32 lazarus
|
|
MG: added interfaces unit
|
|
|
|
Revision 1.3 2002/05/10 06:57:50 lazarus
|
|
MG: updated licenses
|
|
|
|
Revision 1.2 2002/02/08 00:44:06 lazarus
|
|
Keith: Fixed form size for listviewtest.pp, kind changing for scrollbar.pp
|
|
|
|
Revision 1.1 2002/02/04 10:54:33 lazarus
|
|
Keith:
|
|
* Fixes for Win32
|
|
* Added new listviewtest.pp example
|
|
|
|
|
|
}
|