Listview problem

[Brian]

Hi,

I have a listview. I know how many rows there are, and I know how many columns
there are

What I want to do is copy each full line into a new line. So Line 1 would be copied, and
make a new Line 2; the original Line 2 would then become Line 3, and that is copied,
and make a new Line 4, and so on

Can't get my head round this one. Any ideas, please?

Brian

[LarryMc]

What are you going to do with line one(which is the same as line two) after the copying is done?

Just guessing here:
If you are just wanting to push everything down so you can add to the list at he top
all you have to do is insert @ pos=0

CONTROLCMD window | dialog, ID, @LVINSERTITEM, position, item$

Use this statement to insert an item into the list view control.

Position is the zero-based index of the item to insert.

Item$ is the text of the item

If for some reason you want line 1 and 2 to be the same then still use insert @ pos=0 and then copy the contents of line 2 into line 1

Regardless of what you ultimately want to do you can not be using either of the sort flags when you create the listview. If you are using one of them the listview will automatically position the inserted line whereever it calculates it belongs.

LarryMc

[Brian]

Hi, Larry,

Fixed that little problem. Now on to the next!

Just wondered if it was possible, when you had a listview opened, if there
was a command to check how many columns there were. There's obviously
one to check how many lines there are, just wondered about columns

Brian

[LarryMc]

Code Select Expand

CONST LVM_FIRST = 0x1000
CONST LVM_SETEXTENDEDLISTVIEWSTYLE = (LVM_FIRST + 54)
CONST LVS_EX_FULLROWSELECT = 0x20
CONST LVS_EX_GRIDLINES = 1
CONST LVS_EX_FLATSB = 0x100
CONST LVS_EX_LABELTIP = 0x4000

type LVCOLUMN
 UINT mask
 int fmt
 int cx
 string pszText
 int cchTextMax
 int iSubItem
 int iOrder
 int iImage
endtype

CONST LVCF_ORDER = &H20
CONST LVM_FIRST = &H1000
CONST LVM_GETCOLUMNA = (LVM_FIRST + 25)

def d1 as Dialog
LVCOLUMN lvc

CREATEDIALOG d1,0,0,295,168,0x80C80080,0,"Column Count Demo",&handler
CONTROL d1,@LISTVIEW,"",27,10,240,110,@LVSREPORT|@BORDER|@LVSSHOWSELALWAYS,100
CONTROL d1,@button,"Col Count",27,125,240,20,0,300
CONTROL d1,@STATIC,"",27,150,240,20,0,200
'show the dialog and wait for it to close
domodal d1
'end program
end

SUB handler
select @MESSAGE
case @IDINITDIALOG
centerwindow d1
'insert columns and some items
'after an item is inserted we use @LVSETTEXT to
'change the subitems text
CONTROLCMD d1,100,@LVINSERTCOLUMN,0,"Column1"
CONTROLCMD d1,100,@LVINSERTCOLUMN,1,"Column2"
CONTROLCMD d1,100,@LVINSERTCOLUMN,2,"Column3"
CONTROLCMD d1,100,@LVINSERTCOLUMN,3,"Column4"
'the first columns item and sub items
CONTROLCMD d1,100,@LVINSERTITEM,0,"Item 1"
CONTROLCMD d1,100,@LVSETTEXT,0,1,"Sub 1"
CONTROLCMD d1,100,@LVSETTEXT,0,2,"Sub 2"
'the second column
CONTROLCMD d1,100,@LVINSERTITEM,1,"Item 2"
CONTROLCMD d1,100,@LVSETTEXT,1,1,"Sub 1"
'the third column
CONTROLCMD d1,100,@LVINSERTITEM,2,"Item 3"
'change some of the listview extended styles
SENDMESSAGE d1,LVM_SETEXTENDEDLISTVIEWSTYLE,0,LVS_EX_FLATSB|LVS_EX_FULLROWSELECT|LVS_EX_GRIDLINES|LVS_EX_LABELTIP,100

case @IDCONTROL
SELECT @CONTROLID
CASE 300
IF @NOTIFYCODE = 0
blocked = GetState(d1,300)
lvc.mask=LVCF_ORDER
x=-1
do
x++
until sendmessage (d1,LVM_GETCOLUMNA,x,lvc,100 )=0
setcontroltext d1 ,200, "LV has"+str$(x)+" columns"
endif
ENDSELECT
endselect
return
ENDSUB


LarryMc

[Brian]

Many thanks, Larry,

Fitted and working, just as I wanted it to

Brian