|
Тема |
Da raznishtim TListView!!! |
|
Автор |
XE () |
|
Публикувано | 05.02.02 08:23 |
|
|
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
|
| |
|
|
|