I  mean every subitems from the list (report mode), not just the caption, editing done within the list itself. Or any third-party TListView derived from Delphi TListView that do allow it (not TVirtualStringTree).  Thanks.

<richard poulin> wrote in message news:104692@forums.codegear.com...

> I  mean every subitems from the list (report mode), not just the caption,
> editing done within the list itself.

How to use the Build-in Editor of TListView to Edit SubItems
http://cc.embarcadero.com/Item/23873

-- 
Remy Lebeau (TeamB)

> {quote:title=Remy Lebeau (TeamB) wrote:}{quote}
> <richard poulin> wrote in message news:104692@forums.codegear.com...
> 
> > I  mean every subitems from the list (report mode), not just the caption,
> > editing done within the list itself.
> 
> How to use the Build-in Editor of TListView to Edit SubItems
> http://cc.embarcadero.com/Item/23873
> 
> -- 
> Remy Lebeau (TeamB)

That's it. Thank.

On Wed, 15 Apr 2009 12:37:37 -0700, Remy Lebeau (TeamB)
<no.spam@no.spam.com> wrote:

><richard poulin> wrote in message news:104692@forums.codegear.com...
>
>> I  mean every subitems from the list (report mode), not just the caption,
>> editing done within the list itself.
>
>How to use the Build-in Editor of TListView to Edit SubItems
>http://cc.embarcadero.com/Item/23873

Looks like a lot of Form level code...
Isn't there something one can do to the component itself so this
behaviour will be available everywhere one uses the TListView?

Like making a TMyListview = class(TlistView) with some changes like:
Event for the subitem click:

OnSubItemClick(Sender: Tobject; Item: TListItem; Index, ColumnIndex:
integer);

This would indicate the exact subitem clicked and can be used to
transfer its contents into an editbox on the side of the list
(spreadsheet style).

A decendant of TListView with the added event as above and also some
kind of property AllowSubItemEdit that if set makes the clicked
subitem editable would really be useful.

--

Bo Berglund
Developer in Sweden

> {quote:title=Bo Berglund wrote:}{quote}
> On Wed, 15 Apr 2009 12:37:37 -0700, Remy Lebeau (TeamB)
> <no.spam@no.spam.com> wrote:
> 
> ><richard poulin> wrote in message news:104692@forums.codegear.com...
> >
> >> I  mean every subitems from the list (report mode), not just the caption,
> >> editing done within the list itself.
> >
> >How to use the Build-in Editor of TListView to Edit SubItems
> >http://cc.embarcadero.com/Item/23873
> 
> Looks like a lot of Form level code...
> Isn't there something one can do to the component itself so this
> behaviour will be available everywhere one uses the TListView?
> 
> Like making a TMyListview = class(TlistView) with some changes like:
> Event for the subitem click:
> 
> OnSubItemClick(Sender: Tobject; Item: TListItem; Index, ColumnIndex:
> integer);
> 
> This would indicate the exact subitem clicked and can be used to
> transfer its contents into an editbox on the side of the list
> (spreadsheet style).
> 
> A decendant of TListView with the added event as above and also some
> kind of property AllowSubItemEdit that if set makes the clicked
> subitem editable would really be useful.
> 
> --
> 
> Bo Berglund
> Developer in Sweden

Yes that will be a good idea. May be TAdvListView from TMS does it? 

Originally i used InputQuery...

Something like this:

// modify any items in TListView - Report mode: 
procedure TForm1.ModifySubItemClick(Sender: TObject);

var
   s, s1: string;

begin
s :=Listview1.Items.Item[Listview1.ItemIndex].Caption;
s1 := s;
InputQuery('Protocole', '', s1);
Listview1.Items.Item[Listview1.ItemIndex].Caption := s1;

s := Listview1.Items.Item[Listview1.ItemIndex].SubItems[0];
s1 := s;
InputQuery('Adresse IP Source', '', s1);
Listview1.Items.Item[Listview1.ItemIndex].SubItems[0] := s1;

.....
 
Indeed, not very smart !

