Newsgroup: it.comp.lang.delphi
Titolo: ListView.Items.AddItem????

Scusate ma che c'è in questa proc che non va????
procedure TForm1.ListView1DblClick(Sender: TObject);
begin
  ListView2.Items.AddItem(ListView1.Selected);
end;
Mi aggiunge l'item e il relativo subitem, però non mi mostra niente
nella caption.
(mi sento un po' newbie...)
--
Jax


  ABLS Team (
www.abls.it
)

procedure TForm1.Button1Click(Sender: TObject);
var
  MyItem: TListItem;
  MyListView: TListView;
  ListColumn: TListColumn;
begin
  MyListView := TListView.Create(Form1);
  MyListView.Parent := Form1;
  MyListView.Align := alClient;
  MyListView.ViewStyle := vsReport;
  ListColumn := MyListView.Columns.Add;
  ListColumn.Caption := 'Papa`';
  ListColumn := MyListView.Columns.Add;
  ListColumn.Caption := 'Figlio1';
  ListColumn := MyListView.Columns.Add;
  ListColumn.Caption := 'Figlio2';
  ListColumn := MyListView.Columns.Add;
  ListColumn.Caption := 'Figlio3';
  MyItem := MyListView.Items.Add;
  MyItem.Caption := 'Disney';
  MyItem.SubItems.Add('pippo');
  MyItem.SubItems.Add('pluto');
  MyItem.SubItems.Add('paperino');
end;

 intervenire.
Scusa se insisto, però cito l'help:
Call AddItem to add an Item at any place in the list.
*The properties of Item are duplicated if Item is not nil.*
Allora è una palla!
--
Jax

"Jax" <rispo...@newsgroup.grazie> ha scritto nel messaggio
news:hO4I9.50870$qF1.2...@news2.tin.it...

Ho controllato il codice del metodo AddItem. Credo che ci sia un "buco". :-(
Usa il metodo che ti ha indicato Andrea Laforgia inserendo manualmente un
nuovo nodo e impostandone le proprietà affinchè rispecchino quelle del "nodo
sorgente".
Ciao!


 "buco". :-(
Dalla versione 1 è il mio primo "buco" di delphi... che emozione :))))
--
Jax

"Jax" <rispo...@newsgroup.grazie> ha scritto nel messaggio
news:8tXI9.47254$fa.14...@news1.tin.it...

Magari qualcun altro può confermare... a mio avviso, esaminando il codice e
leggendo il comportamento del metodo AddItem che tentavi di utilizzare, mi
sembra che non sia corretto.
Ciao! :-)


 *The properties of Item are duplicated if Item is not nil.*
...
Scusa ma a che versione di Delphi ti riferisci? Nell'help di d6 pro il
metodo AddItem e' non documentato per la classe TListItems.
In ogni caso, se l'item esiste lo ritorna, altrimenti lo crea. Inoltre
fa un inserimento sul controllo Win32.
Saluti
Paolo Arosio

 metodo AddItem e' non documentato per la classe TListItems.
Uh? Anch'io ho D6 e copypasto:
TListItems.AddItem
Adds an item in a specified location.
function AddItem(Item: TListItem; Index: Integer = -1): TListItem;
Description
Call AddItem to add an Item at any place in the list. The properties of
Item are duplicated if Item is not nil. Index is location of the added
item; if Index is negative, the TListItem is appended to the end of the
list.
AddItem returns the TListItem that was added.
--
Jax


Update 2? boh: Ci ho riguardato e del6vcl.hlp non mi fa vedere AddItem
nella lista di metodi di TListItems
(e non lo trovo neanche attraverso la pagina Trova)
Misteri degli upgrade.
Saluti
Paolo Arosio

 nella lista di metodi di TListItems
I don't know... io ho la 6 liscia però.
--
Jax

nella lista di metodi di TListItems
Neanche a me (ho D6 Ent), i metodi tratti dall'help:
In TListItems:
Add
Assign
BeginUpdate
Clear
Create
Delete
Destroy
EndUpdate
IndexOf
Insert
SetCount

 Neanche a me (ho D6 Ent), i metodi tratti dall'help:
Avete ragione! C'è ma è nell'help CLX! Chiedo venia.
--
Jax

"Jax"

Non c'e' problema (anzi, meglio cosi'). Il punto e' che nel codice c'e'
(e non e' sotto compilazione condizionale, a quel che vedo) e nella vcl
non e' documentato: si saranno accorti del bug di documentazione o cosa?
Dopo lungo lottare (per ogni cosa mi dava due voci) ho levato l'help
della CLX.
Saluti
Paolo Arosio

 della CLX.
Uhm, volevo farlo anch'io ma non so come...
--
Jax

 Uhm, volevo farlo anch'io ma non so come...
Menu Help|Customize... da tutte e tre le pagine levi ogni riferimento ai
file di help della CLX (dlx1clx.hlp) e relativi TOC e CNT
Saluti
Paolo Arosio