Da raznishtim TListView!!!

1. Cvetovete v TListView...

kak da promenia cveta na hottrackinga i cveta na selekciata v TLisView?

i edin otdelen vypros zashto hottrackinga sys hover=1 se zabavia a pyk s 10 e po byrz. No i v dvata slu4aia ne e dostaty4no byrz ta da sledi 1:1 mishkata?

2. Search v TListView...

Kak shte izglejda funkcia za tyrsene na itemi ako imam popylnen ListView sys mnogo captioni i subitemi?

Ideiata e slednata vyv edin TEdit napisvam stringa koyto shte se tyrsi. Za da vzema stringa ot Edit1 controlata shte se izpolzva slednia kod:
--------------------------------------------------------------------------------------------
var
str : String;

procedure TMainForm.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
Mgs : TMsg;
begin
// tva e za da premahne bipkata pri Enter
If Key=vk_return Then PeekMessage(Mgs, 0, WM_CHAR, WM_CHAR, PM_REMOVE);

str:=Edit1.Text;
end;
--------------------------------------------------------------------------------------------
texta se zapisva v promenlivata str koiato tribva da se podade na search funkciata. Funkciata triabva da nameri nay blizkoto vyzmojno do vyvedenia string i da go selektira kato ne promenia focusa na Edit1. Funkciata tribva da raboti za celia ListView a ne samo za captionite t.e. tribva da pravi search i na subitemite. Ako elementite doblijavashti se do stringa sa pove4e ot edin tribva da se selektirat, primerno ako vyv ListView-to ima 5 captiona i 3 subitema zapo4vashti sys "pri" tribva da se selektirat ednovremeno i posle da se deselectirat ako stringa se ovili4i sys "merno" i obshto celia string stane "primerno", a ima samo edin caption sys stoynost "primerno" i taka shte ostane samo tozi caption.
Za potrebitelia MultiSelect=False.
i ako vse oshte ima niakoy koyto da 4ete i iska da mi pomogne mu blagodaria

xeon_bg@yahoo.com

---------------------------------
Da raznishtim TListView!!!
---------------------------------
- to4no towa prawia w momenta - samo 4e az si prawia
DBListView - t.e. sastoto ama swarzano taka 4e da pokazwa danni ot BD


------------
1. Cvetovete v TListView...

kak da promenia cveta na hottrackinga i cveta na selekciata v TLisView?
------------

Cwetowete sa hardcoded - maj - kato si smenish cwetowete w Win-a stawa

-------------
i edin otdelen vypros zashto hottrackinga sys hover=1 se zabavia a pyk s 10 e po byrz. No i v dvata slu4aia ne e dostaty4no byrz ta da sledi 1:1 mishkata?
-------------
Ne e li wreme za upgrade???? [meq se]
Az niamam podobni problemi - proveri wse pak kakwo e natowarwaneto na CPU -to w momenta w kojto se dwijesh w-hu lista - moeto ne nadhwarlia 25% (kato razbira se towa wklu4wa dosta raboti (Delphi + programa + ...... - + IE w kojto pisha w momenta )

Po poslednia wapros te ostawiam da se poma4ish malko - ne e tolkowa trudno - prosto e malko igra4ka

A i kato namerish prili4en otgowor - go pusni tuk - moze da mi potriabwa ;-)))) - ako ne sam go napisal sam

---
Е т'ва е живот!

pyrvo kat stava duma za cvetove iskam da smenia cvetovete programno ne stava duma za niakvi si prostotii(Windows temi)
vtoro problema e may 4e napravih upgrade shoto Thunderbird-1000MHz RAM-128MB i kofti HDD-540MB may go izpylniava tolkova byrzo 4e se zabata4va a pyk otnosno procentite ne sym proveriaval no predpolagam ne pove4e 5-6% shoto obiknoveno kogato rabota neshto az rabotia samo s nego vsi4ko ostanalo e SHUTDOWN xe xe xe

i takaaa prodyljavam az da si kopam i nakraia she go napravia da naish i she go publikuvam v novia sait xe xe xe

E moiata sistema e dosta "po - malka" kato skorost - i wazmoznosti - ama kakto kazwat horata - po dobre ka4estweno otkolkoto ....

-------
may go izpylniava tolkova byrzo 4e se zabata4va
-------
Taka za praw pat 4uwam podobno nesto - milia 4e ideiata na po Megahercowite komputri e da rabtiat bo barzo a ne da se zabata4wat ot ocewetiawaneto na edin ListBox

Oswen towa ne razbiram zasto triabwa da Shutwam wsi4kite si procesi - nali OS e za towa da moze da warwi wsi4ko - i triabwa da ti kaza 4e mnogo ama izklu4itelno riadko imam problemi, wupreki 4e si pozwoliawam dosta "luksowe" da stoiat otworeni


Taka - sled kato temata izleze ot ramkite na foruma mislia 4e triabwa da prekratim debata po towa - iawno imash localen problem - prosto go razreshi i towa e

---
Е т'ва е живот!

Обработваш OnCustomDrawItem или OnCustomDrawSubItem

Procedure TMyForm.tMyListViewCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
Begin
if cdsHot in State then
begin
MyListView.Canvas.Font.Color:=.....
MyListView.Canvas.Brush.Color:=.....
end;
if cdsSelected in State then ......
...............................................
DefaultDraw:=True;
End;