On Wed, 15 Apr 2009 12:37:37 -0700, Remy Lebeau (TeamB)
<no.spam@no.spam.com> wrote:

><richard poulin> wrote in message news:104692@forums.codegear.com...
>
>> I  mean every subitems from the list (report mode), not just the caption,
>> editing done within the list itself.
>
>How to use the Build-in Editor of TListView to Edit SubItems
>http://cc.embarcadero.com/Item/23873

I tried this on my own form but it failed miserably....

Here are just a few of the depressingly many errors generated (line
numbers added to lines for reference to error list below):

function GetComCtl32Version: DWORD;
type
(70)  DLLGETVERSIONPROC = function(var dvi: DLLVERSIONINFO): Integer;
stdcall;
(71)  DLLVERSIONINFO = packed record
    cbSize: DWORD;
    dwMajorVersion: DWORD;
    dwMinorVersion: DWORD;
    dwBuildNumber: DWORD;
    dwPlatformID: DWORD;
  end;
var
  hComCtrl32: HMODULE;
  lpDllGetVersion: DLLGETVERSIONPROC;
  dvi: DLLVERSIONINFO;
(82)  FileName: array[MAX_PATH+1] of Char;
(83)  dwHandle: DWORD;
(84)  dwSize: DWORD;
  pData: Pointer;
  pVersion: Pointer;
  uiLen: UINT;
begin
  if ComCtl32Version = 0 then
  begin
    hComCtrl32 := GetModuleHandle('comctl32.dll');
(92)    if hComCtrl32 <> nil then
    begin
(94)      @lpDllGetVersion = GetProcAddress(hComCtrl32,
'DllGetVersion');
      if @lpDllGetVersion <> nil then
      begin
(97)        FillChar(@dvi, SizeOf(dvi), 0);
        dvi.cbSize = SizeOf(dvi);
        if lpDllGetVersion(dvi) >= 0 then
          ComCtl32Version := MAKELONG(Word(dvi.dwMajorVersion),
Word(dvi.dwMinorVersion));
      end;
      if ComCtl32Version = 0 then
      begin
        FillChar(FileName, SizeOf(FileName), 0);
        if GetModuleFileName(hComCtrl32, FileName, MAX_PATH) <> 0 then
        begin
          dwHandle := 0;
          dwSize := GetFileVersionInfoSize(FileName, dwHandle);
          if dwSize <> 0 then
          begin
            pData := LocalAlloc(LPTR, dwSize);
            if pData <> nil then
            begin
              if GetFileVersionInfo(FileName, dwHandle, dwSize, pData)
