Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Diverse ListView fragen ;( (https://www.delphipraxis.net/65081-diverse-listview-fragen-%3B.html)

delphinia 12. Mär 2006 03:16


Diverse ListView fragen ;(
 
Hallo ich habe ein paar viele Probleme/Fragen zu der ListView Komponente:


1) Habe ich bei den Icons einen schwarzen Rand - diesen habe ich nun geschaft wegzubekommen, dafür sind die Icons enorm Pixelig!

2) Das verschieben der Icons gelingt mir nicht so recht - versuche das gleiche verhalten zu erreichen wie man es vom WindowsDesktop gewohnt ist


3) Wenn ich über mit der Maus über die Einträge fahre, sollen diese sofort makiert werden - zur Zeit dauert es ein paar Sekunden bis dieses autoamtisch geschieht!


Danke Euch für Eure Hilfe.....

Gruss Doreen

marabu 12. Mär 2006 07:51

Re: Diverse ListView fragen ;(
 
Hallo Doreen,

ich fürchte, dein Beitrag ist etwas zu allgemein gehalten. Als Leser quälen mich die klassischen W-Fragen (was, wie, womit, warum, ...) - aber nicht sehr lange...

Freundliche Grüße vom marabu

Wishmaster 12. Mär 2006 07:56

Re: Diverse ListView fragen ;(
 
Hi

1) Die Icons sollten die selbe Größe haben wie deine Einstellungen in der TImageList


2)
Delphi-Quellcode:
{ ListView1.DragMode := dmAutomatic }

procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
  DragItem, DropItem, CurrentItem, NextItem: TListItem;
begin
  if Sender = Source then
    with TListView(Sender) do
    begin
      DropItem   := GetItemAt(X, Y);
      CurrentItem := Selected;
      while CurrentItem <> nil do
      begin
        NextItem := GetNextItem(CurrentItem, SdAll, [IsSelected]);
        if DropItem = nil then DragItem := Items.Add
        else
          DragItem := Items.Insert(DropItem.Index);
        DragItem.Assign(CurrentItem);
        CurrentItem.Free;
        CurrentItem := NextItem;
      end;
    end;
end;

procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState;
  var Accept: Boolean);
begin
  Accept := Sender = ListView1;
end;

3) Setz HoverTime auf 1 dann sollte es funzen

delphinia 12. Mär 2006 08:24

Re: Diverse ListView fragen ;(
 
Liste der Anhänge anzeigen (Anzahl: 1)
1) siehe angehängtes Bild

2) teste ich gleich - und werde feefback geben..

3) hmm wie peinlich ;( sorry hät ich auch selbst draufkommen könnne.
dachte aber da es auf -1 stand das dies schon das "schnellste" ist ;)

Sharky 12. Mär 2006 08:27

Re: Diverse ListView fragen ;(
 
Hai delphinia,

mache doch bitte für jede einzelne Frage einen eigenen Thread auf. Dann haben andere auch die Chanze über die Suchfunktion eine Lösung zu finden.

Danke.

delphinia 12. Mär 2006 08:30

Re: Diverse ListView fragen ;(
 
hmmm genau das wollte ich nicht - hatte das erst überlegt 3 Beiträge zu schreiben - aber es gibt auch Foren die das nicht so besonders mögen wen es sich doch um die ein und gleiche gleiche Komponente handelt ergo ;) hmmm und nun?


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:28 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz