+ Added a new listview test example

git-svn-id: trunk@5668 -

.gitattributes

@@ -383,6 +383,10 @@ examples/lazintfimage/mainunit1.lfm svneol=native#text/plain
 examples/lazintfimage/mainunit1.lrs svneol=native#text/pascal
 examples/lazintfimage/mainunit1.pas svneol=native#text/pascal
 examples/listboxtest.pp svneol=native#text/pascal
+examples/listview/listview.lpr svneol=native#text/pascal
+examples/listview/testform.lfm svneol=native#text/plain
+examples/listview/testform.lrs svneol=native#text/pascal
+examples/listview/testform.pp svneol=native#text/pascal
 examples/listviewtest.pp svneol=native#text/pascal
 examples/memotest.pp svneol=native#text/pascal
 examples/messagedialogs.pp svneol=native#text/pascal

examples/listview/listview.lpr

@@ -0,0 +1,15 @@
+program listview;
+
+{$mode objfpc}{$H+}
+
+uses
+  Interfaces,
+  testform,
+  Forms;
+
+begin
+  Application.Initialize;
+  Application.CreateForm ( TForm1, Form1 ) ;
+  Application.Run;
+end.
+

examples/listview/testform.lfm

@@ -0,0 +1,568 @@
+object Form1: TForm1
+  Caption = 'Listview test'
+  ClientHeight = 299
+  ClientWidth = 602
+  HorzScrollBar.Page = 603
+  VertScrollBar.Page = 300
+  Left = 356
+  Height = 299
+  Top = 150
+  Width = 602
+  object Notebook1: TNotebook
+    Anchors = [akTop, akRight]
+    PageIndex = 0
+    Left = 408
+    Height = 280
+    Top = 8
+    Width = 184
+    object Page1: TPage
+      Caption = 'Items'
+      ClientWidth = 180
+      ClientHeight = 250
+      Left = 2
+      Height = 250
+      Top = 28
+      Width = 180
+      object Button1: TButton
+        Caption = 'Insert'
+        TabOrder = 0
+        OnClick = Button1Click
+        Left = 6
+        Height = 25
+        Top = 52
+        Width = 75
+      end
+      object Button2: TButton
+        Caption = 'Delete'
+        TabOrder = 1
+        OnClick = Button2Click
+        Left = 94
+        Height = 25
+        Top = 52
+        Width = 75
+      end
+      object Button5: TButton
+        Caption = 'Select'
+        TabOrder = 2
+        OnClick = Button5Click
+        Left = 6
+        Height = 25
+        Top = 84
+        Width = 75
+      end
+      object Button6: TButton
+        Caption = 'Focus'
+        TabOrder = 3
+        OnClick = Button6Click
+        Left = 94
+        Height = 25
+        Top = 84
+        Width = 75
+      end
+      object Edit1: TEdit
+        OnChange = Edit1Change
+        TabOrder = 4
+        Text = '0'
+        TabOrder = 4
+        Left = 6
+        Height = 23
+        Top = 20
+        Width = 80
+      end
+      object Edit4: TEdit
+        OnChange = Edit4Change
+        TabOrder = 5
+        Text = 'Edit4'
+        TabOrder = 5
+        Left = 6
+        Height = 23
+        Top = 132
+        Width = 80
+      end
+      object Edit5: TEdit
+        OnChange = Edit5Change
+        TabOrder = 6
+        Text = '0'
+        TabOrder = 6
+        Left = 94
+        Height = 23
+        Top = 20
+        Width = 80
+      end
+      object Label6: TLabel
+        Caption = 'Index'
+        Left = 6
+        Height = 17
+        Top = 4
+        Width = 65
+      end
+      object Label7: TLabel
+        Caption = 'SubIndex'
+        Left = 94
+        Height = 17
+        Top = 4
+        Width = 65
+      end
+      object Label9: TLabel
+        Caption = 'Text'
+        Left = 6
+        Height = 17
+        Top = 116
+        Width = 65
+      end
+      object Edit10: TEdit
+        OnChange = Edit10Change
+        TabOrder = 10
+        Text = '-1'
+        TabOrder = 10
+        Left = 94
+        Height = 23
+        Top = 132
+        Width = 80
+      end
+      object Label10: TLabel
+        Caption = 'ImageIndex'
+        Left = 94
+        Height = 17
+        Top = 116
+        Width = 65
+      end
+    end
+    object Page2: TPage
+      Caption = 'Columns'
+      ClientWidth = 180
+      ClientHeight = 250
+      Left = 2
+      Height = 250
+      Top = 28
+      Width = 180
+      object Button3: TButton
+        Caption = 'Insert'
+        TabOrder = 0
+        OnClick = Button3Click
+        Left = 6
+        Height = 25
+        Top = 52
+        Width = 75
+      end
+      object Button4: TButton
+        Caption = 'Delete'
+        TabOrder = 1
+        OnClick = Button4Click
+        Left = 94
+        Height = 25
+        Top = 52
+        Width = 75
+      end
+      object Edit2: TEdit
+        OnChange = Edit2Change
+        TabOrder = 2
+        Text = '0'
+        TabOrder = 2
+        Left = 6
+        Height = 23
+        Top = 20
+        Width = 80
+      end
+      object Edit3: TEdit
+        OnChange = Edit3Change
+        TabOrder = 3
+        Text = 'Edit3'
+        TabOrder = 3
+        Left = 6
+        Height = 23
+        Top = 100
+        Width = 80
+      end
+      object Label1: TLabel
+        Caption = 'Caption'
+        Left = 6
+        Height = 17
+        Top = 84
+        Width = 65
+      end
+      object Label2: TLabel
+        Caption = 'Width'
+        Left = 94
+        Height = 17
+        Top = 84
+        Width = 65
+      end
+      object Edit6: TEdit
+        OnChange = Edit6Change
+        TabOrder = 6
+        Text = '0'
+        TabOrder = 6
+        Left = 94
+        Height = 23
+        Top = 100
+        Width = 80
+      end
+      object Label3: TLabel
+        Caption = 'Minwidth'
+        Left = 6
+        Height = 17
+        Top = 132
+        Width = 65
+      end
+      object Edit7: TEdit
+        OnChange = Edit7Change
+        TabOrder = 8
+        Text = '0'
+        TabOrder = 8
+        Left = 6
+        Height = 23
+        Top = 148
+        Width = 80
+      end
+      object Edit8: TEdit
+        OnChange = Edit8Change
+        TabOrder = 9
+        Text = '0'
+        TabOrder = 9
+        Left = 94
+        Height = 23
+        Top = 148
+        Width = 80
+      end
+      object Label4: TLabel
+        Caption = 'Maxwidth'
+        Left = 94
+        Height = 17
+        Top = 132
+        Width = 65
+      end
+      object CheckBox1: TCheckBox
+        AllowGrayed = True
+        AutoSize = True
+        Caption = 'Visible'
+        DragCursor = 65524
+        OnClick = CheckBox1Click
+        TabOrder = 11
+        Left = 6
+        Height = 20
+        Top = 220
+        Width = 80
+      end
+      object Edit9: TEdit
+        TabOrder = 12
+        Text = '-1'
+        TabOrder = 12
+        Left = 6
+        Height = 23
+        Top = 193
+        Width = 80
+      end
+      object Label5: TLabel
+        Caption = 'Image'
+        Left = 6
+        Height = 17
+        Top = 179
+        Width = 65
+      end
+      object ComboBox1: TComboBox
+        Items.Strings = (
+          'taLeftJustify'
+          'taRightJustify'
+          'taCenter'
+        )
+        MaxLength = 0
+        OnChange = ComboBox1Change
+        ParentCtl3D = False
+        TabOrder = 14
+        Text = 'taLeftJustify'
+        Left = 94
+        Height = 25
+        Top = 191
+        Width = 80
+      end
+      object CheckBox2: TCheckBox
+        AllowGrayed = True
+        AutoSize = True
+        Caption = 'Autosize'
+        DragCursor = 65524
+        OnClick = CheckBox2Click
+        TabOrder = 15
+        Left = 94
+        Height = 20
+        Top = 220
+        Width = 80
+      end
+      object Label8: TLabel
+        Caption = 'Index'
+        Left = 6
+        Height = 17
+        Top = 4
+        Width = 65
+      end
+    end
+  end
+  object ListView1: TListView
+    Anchors = [akTop, akLeft, akRight, akBottom]
+    BorderWidth = 2
+    Columns = <    
+      item
+        Caption = 'One'
+        Visible = True
+        Width = 50
+      end    
+      item
+        Caption = 'Two'
+        Visible = True
+        Width = 50
+      end>
+    Items.Data = {
+      520000000200000000000000FFFFFFFFFFFFFFFF0200000000000000054E6577
+      2031055375622031055375622032FFFFFFFFFFFFFFFFFFFFFFFF000000000000
+      0000054E6577203200000000000000000000
+    }
+    SmallImages = ImageList1
+    ViewStyle = vsReport
+    OnChange = ListView1Change
+    OnClick = ListView1Click
+    OnColumnClick = ListView1ColumnClick
+    OnSelectItem = ListView1SelectItem
+    Left = 8
+    Height = 280
+    Top = 8
+    Width = 392
+  end
+  object ImageList1: TImageList
+    OnChange = ImageList1Change
+    left = 243
+    top = 509
+    Bitmap = {
+      6C69040000001000000010000000250B00002F2A2058504D202A2F0A73746174
+      69632063686172202A2062746E5F6E6577666F726D5F78706D5B5D203D207B0A
+      223135203133203134372032222C0A2220200963204E6F6E65222C0A222E2009
+      632023384438453933222C0A222B2009632023374438333931222C0A22402009
+      632023373938313934222C0A22232009632023383038383944222C0A22242009
+      632023374338343942222C0A22252009632023373437413934222C0A22262009
+      632023383038354132222C0A222A2009632023374238304130222C0A223D2009
+      632023374638344132222C0A222D2009632023374538314130222C0A223B2009
+      632023374438313943222C0A223E2009632023374137433933222C0A222C2009
+      632023383138343935222C0A22272009632023373937423838222C0A22292009
+      632023383638393932222C0A22212009632023374337423844222C0A227E2009
+      632023463946394646222C0A227B2009632023383730303133222C0A225D2009
+      632023414530303133222C0A225E2009632023443330303133222C0A222F2009
+      632023464346344646222C0A22282009632023464546414646222C0A225F2009
+      632023303030303045222C0A223A2009632023383538343936222C0A223C2009
+      632023304130363237222C0A225B2009632023383638363845222C0A227D2009
+      632023463746394646222C0A227C2009632023463946434646222C0A22312009
+      632023464246424646222C0A22322009632023464246414646222C0A22332009
+      632023454545444646222C0A22342009632023463846354646222C0A22352009
+      632023464146384646222C0A22362009632023464246374646222C0A22372009
+      632023464546424646222C0A22382009632023464546434646222C0A22392009
+      632023303530343043222C0A22302009632023383338343836222C0A22612009
+      632023464346464646222C0A22622009632023463246374641222C0A22632009
+      632023433643424345222C0A22642009632023463346394639222C0A22652009
+      632023433343374336222C0A22662009632023433043354331222C0A22672009
+      632023464346464644222C0A22682009632023433343354334222C0A22692009
+      632023464546464646222C0A226A2009632023434143424344222C0A226B2009
+      632023463646374642222C0A226C2009632023434343424431222C0A226D2009
+      632023303130303038222C0A226E2009632023383438363835222C0A226F2009
+      632023463846434642222C0A22702009632023433543414336222C0A22712009
+      632023464346464642222C0A22722009632023443044364343222C0A22732009
+      632023454646334535222C0A22742009632023433643414242222C0A22752009
+      632023463846434542222C0A22762009632023433843434242222C0A22772009
+      632023464146434545222C0A22782009632023443044324337222C0A22792009
+      632023464146424636222C0A227A2009632023433143314333222C0A22412009
+      632023464246384646222C0A22422009632023303230303044222C0A22432009
+      632023383638363836222C0A22442009632023464246444641222C0A22452009
+      632023464546464642222C0A22462009632023433643394332222C0A22472009
+      632023464346464634222C0A22482009632023433943444246222C0A22492009
+      632023464546464631222C0A224A2009632023424543334146222C0A224B2009
+      632023464546464546222C0A224C2009632023434243454244222C0A224D2009
+      632023463646384542222C0A224E2009632023434143424333222C0A224F2009
+      632023464646464644222C0A22502009632023433643344339222C0A22512009
+      632023303130303039222C0A22522009632023464646464646222C0A22532009
+      632023433243324330222C0A22542009632023433743374335222C0A22552009
+      632023464446454639222C0A22562009632023433443354330222C0A22572009
+      632023464246434636222C0A22582009632023433943414334222C0A22592009
+      632023464646464641222C0A225A2009632023433143324243222C0A22602009
+      632023433643354330222C0A22202E09632023303130303030222C0A222E2E09
+      632023383238323832222C0A222B2E09632023464346434643222C0A22402E09
+      632023433243324332222C0A22232E09632023463846384638222C0A22242E09
+      632023433343334333222C0A22252E09632023434543454345222C0A22262E09
+      632023463946394639222C0A222A2E09632023424542454243222C0A223D2E09
+      632023424542444239222C0A222D2E09632023433443344243222C0A223B2E09
+      632023303630363030222C0A223E2E09632023383538353835222C0A222C2E09
+      632023423342334235222C0A22272E09632023443344334433222C0A22292E09
+      632023433043304245222C0A22212E09632023464146414638222C0A227E2E09
+      632023434143414338222C0A227B2E09632023433443344332222C0A225D2E09
+      632023303030303030222C0A225E2E09632023383438343834222C0A222F2E09
+      632023433443344336222C0A22282E09632023463546354637222C0A225F2E09
+      632023434243424344222C0A223A2E09632023463746374639222C0A223C2E09
+      632023434443444346222C0A225B2E09632023463846384641222C0A227D2E09
+      632023433843384341222C0A227C2E09632023443444344434222C0A22312E09
+      632023383038303830222C0A22322E09632023463946394642222C0A22332E09
+      632023434143394345222C0A22342E09632023464646454646222C0A22352E09
+      632023433643354344222C0A22362E09632023464646444646222C0A22372E09
+      632023433943374434222C0A22382E09632023463746354646222C0A22392E09
+      632023434443424438222C0A22302E09632023433943384430222C0A22612E09
+      632023463746364643222C0A22622E09632023433543354337222C0A22632E09
+      632023463446364633222C0A22642E09632023303030323030222C0A22652E09
+      632023393439343934222C0A22662E09632023303630363036222C0A22672E09
+      632023303030303032222C0A22682E09632023303430333038222C0A22692E09
+      632023303030303035222C0A226A2E09632023303030303037222C0A226B2E09
+      632023303030303039222C0A226C2E09632023303430323046222C0A226D2E09
+      632023303830373046222C0A226E2E09632023303230323034222C0A226F2E09
+      632023304430463043222C0A22702E09632023303030313030222C0A222E202B
+      20402023202420252026202A203D202D203B203E202C2027202920222C0A2221
+      207E207B207B207B207B207B205D205D205E205E202F205E2028205F20222C0A
+      223A207B207B207B207B205D205D205D205E205E205E205E205E203C205F2022
+      2C0A225B207D207C203120312032203320322034203520362037203820382039
+      20222C0A22302061206220632064206520612066206720682069206A206B206C
+      206D20222C0A226E206F2070207120722073207420752076207720782079207A
+      2041204220222C0A2243204420452046204720482049204A204B204C204D204E
+      204F2050205120222C0A224320522053204F205420552056205720582059205A
+      20592060205920202E222C0A222E2E2B2E5220402E232E242E5220252E262E2A
+      2E4F203D2E59202D2E3B2E222C0A223E2E52202C2E5220272E5220292E4F2054
+      20212E7E2E4F207B2E212E5D2E222C0A225E2E522052202F2E282E2F2E52205F
+      2E3A2E3C2E5B2E7D2E52207C2E5D2E222C0A22312E322E332E342E352E362E37
+      2E382E392E362E302E612E622E632E642E222C0A22652E662E672E682E692E6A
+      2E6B2E6C2E6B2E6B2E6D2E692E6E2E6F2E702E227D3B0A380200002F2A205850
+      4D202A2F0A7374617469632063686172202A2062746E5F6E6577756E69745F78
+      706D5B5D203D207B0A2231312031332032312031222C0A22200963204E6F6E65
+      222C0A222E09632023303030303030222C0A222B09632023304330433043222C
+      0A224009632023464546454645222C0A222309632023464646464646222C0A22
+      2409632023464146414641222C0A222509632023303730373037222C0A222609
+      632023463346334633222C0A222A09632023464346434643222C0A223D096320
+      23303230323032222C0A222D09632023303930393039222C0A223B0963202346
+      3846384638222C0A223E09632023303130313031222C0A222C09632023464246
+      424642222C0A222709632023463046304630222C0A2229096320234644464446
+      44222C0A222109632023463746374637222C0A227E0963202330333033303322
+      2C0A227B09632023304130413041222C0A225D09632023303530353035222C0A
+      225E09632023303430343034222C0A222E2E2B2E2E2B2E2E202020222C0A222E
+      402323232423252E2020222C0A222E4023234023262E232E20222C0A222E4023
+      23232A403D2E2E2D222C0A222E4023233B23232324232E222C0A222E40232323
+      3B242323233E222C0A222E4023232C402327292C2E222C0A222E402323232321
+      2323233D222C0A222E402323232429232C292E222C0A227E212323232C232329
+      3B25222C0A223E2321232923292323232E222C0A223E2C232C23232124292C2B
+      222C0A227B2E2E3D7E2E2E2B5D2E5E227D3B0A1B0900002F2A2058504D202A2F
+      0A7374617469632063686172202A2062746E5F6F70656E66696C655F78706D5B
+      5D203D207B0A2231382031382039372032222C0A2220200963204E6F6E65222C
+      0A222E2009632023303030303030222C0A222B2009632023344533333142222C
+      0A22402009632023453541353636222C0A22232009632023464544333941222C
+      0A22242009632023464543353835222C0A22252009632023464443353837222C
+      0A22262009632023464543323832222C0A222A2009632023463841433632222C
+      0A223D2009632023464543383841222C0A222D2009632023353335303444222C
+      0A223B2009632023353535323446222C0A223E2009632023354335413537222C
+      0A222C2009632023353435313445222C0A22272009632023353635333530222C
+      0A22292009632023433438363445222C0A22212009632023353234463443222C
+      0A227E2009632023463546354635222C0A227B2009632023454345434543222C
+      0A225D2009632023453445344534222C0A225E2009632023444344434443222C
+      0A222F2009632023443444344434222C0A22282009632023434243424342222C
+      0A225F2009632023433443344334222C0A223A2009632023424342434243222C
+      0A223C2009632023423542354235222C0A225B2009632023423342334233222C
+      0A227D2009632023333033303330222C0A227C2009632023344133313139222C
+      0A22312009632023444244424442222C0A22322009632023444644464445222C
+      0A22332009632023453845384537222C0A22342009632023453645364534222C
+      0A22352009632023443244324431222C0A22362009632023433743374336222C
+      0A22372009632023424142414239222C0A22382009632023414441444143222C
+      0A22392009632023413041303946222C0A22302009632023393439343933222C
+      0A22612009632023343934393438222C0A22622009632023423737443434222C
+      0A22632009632023353335313445222C0A22642009632023444144414441222C
+      0A22652009632023444244424441222C0A22662009632023453145314530222C
+      0A22672009632023444444444443222C0A22682009632023443644364435222C
+      0A22692009632023434243424341222C0A226A2009632023433143314330222C
+      0A226B2009632023423642364235222C0A226C2009632023413941394138222C
+      0A226D2009632023363836383637222C0A226E2009632023323232323231222C
+      0A226F2009632023343933303138222C0A22702009632023434443444344222C
+      0A22712009632023434143414339222C0A22722009632023443544354434222C
+      0A22732009632023443244324430222C0A22742009632023434343434342222C
+      0A22752009632023433243324331222C0A22762009632023423942394238222C
+      0A22772009632023414641464145222C0A22782009632023413241324131222C
+      0A22792009632023393539353934222C0A227A2009632023434543454345222C
+      0A22412009632023424542454243222C0A22422009632023433443344332222C
+      0A22432009632023433643364335222C0A22442009632023433343334332222C
+      0A22452009632023424642464245222C0A22462009632023414541454144222C
+      0A22472009632023413541354134222C0A22482009632023394539453944222C
+      0A22492009632023364636463645222C0A224A2009632023313231323132222C
+      0A224B2009632023424442444244222C0A224C2009632023413641364135222C
+      0A224D2009632023414141414138222C0A224E2009632023414441444142222C
+      0A224F2009632023414541454143222C0A22502009632023414241424141222C
+      0A22512009632023413741374136222C0A22522009632023413141314130222C
+      0A22532009632023394139413939222C0A22542009632023393439343932222C
+      0A22552009632023384438443842222C0A22562009632023323332333233222C
+      0A22572009632023344134413441222C0A22582009632023344134413439222C
+      0A22592009632023344334433442222C0A225A2009632023344334433443222C
+      0A22602009632023344234423441222C0A22202E09632023343634363436222C
+      0A222E2E09632023343334333433222C0A222B2E09632023343134313430222C
+      0A22402E09632023333433343333222C0A22232E09632023314631463145222C
+      0A222020202020202020202020202E202E202E202E2020202020202020202020
+      202020202020222C0A22202020202020202020202E202E2020202E202E202E20
+      2E2020202E202020202020202020222C0A2220202020202020202E2020202020
+      2020202020202E202E202E202E202020202020202020222C0A22202020202020
+      202020202020202020202020202020202E202E202E202020202020202020222C
+      0A2220202020202020202020202020202020202020202E202E202E202E202020
+      202020202020222C0A2220202B202B202B202B20202020202020202020202020
+      2020202020202020202020202020222C0A222B2040202320242040202B202B20
+      2B202B202B202B202B20202020202020202020202020222C0A222B2023202520
+      26202A202A202A202A202A202A202A202A202E2020202020202020202020222C
+      0A222B203D2026202B202D202D203B203E202C202C20272027202C202E202E20
+      2E2020202020222C0A222B202620292021207E207E207B205D205E202F202820
+      5F203A203C205B207D2020202020222C0A222B2026207C203120322033203420
+      32203520362037203820392030206120202020202020222C0A222B2062206320
+      6420652066206720682069206A206B206C2039206D206E20202020202020222C
+      0A222B206F207020712072207220732074207520762077207820792061202020
+      202020202020222C0A222B2027207A20412042204320442045206B2046204720
+      482049204A202020202020202020222C0A222B204B204C204D204E204F205020
+      51205220532054205520612020202020202020202020222C0A22562057205820
+      59205A20592060206120202E2E2E2B2E402E232E20202020202020202020222C
+      0A22202020202020202020202020202020202020202020202020202020202020
+      202020202020222C0A2220202020202020202020202020202020202020202020
+      2020202020202020202020202020227D3B0A3D0600002F2A2058504D202A2F0A
+      7374617469632063686172202A20636F6C6F725F78706D5B5D203D207B0A2232
+      302032302037312031222C0A22200963204E6F6E65222C0A222E096320234245
+      43314242222C0A222B09632023424543324242222C0A22400963202342454331
+      4241222C0A222309632023424643324242222C0A222409632023413941434136
+      222C0A222509632023374638313743222C0A222609632023303030323232222C
+      0A222A09632023303130353435222C0A223D09632023303230353436222C0A22
+      2D09632023303130333245222C0A223B09632023313031333344222C0A223E09
+      632023314632373742222C0A222C09632023313432433342222C0A2227096320
+      23314634333539222C0A222909632023314534323538222C0A22210963202330
+      4632313243222C0A227E09632023303330413842222C0A227B09632023303430
+      423843222C0A225D09632023303230373544222C0A225E096320233230323737
+      42222C0A222F09632023334634454636222C0A22280963202332393539373622
+      2C0A225F09632023334538364232222C0A223A09632023334438354231222C0A
+      223C09632023303130343345222C0A225B09632023313531413532222C0A227D
+      09632023324133344134222C0A227C09632023314233423446222C0A22310963
+      2023303531423137222C0A223209632023304133363245222C0A223309632023
+      303632343146222C0A223409632023303131443131222C0A2235096320233032
+      33423231222C0A223609632023303233423232222C0A22370963202330343445
+      3234222C0A223809632023303737363337222C0A223909632023303333423142
+      222C0A223009632023303933363245222C0A226109632023313336433543222C
+      0A226209632023313436443544222C0A226309632023304434383345222C0A22
+      6409632023303337363433222C0A226509632023303939443439222C0A226609
+      632023304545443645222C0A226709632023304445433644222C0A2268096320
+      23313436433543222C0A226909632023313436433544222C0A226A0963202330
+      3434463234222C0A226B09632023343835323041222C0A226C09632023393041
+      353135222C0A226D09632023363036453045222C0A226E096320233532324530
+      32222C0A226F09632023413535443035222C0A22700963202335433134304222
+      2C0A227109632023384231453130222C0A227209632023343530463038222C0A
+      227309632023364337433046222C0A227409632023443846383146222C0A2275
+      09632023443946393230222C0A227609632023393041363135222C0A22770963
+      2023374334363034222C0A227809632023463838433038222C0A227909632023
+      443132453139222C0A227A09632023443032443138222C0A2241096320233638
+      31373043222C0A224209632023333633453038222C0A22430963202336433743
+      3130222C0A224409632023343835333041222C0A224509632023334532333032
+      222C0A224609632023333430423036222C0A222E2B2E40232323234040404040
+      40234040404040222C0A222E2425252525252525252525252525252525244022
+      2C0A222E25262A3D3D2D3B3E3E3E3E3B2C272929212540222C0A222E252A7E7B
+      7B5D5E2F2F2F2F5E285F3A3A272540222C0A222E252A7E7B7B5D5E2F2F2F2F5E
+      285F3A3A272540222C0A222E252A7E7B7B5D5E2F2F2F2F5E285F3A3A27254022
+      2C0A222E252D5D5D5D3C5B7D7D7D7D5B7C2828282C2540222C0A222B25313232
+      323334353536353437383838392540222C0A222E253061626263366464646436
+      65666767382540222C0A222E2530616262633664646464366566676738254022
+      2C0A222B25306869626336646464643665666767382540222C0A222B25306162
+      626336646464643665666767382540222C0A222E253132323233343636363634
+      6A383838392540222C0A222E256B6C6C6C6D6E6F6F6F6F6E7071717172254022
+      2C0A222B25737475757677787878787771797A7A412540222C0A222325737475
+      757677787878787771797A7A412540222C0A222E257374757576777878787877
+      71797A7A412540222C0A222B2542434343444577777777457241414146254022
+      2C0A222B24252525252525252525252525252525252440222C0A222E232E4023
+      232323404040404040234040404040227D3B0A
+    }
+  end
+end

examples/listview/testform.lrs

@@ -0,0 +1,213 @@
+{ This is an automatically generated lazarus resource file }
+
+LazarusResources.Add('TForm1','FORMDATA',[
+  'TPF0'#6'TForm1'#5'Form1'#7'Caption'#6#13'Listview test'#12'ClientHeight'#3'+'
+  +#1#11'ClientWidth'#3'Z'#2#18'HorzScrollBar.Page'#3'['#2#18'VertScrollBar.Pag'
+  +'e'#3','#1#4'Left'#3'd'#1#6'Height'#3'+'#1#3'Top'#3#150#0#5'Width'#3'Z'#2#0#9
+  +'TNotebook'#9'Notebook1'#7'Anchors'#11#5'akTop'#7'akRight'#0#9'PageIndex'#2#0
+  +#4'Left'#3#152#1#6'Height'#3#24#1#3'Top'#2#8#5'Width'#3#184#0#0#5'TPage'#5'P'
+  +'age1'#7'Caption'#6#5'Items'#11'ClientWidth'#3#180#0#12'ClientHeight'#3#250#0
+  +#4'Left'#2#2#6'Height'#3#250#0#3'Top'#2#28#5'Width'#3#180#0#0#7'TButton'#7'B'
+  +'utton1'#7'Caption'#6#6'Insert'#8'TabOrder'#2#0#7'OnClick'#7#12'Button1Click'
+  +#4'Left'#2#6#6'Height'#2#25#3'Top'#2'4'#5'Width'#2'K'#0#0#7'TButton'#7'Butto'
+  +'n2'#7'Caption'#6#6'Delete'#8'TabOrder'#2#1#7'OnClick'#7#12'Button2Click'#4
+  +'Left'#2'^'#6'Height'#2#25#3'Top'#2'4'#5'Width'#2'K'#0#0#7'TButton'#7'Button'
+  +'5'#7'Caption'#6#6'Select'#8'TabOrder'#2#2#7'OnClick'#7#12'Button5Click'#4'L'
+  +'eft'#2#6#6'Height'#2#25#3'Top'#2'T'#5'Width'#2'K'#0#0#7'TButton'#7'Button6'
+  +#7'Caption'#6#5'Focus'#8'TabOrder'#2#3#7'OnClick'#7#12'Button6Click'#4'Left'
+  +#2'^'#6'Height'#2#25#3'Top'#2'T'#5'Width'#2'K'#0#0#5'TEdit'#5'Edit1'#8'OnCha'
+  +'nge'#7#11'Edit1Change'#8'TabOrder'#2#4#4'Text'#6#1'0'#8'TabOrder'#2#4#4'Lef'
+  +'t'#2#6#6'Height'#2#23#3'Top'#2#20#5'Width'#2'P'#0#0#5'TEdit'#5'Edit4'#8'OnC'
+  +'hange'#7#11'Edit4Change'#8'TabOrder'#2#5#4'Text'#6#5'Edit4'#8'TabOrder'#2#5
+  +#4'Left'#2#6#6'Height'#2#23#3'Top'#3#132#0#5'Width'#2'P'#0#0#5'TEdit'#5'Edit'
+  +'5'#8'OnChange'#7#11'Edit5Change'#8'TabOrder'#2#6#4'Text'#6#1'0'#8'TabOrder'
+  +#2#6#4'Left'#2'^'#6'Height'#2#23#3'Top'#2#20#5'Width'#2'P'#0#0#6'TLabel'#6'L'
+  +'abel6'#7'Caption'#6#5'Index'#4'Left'#2#6#6'Height'#2#17#3'Top'#2#4#5'Width'
+  +#2'A'#0#0#6'TLabel'#6'Label7'#7'Caption'#6#8'SubIndex'#4'Left'#2'^'#6'Height'
+  +#2#17#3'Top'#2#4#5'Width'#2'A'#0#0#6'TLabel'#6'Label9'#7'Caption'#6#4'Text'#4
+  +'Left'#2#6#6'Height'#2#17#3'Top'#2't'#5'Width'#2'A'#0#0#5'TEdit'#6'Edit10'#8
+  +'OnChange'#7#12'Edit10Change'#8'TabOrder'#2#10#4'Text'#6#2'-1'#8'TabOrder'#2
+  +#10#4'Left'#2'^'#6'Height'#2#23#3'Top'#3#132#0#5'Width'#2'P'#0#0#6'TLabel'#7
+  +'Label10'#7'Caption'#6#10'ImageIndex'#4'Left'#2'^'#6'Height'#2#17#3'Top'#2't'
+  +#5'Width'#2'A'#0#0#0#5'TPage'#5'Page2'#7'Caption'#6#7'Columns'#11'ClientWidt'
+  +'h'#3#180#0#12'ClientHeight'#3#250#0#4'Left'#2#2#6'Height'#3#250#0#3'Top'#2
+  +#28#5'Width'#3#180#0#0#7'TButton'#7'Button3'#7'Caption'#6#6'Insert'#8'TabOrd'
+  +'er'#2#0#7'OnClick'#7#12'Button3Click'#4'Left'#2#6#6'Height'#2#25#3'Top'#2'4'
+  +#5'Width'#2'K'#0#0#7'TButton'#7'Button4'#7'Caption'#6#6'Delete'#8'TabOrder'#2
+  +#1#7'OnClick'#7#12'Button4Click'#4'Left'#2'^'#6'Height'#2#25#3'Top'#2'4'#5'W'
+  +'idth'#2'K'#0#0#5'TEdit'#5'Edit2'#8'OnChange'#7#11'Edit2Change'#8'TabOrder'#2
+  +#2#4'Text'#6#1'0'#8'TabOrder'#2#2#4'Left'#2#6#6'Height'#2#23#3'Top'#2#20#5'W'
+  +'idth'#2'P'#0#0#5'TEdit'#5'Edit3'#8'OnChange'#7#11'Edit3Change'#8'TabOrder'#2
+  +#3#4'Text'#6#5'Edit3'#8'TabOrder'#2#3#4'Left'#2#6#6'Height'#2#23#3'Top'#2'd'
+  +#5'Width'#2'P'#0#0#6'TLabel'#6'Label1'#7'Caption'#6#7'Caption'#4'Left'#2#6#6
+  +'Height'#2#17#3'Top'#2'T'#5'Width'#2'A'#0#0#6'TLabel'#6'Label2'#7'Caption'#6
+  +#5'Width'#4'Left'#2'^'#6'Height'#2#17#3'Top'#2'T'#5'Width'#2'A'#0#0#5'TEdit'
+  +#5'Edit6'#8'OnChange'#7#11'Edit6Change'#8'TabOrder'#2#6#4'Text'#6#1'0'#8'Tab'
+  +'Order'#2#6#4'Left'#2'^'#6'Height'#2#23#3'Top'#2'd'#5'Width'#2'P'#0#0#6'TLab'
+  +'el'#6'Label3'#7'Caption'#6#8'Minwidth'#4'Left'#2#6#6'Height'#2#17#3'Top'#3
+  +#132#0#5'Width'#2'A'#0#0#5'TEdit'#5'Edit7'#8'OnChange'#7#11'Edit7Change'#8'T'
+  +'abOrder'#2#8#4'Text'#6#1'0'#8'TabOrder'#2#8#4'Left'#2#6#6'Height'#2#23#3'To'
+  +'p'#3#148#0#5'Width'#2'P'#0#0#5'TEdit'#5'Edit8'#8'OnChange'#7#11'Edit8Change'
+  +#8'TabOrder'#2#9#4'Text'#6#1'0'#8'TabOrder'#2#9#4'Left'#2'^'#6'Height'#2#23#3
+  +'Top'#3#148#0#5'Width'#2'P'#0#0#6'TLabel'#6'Label4'#7'Caption'#6#8'Maxwidth'
+  +#4'Left'#2'^'#6'Height'#2#17#3'Top'#3#132#0#5'Width'#2'A'#0#0#9'TCheckBox'#9
+  +'CheckBox1'#11'AllowGrayed'#9#8'AutoSize'#9#7'Caption'#6#7'Visible'#10'DragC'
+  +'ursor'#4#244#255#0#0#7'OnClick'#7#14'CheckBox1Click'#8'TabOrder'#2#11#4'Lef'
+  +'t'#2#6#6'Height'#2#20#3'Top'#3#220#0#5'Width'#2'P'#0#0#5'TEdit'#5'Edit9'#8
+  +'TabOrder'#2#12#4'Text'#6#2'-1'#8'TabOrder'#2#12#4'Left'#2#6#6'Height'#2#23#3
+  +'Top'#3#193#0#5'Width'#2'P'#0#0#6'TLabel'#6'Label5'#7'Caption'#6#5'Image'#4
+  +'Left'#2#6#6'Height'#2#17#3'Top'#3#179#0#5'Width'#2'A'#0#0#9'TComboBox'#9'Co'
+  +'mboBox1'#13'Items.Strings'#1#6#13'taLeftJustify'#6#14'taRightJustify'#6#8't'
+  +'aCenter'#0#9'MaxLength'#2#0#8'OnChange'#7#15'ComboBox1Change'#11'ParentCtl3'
+  +'D'#8#8'TabOrder'#2#14#4'Text'#6#13'taLeftJustify'#4'Left'#2'^'#6'Height'#2
+  +#25#3'Top'#3#191#0#5'Width'#2'P'#0#0#9'TCheckBox'#9'CheckBox2'#11'AllowGraye'
+  +'d'#9#8'AutoSize'#9#7'Caption'#6#8'Autosize'#10'DragCursor'#4#244#255#0#0#7
+  +'OnClick'#7#14'CheckBox2Click'#8'TabOrder'#2#15#4'Left'#2'^'#6'Height'#2#20#3
+  +'Top'#3#220#0#5'Width'#2'P'#0#0#6'TLabel'#6'Label8'#7'Caption'#6#5'Index'#4
+  +'Left'#2#6#6'Height'#2#17#3'Top'#2#4#5'Width'#2'A'#0#0#0#0#9'TListView'#9'Li'
+  ,'stView1'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#11'Borde'
+  +'rWidth'#2#2#7'Columns'#14#1#7'Caption'#6#3'One'#7'Visible'#9#5'Width'#2'2'#0
+  +#1#7'Caption'#6#3'Two'#7'Visible'#9#5'Width'#2'2'#0#0#10'Items.Data'#10'R'#0
+  +#0#0'R'#0#0#0#2#0#0#0#0#0#0#0#255#255#255#255#255#255#255#255#2#0#0#0#0#0#0#0
+  +#5'New 1'#5'Sub 1'#5'Sub 2'#255#255#255#255#255#255#255#255#255#255#255#255#0
+  +#0#0#0#0#0#0#0#5'New 2'#0#0#0#0#0#0#0#0#0#0#11'SmallImages'#7#10'ImageList1'
+  +#9'ViewStyle'#7#8'vsReport'#8'OnChange'#7#15'ListView1Change'#7'OnClick'#7#14
+  +'ListView1Click'#13'OnColumnClick'#7#20'ListView1ColumnClick'#12'OnSelectIte'
+  +'m'#7#19'ListView1SelectItem'#4'Left'#2#8#6'Height'#3#24#1#3'Top'#2#8#5'Widt'
+  +'h'#3#136#1#0#0#10'TImageList'#10'ImageList1'#8'OnChange'#7#16'ImageList1Cha'
+  +'nge'#4'left'#3#243#0#3'top'#3#253#1#6'Bitmap'#10#211#28#0#0'li'#4#0#0#0#16#0
+  +#0#0#16#0#0#0'%'#11#0#0'/* XPM */'#10'static char * btn_newform_xpm[] = {'#10
+  +'"15 13 147 2",'#10'"  '#9'c None",'#10'". '#9'c #8D8E93",'#10'"+ '#9'c #7D8'
+  +'391",'#10'"@ '#9'c #798194",'#10'"# '#9'c #80889D",'#10'"$ '#9'c #7C849B",'
+  +#10'"% '#9'c #747A94",'#10'"& '#9'c #8085A2",'#10'"* '#9'c #7B80A0",'#10'"= '
+  +#9'c #7F84A2",'#10'"- '#9'c #7E81A0",'#10'"; '#9'c #7D819C",'#10'"> '#9'c #7'
+  +'A7C93",'#10'", '#9'c #818495",'#10'"'' '#9'c #797B88",'#10'") '#9'c #868992'
+  +'",'#10'"! '#9'c #7C7B8D",'#10'"~ '#9'c #F9F9FF",'#10'"{ '#9'c #870013",'#10
+  +'"] '#9'c #AE0013",'#10'"^ '#9'c #D30013",'#10'"/ '#9'c #FCF4FF",'#10'"( '#9
+  +'c #FEFAFF",'#10'"_ '#9'c #00000E",'#10'": '#9'c #858496",'#10'"< '#9'c #0A0'
+  +'627",'#10'"[ '#9'c #86868E",'#10'"} '#9'c #F7F9FF",'#10'"| '#9'c #F9FCFF",'
+  +#10'"1 '#9'c #FBFBFF",'#10'"2 '#9'c #FBFAFF",'#10'"3 '#9'c #EEEDFF",'#10'"4 '
+  +#9'c #F8F5FF",'#10'"5 '#9'c #FAF8FF",'#10'"6 '#9'c #FBF7FF",'#10'"7 '#9'c #F'
+  +'EFBFF",'#10'"8 '#9'c #FEFCFF",'#10'"9 '#9'c #05040C",'#10'"0 '#9'c #838486"'
+  +','#10'"a '#9'c #FCFFFF",'#10'"b '#9'c #F2F7FA",'#10'"c '#9'c #C6CBCE",'#10
+  +'"d '#9'c #F3F9F9",'#10'"e '#9'c #C3C7C6",'#10'"f '#9'c #C0C5C1",'#10'"g '#9
+  +'c #FCFFFD",'#10'"h '#9'c #C3C5C4",'#10'"i '#9'c #FEFFFF",'#10'"j '#9'c #CAC'
+  +'BCD",'#10'"k '#9'c #F6F7FB",'#10'"l '#9'c #CCCBD1",'#10'"m '#9'c #010008",'
+  +#10'"n '#9'c #848685",'#10'"o '#9'c #F8FCFB",'#10'"p '#9'c #C5CAC6",'#10'"q '
+  +#9'c #FCFFFB",'#10'"r '#9'c #D0D6CC",'#10'"s '#9'c #EFF3E5",'#10'"t '#9'c #C'
+  +'6CABB",'#10'"u '#9'c #F8FCEB",'#10'"v '#9'c #C8CCBB",'#10'"w '#9'c #FAFCEE"'
+  +','#10'"x '#9'c #D0D2C7",'#10'"y '#9'c #FAFBF6",'#10'"z '#9'c #C1C1C3",'#10
+  +'"A '#9'c #FBF8FF",'#10'"B '#9'c #02000D",'#10'"C '#9'c #868686",'#10'"D '#9
+  +'c #FBFDFA",'#10'"E '#9'c #FEFFFB",'#10'"F '#9'c #C6C9C2",'#10'"G '#9'c #FCF'
+  +'FF4",'#10'"H '#9'c #C9CDBF",'#10'"I '#9'c #FEFFF1",'#10'"J '#9'c #BEC3AF",'
+  +#10'"K '#9'c #FEFFEF",'#10'"L '#9'c #CBCEBD",'#10'"M '#9'c #F6F8EB",'#10'"N '
+  +#9'c #CACBC3",'#10'"O '#9'c #FFFFFD",'#10'"P '#9'c #C6C4C9",'#10'"Q '#9'c #0'
+  +'10009",'#10'"R '#9'c #FFFFFF",'#10'"S '#9'c #C2C2C0",'#10'"T '#9'c #C7C7C5"'
+  +','#10'"U '#9'c #FDFEF9",'#10'"V '#9'c #C4C5C0",'#10'"W '#9'c #FBFCF6",'#10
+  +'"X '#9'c #C9CAC4",'#10'"Y '#9'c #FFFFFA",'#10'"Z '#9'c #C1C2BC",'#10'"` '#9
+  +'c #C6C5C0",'#10'" .'#9'c #010000",'#10'"..'#9'c #828282",'#10'"+.'#9'c #FCF'
+  +'CFC",'#10'"@.'#9'c #C2C2C2",'#10'"#.'#9'c #F8F8F8",'#10'"$.'#9'c #C3C3C3",'
+  +#10'"%.'#9'c #CECECE",'#10'"&.'#9'c #F9F9F9",'#10'"*.'#9'c #BEBEBC",'#10'"=.'
+  +#9'c #BEBDB9",'#10'"-.'#9'c #C4C4BC",'#10'";.'#9'c #060600",'#10'">.'#9'c #8'
+  +'58585",'#10'",.'#9'c #B3B3B5",'#10'"''.'#9'c #D3D3D3",'#10'").'#9'c #C0C0BE'
+  +'",'#10'"!.'#9'c #FAFAF8",'#10'"~.'#9'c #CACAC8",'#10'"{.'#9'c #C4C4C2",'#10
+  +'"].'#9'c #000000",'#10'"^.'#9'c #848484",'#10'"/.'#9'c #C4C4C6",'#10'"(.'#9
+  +'c #F5F5F7",'#10'"_.'#9'c #CBCBCD",'#10'":.'#9'c #F7F7F9",'#10'"<.'#9'c #CDC'
+  +'DCF",'#10'"[.'#9'c #F8F8FA",'#10'"}.'#9'c #C8C8CA",'#10'"|.'#9'c #D4D4D4",'
+  +#10'"1.'#9'c #808080",'#10'"2.'#9'c #F9F9FB",'#10'"3.'#9'c #CAC9CE",'#10'"4.'
+  +#9'c #FFFEFF",'#10'"5.'#9'c #C6C5CD",'#10'"6.'#9'c #FFFDFF",'#10'"7.'#9'c #C'
+  +'9C7D4",'#10'"8.'#9'c #F7F5FF",'#10'"9.'#9'c #CDCBD8",'#10'"0.'#9'c #C9C8D0"'
+  +','#10'"a.'#9'c #F7F6FC",'#10'"b.'#9'c #C5C5C7",'#10'"c.'#9'c #F4F6F3",'#10
+  +'"d.'#9'c #000200",'#10'"e.'#9'c #949494",'#10'"f.'#9'c #060606",'#10'"g.'#9
+  +'c #000002",'#10'"h.'#9'c #040308",'#10'"i.'#9'c #000005",'#10'"j.'#9'c #000'
+  +'007",'#10'"k.'#9'c #000009",'#10'"l.'#9'c #04020F",'#10'"m.'#9'c #08070F",'
+  +#10'"n.'#9'c #020204",'#10'"o.'#9'c #0D0F0C",'#10'"p.'#9'c #000100",'#10'". '
+  +'+ @ # $ % & * = - ; > , '' ) ",'#10'"! ~ { { { { { ] ] ^ ^ / ^ ( _ ",'#10'"'
+  +': { { { { ] ] ] ^ ^ ^ ^ ^ < _ ",'#10'"[ } | 1 1 2 3 2 4 5 6 7 8 8 9 ",'#10
+  +'"0 a b c d e a f g h i j k l m ",'#10'"n o p q r s t u v w x y z A B ",'#10
+  +'"C D E F G H I J K L M N O P Q ",'#10'"C R S O T U V W X Y Z Y ` Y  .",'#10
+  +'"..+.R @.#.$.R %.&.*.O =.Y -.;.",'#10'">.R ,.R ''.R ).O T !.~.O {.!.].",'#10
+  +'"^.R R /.(./.R _.:.<.[.}.R |.].",'#10'"1.2.3.4.5.6.7.8.9.6.0.a.b.c.d.",'#10
+  +'"e.f.g.h.i.j.k.l.k.k.m.i.n.o.p."};'#10'8'#2#0#0'/* XPM */'#10'static char *'
+  ,' btn_newunit_xpm[] = {'#10'"11 13 21 1",'#10'" '#9'c None",'#10'".'#9'c #00'
+  +'0000",'#10'"+'#9'c #0C0C0C",'#10'"@'#9'c #FEFEFE",'#10'"#'#9'c #FFFFFF",'#10
+  +'"$'#9'c #FAFAFA",'#10'"%'#9'c #070707",'#10'"&'#9'c #F3F3F3",'#10'"*'#9'c #'
+  +'FCFCFC",'#10'"='#9'c #020202",'#10'"-'#9'c #090909",'#10'";'#9'c #F8F8F8",'
+  +#10'">'#9'c #010101",'#10'",'#9'c #FBFBFB",'#10'"'''#9'c #F0F0F0",'#10'")'#9
+  +'c #FDFDFD",'#10'"!'#9'c #F7F7F7",'#10'"~'#9'c #030303",'#10'"{'#9'c #0A0A0A'
+  +'",'#10'"]'#9'c #050505",'#10'"^'#9'c #040404",'#10'"..+..+..   ",'#10'".@##'
+  +'#$#%.  ",'#10'".@##@#&.#. ",'#10'".@###*@=..-",'#10'".@##;###$#.",'#10'".@#'
+  +'##;$###>",'#10'".@##,@#''),.",'#10'".@####!###=",'#10'".@###$)#,).",'#10'"~'
+  +'!###,##);%",'#10'">#!#)#)###.",'#10'">,#,##!$),+",'#10'"{..=~..+].^"};'#10
+  +#27#9#0#0'/* XPM */'#10'static char * btn_openfile_xpm[] = {'#10'"18 18 97 2'
+  +'",'#10'"  '#9'c None",'#10'". '#9'c #000000",'#10'"+ '#9'c #4E331B",'#10'"@'
+  +' '#9'c #E5A566",'#10'"# '#9'c #FED39A",'#10'"$ '#9'c #FEC585",'#10'"% '#9'c'
+  +' #FDC587",'#10'"& '#9'c #FEC282",'#10'"* '#9'c #F8AC62",'#10'"= '#9'c #FEC8'
+  +'8A",'#10'"- '#9'c #53504D",'#10'"; '#9'c #55524F",'#10'"> '#9'c #5C5A57",'
+  +#10'", '#9'c #54514E",'#10'"'' '#9'c #565350",'#10'") '#9'c #C4864E",'#10'"!'
+  +' '#9'c #524F4C",'#10'"~ '#9'c #F5F5F5",'#10'"{ '#9'c #ECECEC",'#10'"] '#9'c'
+  +' #E4E4E4",'#10'"^ '#9'c #DCDCDC",'#10'"/ '#9'c #D4D4D4",'#10'"( '#9'c #CBCB'
+  +'CB",'#10'"_ '#9'c #C4C4C4",'#10'": '#9'c #BCBCBC",'#10'"< '#9'c #B5B5B5",'
+  +#10'"[ '#9'c #B3B3B3",'#10'"} '#9'c #303030",'#10'"| '#9'c #4A3119",'#10'"1 '
+  +#9'c #DBDBDB",'#10'"2 '#9'c #DFDFDE",'#10'"3 '#9'c #E8E8E7",'#10'"4 '#9'c #E'
+  +'6E6E4",'#10'"5 '#9'c #D2D2D1",'#10'"6 '#9'c #C7C7C6",'#10'"7 '#9'c #BABAB9"'
+  +','#10'"8 '#9'c #ADADAC",'#10'"9 '#9'c #A0A09F",'#10'"0 '#9'c #949493",'#10
+  +'"a '#9'c #494948",'#10'"b '#9'c #B77D44",'#10'"c '#9'c #53514E",'#10'"d '#9
+  +'c #DADADA",'#10'"e '#9'c #DBDBDA",'#10'"f '#9'c #E1E1E0",'#10'"g '#9'c #DDD'
+  +'DDC",'#10'"h '#9'c #D6D6D5",'#10'"i '#9'c #CBCBCA",'#10'"j '#9'c #C1C1C0",'
+  +#10'"k '#9'c #B6B6B5",'#10'"l '#9'c #A9A9A8",'#10'"m '#9'c #686867",'#10'"n '
+  +#9'c #222221",'#10'"o '#9'c #493018",'#10'"p '#9'c #CDCDCD",'#10'"q '#9'c #C'
+  +'ACAC9",'#10'"r '#9'c #D5D5D4",'#10'"s '#9'c #D2D2D0",'#10'"t '#9'c #CCCCCB"'
+  +','#10'"u '#9'c #C2C2C1",'#10'"v '#9'c #B9B9B8",'#10'"w '#9'c #AFAFAE",'#10
+  +'"x '#9'c #A2A2A1",'#10'"y '#9'c #959594",'#10'"z '#9'c #CECECE",'#10'"A '#9
+  +'c #BEBEBC",'#10'"B '#9'c #C4C4C2",'#10'"C '#9'c #C6C6C5",'#10'"D '#9'c #C3C'
+  +'3C2",'#10'"E '#9'c #BFBFBE",'#10'"F '#9'c #AEAEAD",'#10'"G '#9'c #A5A5A4",'
+  +#10'"H '#9'c #9E9E9D",'#10'"I '#9'c #6F6F6E",'#10'"J '#9'c #121212",'#10'"K '
+  +#9'c #BDBDBD",'#10'"L '#9'c #A6A6A5",'#10'"M '#9'c #AAAAA8",'#10'"N '#9'c #A'
+  +'DADAB",'#10'"O '#9'c #AEAEAC",'#10'"P '#9'c #ABABAA",'#10'"Q '#9'c #A7A7A6"'
+  +','#10'"R '#9'c #A1A1A0",'#10'"S '#9'c #9A9A99",'#10'"T '#9'c #949492",'#10
+  +'"U '#9'c #8D8D8B",'#10'"V '#9'c #232323",'#10'"W '#9'c #4A4A4A",'#10'"X '#9
+  +'c #4A4A49",'#10'"Y '#9'c #4C4C4B",'#10'"Z '#9'c #4C4C4C",'#10'"` '#9'c #4B4'
+  +'B4A",'#10'" .'#9'c #464646",'#10'"..'#9'c #434343",'#10'"+.'#9'c #414140",'
+  +#10'"@.'#9'c #343433",'#10'"#.'#9'c #1F1F1E",'#10'"            . . . .      '
+  +'           ",'#10'"          . .   . . . .   .         ",'#10'"        .   '
+  +'        . . . .         ",'#10'"                      . . .         ",'#10
+  +'"                    . . . .         ",'#10'"  + + + +                     '
+  +'      ",'#10'"+ @ # $ @ + + + + + + +             ",'#10'"+ # % & * * * * *'
+  +' * * * .           ",'#10'"+ = & + - - ; > , , '' '' , . . .     ",'#10'"+ '
+  +'& ) ! ~ ~ { ] ^ / ( _ : < [ }     ",'#10'"+ & | 1 2 3 4 2 5 6 7 8 9 0 a    '
+  +'   ",'#10'"+ b c d e f g h i j k l 9 m n       ",'#10'"+ o p q r r s t u v '
+  +'w x y a         ",'#10'"+ '' z A B C D E k F G H I J         ",'#10'"+ K L '
+  +'M N O P Q R S T U a           ",'#10'"V W X Y Z Y ` a  ...+.@.#.          "'
+  +','#10'"                                    ",'#10'"                        '
+  +'            "};'#10'='#6#0#0'/* XPM */'#10'static char * color_xpm[] = {'#10
+  +'"20 20 71 1",'#10'" '#9'c None",'#10'".'#9'c #BEC1BB",'#10'"+'#9'c #BEC2BB"'
+  +','#10'"@'#9'c #BEC1BA",'#10'"#'#9'c #BFC2BB",'#10'"$'#9'c #A9ACA6",'#10'"%'
+  +#9'c #7F817C",'#10'"&'#9'c #000222",'#10'"*'#9'c #010545",'#10'"='#9'c #0205'
+  +'46",'#10'"-'#9'c #01032E",'#10'";'#9'c #10133D",'#10'">'#9'c #1F277B",'#10
+  +'",'#9'c #142C3B",'#10'"'''#9'c #1F4359",'#10'")'#9'c #1E4258",'#10'"!'#9'c '
+  +'#0F212C",'#10'"~'#9'c #030A8B",'#10'"{'#9'c #040B8C",'#10'"]'#9'c #02075D",'
+  +#10'"^'#9'c #20277B",'#10'"/'#9'c #3F4EF6",'#10'"('#9'c #295976",'#10'"_'#9
+  +'c #3E86B2",'#10'":'#9'c #3D85B1",'#10'"<'#9'c #01043E",'#10'"['#9'c #151A52'
+  +'",'#10'"}'#9'c #2A34A4",'#10'"|'#9'c #1B3B4F",'#10'"1'#9'c #051B17",'#10'"2'
+  +#9'c #0A362E",'#10'"3'#9'c #06241F",'#10'"4'#9'c #011D11",'#10'"5'#9'c #023B'
+  +'21",'#10'"6'#9'c #023B22",'#10'"7'#9'c #044E24",'#10'"8'#9'c #077637",'#10
+  +'"9'#9'c #033B1B",'#10'"0'#9'c #09362E",'#10'"a'#9'c #136C5C",'#10'"b'#9'c #'
+  ,'146D5D",'#10'"c'#9'c #0D483E",'#10'"d'#9'c #037643",'#10'"e'#9'c #099D49",'
+  +#10'"f'#9'c #0EED6E",'#10'"g'#9'c #0DEC6D",'#10'"h'#9'c #146C5C",'#10'"i'#9
+  +'c #146C5D",'#10'"j'#9'c #044F24",'#10'"k'#9'c #48520A",'#10'"l'#9'c #90A515'
+  +'",'#10'"m'#9'c #606E0E",'#10'"n'#9'c #522E02",'#10'"o'#9'c #A55D05",'#10'"p'
+  +#9'c #5C140B",'#10'"q'#9'c #8B1E10",'#10'"r'#9'c #450F08",'#10'"s'#9'c #6C7C'
+  +'0F",'#10'"t'#9'c #D8F81F",'#10'"u'#9'c #D9F920",'#10'"v'#9'c #90A615",'#10
+  +'"w'#9'c #7C4604",'#10'"x'#9'c #F88C08",'#10'"y'#9'c #D12E19",'#10'"z'#9'c #'
+  +'D02D18",'#10'"A'#9'c #68170C",'#10'"B'#9'c #363E08",'#10'"C'#9'c #6C7C10",'
+  +#10'"D'#9'c #48530A",'#10'"E'#9'c #3E2302",'#10'"F'#9'c #340B06",'#10'".+.@#'
+  +'###@@@@@@#@@@@@",'#10'".$%%%%%%%%%%%%%%%%$@",'#10'".%&*==-;>>>>;,''))!%@",'
+  +#10'".%*~{{]^////^(_::''%@",'#10'".%*~{{]^////^(_::''%@",'#10'".%*~{{]^////^'
+  +'(_::''%@",'#10'".%-]]]<[}}}}[|(((,%@",'#10'"+%1222345565478889%@",'#10'".%0'
+  +'abbc6dddd6efgg8%@",'#10'".%0abbc6dddd6efgg8%@",'#10'"+%0hibc6dddd6efgg8%@",'
+  +#10'"+%0abbc6dddd6efgg8%@",'#10'".%12223466664j8889%@",'#10'".%klllmnoooonpq'
+  +'qqr%@",'#10'"+%stuuvwxxxxwqyzzA%@",'#10'"#%stuuvwxxxxwqyzzA%@",'#10'".%stuu'
+  +'vwxxxxwqyzzA%@",'#10'"+%BCCCDEwwwwErAAAF%@",'#10'"+$%%%%%%%%%%%%%%%%$@",'#10
+  +'".#.@####@@@@@@#@@@@@"};'#10#0#0#0
+]);

examples/listview/testform.pp

@@ -0,0 +1,308 @@
+unit testform;
+
+{$mode objfpc} {$H+} 
+
+interface
+
+uses
+  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ComCtrls,
+  Buttons, StdCtrls, ExtCtrls;
+
+type
+  TForm1 = class(TForm)
+    Button1: TButton;
+    Button2: TButton;
+    Button3: TButton;
+    Button4: TButton;
+    Button5: TButton;
+    Button6: TButton;
+    CheckBox1: TCheckBox;
+    CheckBox2: TCheckBox;
+    ComboBox1: TComboBox;
+    Edit1: TEdit;
+    Edit10: TEdit;
+    Edit2: TEdit;
+    Edit3: TEdit;
+    Edit4: TEdit;
+    Edit5: TEdit;
+    Edit6: TEdit;
+    Edit7: TEdit;
+    Edit8: TEdit;
+    Edit9: TEdit;
+    ImageList1: TImageList;
+    Label1: TLabel;
+    Label10: TLabel;
+    Label2: TLabel;
+    Label3: TLabel;
+    Label4: TLabel;
+    Label5: TLabel;
+    Label6: TLabel;
+    Label7: TLabel;
+    Label8: TLabel;
+    Label9: TLabel;
+    ListView1: TListView;
+    Notebook1: TNotebook;
+    Page1: TPage;
+    Page2: TPage;
+    procedure Button1Click(Sender: TObject);
+    procedure Button2Click(Sender: TObject);
+    procedure Button3Click(Sender: TObject);
+    procedure Button4Click(Sender: TObject);
+    procedure Button5Click(Sender: TObject);
+    procedure Button6Click(Sender: TObject);
+    procedure CheckBox1Click (Sender: TObject );
+    procedure CheckBox2Click (Sender: TObject );
+    procedure ComboBox1Change (Sender: TObject );
+    procedure Edit10Change (Sender: TObject );
+    procedure Edit1Change (Sender: TObject );
+    procedure Edit2Change (Sender: TObject );
+    procedure Edit3Change(Sender: TObject);
+    procedure Edit4Change(Sender: TObject);
+    procedure Edit5Change(Sender: TObject);
+    procedure Edit6Change(Sender: TObject);
+    procedure Edit7Change(Sender: TObject);
+    procedure Edit8Change(Sender: TObject);
+    procedure ImageList1Change(Sender: TObject);
+    procedure ListView1Change(Sender: TObject; Item: TListItem; Change: TItemChange);
+    procedure ListView1Click(Sender: TObject);
+    procedure ListView1ColumnClick(Sender: TObject; Column: TListColumn);
+    procedure ListView1SelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
+  private
+    procedure ShowItemData;
+    procedure ShowColumnData;
+  public
+    { public declarations }
+  end; 
+
+var
+  Form1: TForm1; 
+
+implementation
+
+{ TForm1 }
+
+procedure TForm1.Button1Click(Sender: TObject);
+var
+  Item: TListItem;
+begin
+  Item := ListView1.Items.Insert(StrToIntDef(Edit1.Text, 0));
+  Item.Caption := Format('Item %d', [ListView1.Items.Count]);
+end;
+
+procedure TForm1.Button2Click(Sender: TObject);
+var
+  Item: TListItem;
+begin
+  Item := ListView1.Items[StrToIntDef(Edit1.Text, 0)];
+  Item.Free;
+end;
+
+procedure TForm1.Button3Click(Sender: TObject);
+var
+  Column: TListColumn;
+begin
+  Column := ListView1.Columns.Add;
+  Column.Caption := Format('Column %d', [ListView1.Columns.Count]);
+  Column.Index := (StrToIntDef(Edit2.Text, 0));
+end;
+
+procedure TForm1.Button4Click(Sender: TObject);
+var
+  Column: TListColumn;
+begin
+  Column := ListView1.Columns[StrToIntDef(Edit2.Text, 0)];
+  Column.Free;
+end;
+
+procedure TForm1.Button5Click(Sender: TObject);
+var
+  Item: TListItem;
+begin
+  Item := ListView1.Items[StrToIntDef(Edit1.Text, 0)];
+  Item.Selected := True;
+end;
+
+procedure TForm1.Button6Click(Sender: TObject);
+var
+  Item: TListItem;
+begin
+  Item := ListView1.Items[StrToIntDef(Edit1.Text, 0)];
+  Item.Focused := True;
+end;
+
+procedure TForm1.CheckBox1Click(Sender: TObject);
+var
+  Column: TListColumn;
+begin
+  Column := ListView1.Columns[StrToIntDef(Edit2.Text, 0)];
+  Column.Visible := CheckBox1.Checked;
+end;
+
+procedure TForm1.CheckBox2Click(Sender: TObject);
+var
+  Column: TListColumn;
+begin
+  Column := ListView1.Columns[StrToIntDef(Edit2.Text, 0)];
+  Column.Autosize := CheckBox2.Checked;
+end;
+
+procedure TForm1.ComboBox1Change (Sender: TObject );
+var
+  Column: TListColumn;
+begin
+  Column := ListView1.Columns[StrToIntDef(Edit2.Text, 0)];
+  Column.Alignment := TAlignment(ComboBox1.ItemIndex);
+end;
+
+procedure TForm1.Edit10Change(Sender: TObject);
+var
+  Item: TListItem;
+  n, idx: Integer;
+  
+begin
+  Item := ListView1.Items[StrToIntDef(Edit1.Text, 0)];
+
+  for n := Item.SubItems.Count to ListView1.Columns.Count - 2 do
+    Item.Subitems.Add('');
+
+  n := StrToIntDef(Edit5.Text, 0);
+  if n >= ListView1.Columns.Count then Exit;
+  idx := StrToIntDef(Edit10.Text, -1);
+  if n = 0
+  then Item.ImageIndex := idx
+  else Item.SubitemImages[n - 1] := idx;
+
+end;
+
+procedure TForm1.Edit1Change(Sender: TObject);
+begin
+  ShowItemData;
+end;
+
+procedure TForm1.Edit2Change(Sender: TObject);
+begin
+  ShowColumnData;
+end;
+
+procedure TForm1.Edit3Change(Sender: TObject);
+var
+  Column: TListColumn;
+begin
+  Column := ListView1.Columns[StrToIntDef(Edit2.Text, 0)];
+  Column.Caption := Edit3.Text;
+end;
+
+procedure TForm1.Edit4Change(Sender: TObject);
+var
+  Item: TListItem;
+  n: Integer;
+begin
+  Item := ListView1.Items[StrToIntDef(Edit1.Text, 0)];
+  for n := Item.SubItems.Count to ListView1.Columns.Count - 2 do
+    Item.Subitems.Add('');
+  n := StrToIntDef(Edit5.Text, 0);
+  if n >= ListView1.Columns.Count then Exit;
+  if n = 0
+  then Item.Caption := Edit4.Text
+  else Item.Subitems[n - 1] := Edit4.Text;
+end;
+
+procedure TForm1.Edit5Change(Sender: TObject);
+begin
+  ShowItemData;
+end;
+
+procedure TForm1.Edit6Change(Sender: TObject);
+var
+  Column: TListColumn;
+begin
+  Column := ListView1.Columns[StrToIntDef(Edit2.Text, 0)];
+  Column.Width := StrToIntDef(Edit6.Text, 0);
+end;
+
+procedure TForm1.Edit7Change (Sender: TObject );
+var
+  Column: TListColumn;
+begin
+  Column := ListView1.Columns[StrToIntDef(Edit2.Text, 0)];
+  Column.MinWidth := StrToIntDef(Edit7.Text, 0);
+end;
+
+procedure TForm1.Edit8Change (Sender: TObject );
+var
+  Column: TListColumn;
+begin
+  Column := ListView1.Columns[StrToIntDef(Edit2.Text, 0)];
+  Column.MaxWidth := StrToIntDef(Edit8.Text, 0);
+end;
+
+procedure TForm1.ImageList1Change(Sender: TObject);
+begin
+
+end;
+
+procedure TForm1.ListView1Change(Sender: TObject; Item: TListItem; Change: TItemChange);
+begin
+
+end;
+
+procedure TForm1.ListView1Click(Sender: TObject);
+begin
+
+end;
+
+procedure TForm1.ListView1ColumnClick(Sender: TObject; Column: TListColumn);
+begin
+  Edit2.Text := IntToStr(Column.Index);
+end;
+
+procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
+var
+  subIdx: Integer;
+begin
+  if not Selected then Exit;
+  Edit1.Text := IntToStr(Item.Index);
+end;
+
+procedure TForm1.ShowItemData;
+var
+  Item: TListItem;
+  idx: Integer;
+begin
+  Item := ListView1.Items[StrToIntDef(Edit1.Text, 0)];
+
+  idx := StrToIntDef(Edit5.Text, 0);
+  if idx = 0
+  then begin
+    Edit4.Text := Item.Caption;
+    Edit10.Text := IntToStr(Item.ImageIndex);
+
+    Exit;
+  end;
+  if Item.SubItems.Count <= idx - 1 then Exit;
+
+  Edit4.Text := Item.SubItems[idx - 1];
+  Edit10.Text := IntToStr(Item.SubItemImages[idx - 1]);
+end;
+
+procedure TForm1.ShowColumnData;
+var
+  Column: TListColumn;
+begin
+  Column := ListView1.Columns[StrToIntDef(Edit2.Text, 0)];
+
+  Edit3.Text := Column.Caption;
+  Edit6.Text := IntToStr(Column.Width);
+  Edit7.Text := IntToStr(Column.MinWidth);
+  Edit8.Text := IntToStr(Column.MaxWidth);
+  Edit9.Text := IntToStr(Column.Imageindex);
+  ComboBox1.ItemIndex := Ord(Column.Alignment);
+  CheckBox1.Checked := Column.Visible;
+  CheckBox2.Checked := Column.AutoSize;
+end;
+
+initialization
+  {$I testform.lrs}
+
+end.
+