then
              begin
                pVersion := nil;
                uiLen := 0;
                if VerQueryValue(pData, '\', pVersion, uiLen) then
                begin
                  with PVSFixedFileInfo(pVersion)^ do
                    ComCtl32Version := MAKELONG(Word(dwFileVersionMS),
Word(dwFileVersionLS));
                end;
              end;
              LocalFree(pData);
            end;
          end;
        end;
      end;
    end;
  end;
  Result := ComCtl32Version;
end;

List of errors:
===============
[Error] FormCompareLeads.pas(70): Undeclared identifier:
'DLLVERSIONINFO'

[Error] FormCompareLeads.pas(71): Identifier redeclared:
'DLLVERSIONINFO'

[Error] FormCompareLeads.pas(82): '..' expected but ']' found

[Error] FormCompareLeads.pas(83): Constant expression expected
[Error] FormCompareLeads.pas(83): ',' or ':' expected but ';' found

[Error] FormCompareLeads.pas(84): Constant or type identifier expected

[Error] FormCompareLeads.pas(92): Operator not applicable to this
operand type

[Error] FormCompareLeads.pas(94): ':=' expected but '=' found

[Error] FormCompareLeads.pas(97): Constant object cannot be passed as
var parameter

And the list just goes on and on with a ton of errors! Can't copy them
all into this post. :-(

I have checked the uses clauses but the one in the example and the one
on my form correspond (I have all the units you have listed).

So what is the problem here, really? Was this tested at all?

BTW: I am using Delphi 7 Professional, does this matter????

--

Bo Berglund
Developer in Sweden

Bo


Possibly a silly question, but if you're using it with ViewStyle = vsReport why not use a stringgrid, either Delphi's own or any of the much prettier options out there?

Roy Lambert

On Mon, 20 Apr 2009 01:43:36 -0700, Roy Lambert
<roy.lambert@skynet.co.uk> wrote:

>Bo
>
>
>Possibly a silly question, but if you're using it with ViewStyle = vsReport 
>why not use a stringgrid, either Delphi's own or any of the much prettier 
>options out there?
>
>Roy Lambert

I've never used a striggrid except I once or twice looked at it and it
looks so ugly...
Also the height of the rows is at least twice as much as the Listview
and since I have a *lot* of rows such things matter. In one list
currently there is 15.000 rows and 30 columns, and I can see a lot on
each screenful. The stringgrid seems to be able to only show about
half as much as the listview...

But I'll have a look at it again and see if it might be a good
replacement anyway.

How do I find the "much prettier" ones "out there"?

Thanks for the pointer.
 
--

Bo Berglund
Developer in Sweden

Bo

>I've never used a striggrid except I once or twice looked at it and it
>looks so ugly..

Agreed
...
>Also the height of the rows is at least twice as much as the Listview
>and since I have a *lot* of rows such things matter. In one list
>currently there is 15.000 rows and 30 columns, and I can see a lot on
>each screenful. The stringgrid seems to be able to only show about
>half as much as the listview...

Look at DefaultRowHeight and Options.goVertLine and Options.goHorzLine

>But I'll have a look at it again and see if it might be a good
>replacement anyway.
>
>How do I find the "much prettier" ones "out there"?

www.tmssoftware.com
www.devexpress.com

These will have their own built in editors

Also have a look on www.torry.net - there may be a freebie that will do what you want

Roy Lambert

On Mon, 20 Apr 2009 03:35:43 -0700, Bo Berglund wrote:

> How do I find the "much prettier" ones "out there"?

You could try virtual tree view.
http://www.soft-gems.net/index.php?option=com_content&task=view&id=12&Itemid=33

-- 
Marc Rohloff [TeamB]
marc -at- marc rohloff -dot- com

About: http://cc.embarcadero.com/Item/23873
----------------------
I can not compile either using Delphi 2007 / Delphi 2009. (D5 looks OK).  

Third Party Test:

DevExpress ListView : has no built in editor as far as i can see.  
TMS advListView: has built in editor and individual cell selector in report mode (press F2 on the selected cell to edit).

On Mon, 20 Apr 2009 08:04:31 -0700, richard poulin <> wrote:

>About: http://cc.embarcadero.com/Item/23873
>----------------------
>I can not compile either using Delphi 2007 / Delphi 2009. (D5 looks OK).  

And I can't compile using Delphi 7 Pro....
Seems like it cannot be done at all, so I will start looking at the
TStringGrid replacements available on the net instead...

>Third Party Test:
>
>DevExpress ListView : has no built in editor as far as i can see.  
>TMS advListView: has built in editor and individual cell selector in report mode (press F2 on the selected cell to edit).

--

Bo Berglund
Developer in Sweden

"Bo Berglund" <bo.berglund@nospam.com> wrote in message 
news:106560@forums.codegear.com...

> Looks like a lot of Form level code...
> Isn't there something one can do to the component itself so
> this behaviour will be available everywhere one uses the
> TListView?

ListView controls simply do not natively support editing sub-items inlined, 
so the edit control has to be manipulated manually on a per-ListView basis.

> Like making a TMyListview = class(TlistView) with some changes like:
<snip>
> A decendant of TListView with the added event as above and also some
> kind of property AllowSubItemEdit that if set makes the clicked
> subitem editable would really be useful.

I had considered wrapping my code in such a descendant before, but I just 
don't have any time to implement it myself.  I'm already years behind in 
releasing new versions of my existing components.

-- 
Remy Lebeau (TeamB)