unit Unit_1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls;
type
TForm1 = class(TForm)
ListView1: TListView;
procedure FormCreate(Sender: TObject);
procedure ListView1Data(Sender: TObject; Item: TListItem);
procedure ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
procedure ListView1CustomDrawSubItem(Sender: TCustomListView;
Item: TListItem; SubItem: Integer; State: TCustomDrawState;
var DefaultDraw: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses
Unit_2;
type
TColorData=record
end;
var
arr: TSimpleArr;
s: Word;
procedure TForm1.FormCreate(Sender: TObject);
var
lc: TListColumn;
j: integer;
begin
MatrData(arr);
Listview1.OwnerData:=True;
ListView1.ViewStyle:=vsReport;
for j:=0 to 10 do
begin
lc:=ListView1.Columns.Add;
lc.Caption:=inttostr(j-1);
lc.Width:=42;
end;
ListView1.RowSelect:=true;
ListView1.Items.Count:=Length(arr);
Caption:=IntToStr(Length(arr));
end;
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState;
var DefaultDraw: Boolean);
begin
Sender.Canvas.Brush.Color:=RGB(255,255,255);
end;
procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
Item: TListItem; SubItem: Integer; State: TCustomDrawState;
var DefaultDraw: Boolean);
begin
Sender.Canvas.Brush.Color:=RGB(s,s,s);;
end;
procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
var
n, j: integer;
begin
n:=10;
item.Caption:=arr[item.Index,0].caption;
for j:= 0 to n-1 do
begin
item.SubItems.Add(IntToStr(arr[item.Index,j].data));
s:= arr[item.Index,j].data;
end;
end;
end.
