frage zu Tlistview!

[Zero1]

so als wäre es ein Editfeld *g

lg.

[MrKnogge]

Also von Haus aus unterstützt die TListView das nicht, daher schau dir mal, wie von Luckie empfohlen, die VirtualListView von Mike Lischke an.

Ein weiterer Weg wäre eventuell, dass du an der Position des Feldes einfach ein Edit zeichnest. In folgendem Thema geht es darum, eine Progressbar in einer Listbox zu zeichnen, dass kannst du ebenso mit einem TEdit machen:
http://www.delphipraxis.net/internal...ct.php?t=18522

Gruß

[Zero1]

okay :) hat mit super geholfen :D

nun bleiben noch 2 fragen :(

hoffe ihr könnt mir wieder so super helfen :P


also frage 1:

wie kann ich das so einstellen das wenn zb ZEILE 2 makiert ist das nur in dieser zeile was geändert/verändert wird?



frage 2:

ich würd gerne per popupmenu die eine gewünschte zeile die farbe ändern aber irgendwie haut das nicht hin :/

hat da vielleicht jemand nen plan?

danke danke danke schon mal im voraus :)

lg.

edit
frage1 konnte ich gerade selber beantworten *g*
mit focused^^

lg.

[Zero1]

push!

pls help :/

lg.

[bitsetter]

Du kannst ja mal folgenden Code probieren, der gewählte Eintrag wird grün dargestellt.

Delphi-Quellcode:

         //onClick Ereigneis für das Menü
procedure TForm1.farbigmachen1Click(Sender: TObject);
begin
  RedrawWindow(ListView1.Handle, nil, 0, RDW_INVALIDATE);//alte Farbe löschen
  //ListView1.Tag speichert die Position des markierten Eintrages
  ListView1.Tag:= ListView1.ItemIndex+ 1;
end;
          //Event onCustomDrawItem im OI zuweisen
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if ListView1.Tag- 1=  Item.Index then
  Sender.Canvas.Brush.Color := clLime
  else
  Sender.Canvas.Brush.Color := ListView1.Color;
end;

[Zero1]

danke bitsetter klappt alles super :D

nur das prob die farbe lässt sich nicht speichern?:/


lg.

[MrKnogge]

zero1, mach bitte zu jeder Frage einen neuen Thread auf, sonst weis hier am Ende keiner mehr um was es geht.

Gruß

[Zero1]

hi und sry das ich diesen alten thread wieder hochschiebe aber durch den plattencrash hab ich alle datein verloren :(

und nu weiß ich nicht mehr weiter

es geht wieder um das gleiche nur diesmal weiß ich nicht wie ich jede x-belibige zeile ändern kann

mit der hilfe von MrKnogge...

Delphi-Quellcode:

procedure form1.BitBtn1Click(Sender: TObject);
begin
 if edit1.Enabled then
 listview1.Items.Item[0].SubItems[0] := edit1.text;
 if edit2.Enabled then
 listview1.Items.Item[0].SubItems[1] := edit2.text;
 if edit3.Enabled then
 listview1.Items.Item[0].SubItems[2] := edit3.text;
end;

damit lässt sich in der listview die erste zeile ändern! was ich möchte ist, dass ich jede x-belibige zeile ändern kann!

ich wusste mal wie (irgendwas mit focused) aber es klappt nicht :(

vielleicht wisst ihr ja weiter

danke und lg.

[bitsetter]

Hi,

meinst du etwa sowas?

Delphi-Quellcode:

 if ListView1.SelCount> 0 then
   listview1.Selected.SubItems[0]:= Edit1.Text;

[Zero1]

@bitsetter, Vielen DANK!