![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Плей-лист [D6, Win2k]
Kair. © (2004-10-29 07:23:00)Какие специфичные для плей-листов свойства и функции он должен иметь?
antonn (2004-11-19 13:16:00) [1]
> НЕКАТИТ
> Всё катит...
может ему не нравится?
Kair (2004-11-19 11:11:00) [2]Всё катит...
Kair (2004-11-19 04:38:00) [3]Хм... пойду сегодня на каких-нибудь других компах попробую установить...
Clampo (2004-11-18 22:20:00) [4]НЕКАТИТ
clampo (2004-11-09 22:03:00) [5]Вышли на 6-ю
Kair (2004-11-08 16:36:00) [6]
> clampo © (06.11.04 22:20) [25]
> > Kair Да я скачал его... Вышли, пожалуйста работающий(clampo@bk.ru)
Для D5 и D6 рабочие.
Для D7 компонента нет.
clampo (2004-11-06 22:20:00) [7]> Kair Да я скачал его... Вышли, пожалуйста работающий(clampo@bk.ru)
Kair (2004-11-06 20:36:00) [8]Сделал компонент и для Delphi 5.
> clampo © (05.11.04 22:22) [22]
> Нет у меня Delphi 7
Хм, наверное и там чего-нибудь борландисты намутили для несовместимости версий.
Жаль вот Delphi 7 нет.
> antonn © (06.11.04 09:38) [23]
>
> > Kair © (05.11.04 20:28) [21]
>
> Ты ему DCU прислал?
Я ему компонент не посылал (у меня тогда возможности не было). Он, скорее всего, скачал его...
to antonn:
Как там со цветом выделенных итемов. Работает?
P.S. А у тебя, я так понимаю, проблем с таким сообщением нет...
antonn (2004-11-06 09:38:00) [9]
> Kair © (05.11.04 20:28) [21]
Ты ему DCU прислал?
clampo (2004-11-05 22:22:00) [10]Нет у меня Delphi 7
Kair (2004-11-05 20:28:00) [11]> clampo © (03.11.04 23:11) [19]
> Kair, что-то твой компонент не устанавлиавется. Требует
> какой-то Playlist.pas ?
Оказывается дело в том, что компонент разрабатывался в Delphi 6. А у тя, скорее всего, Delphi 5. Поскольку именно в нем и возникает такое сообщение. И не только в этом проблема - в пятой версии у компонента-предка нет некоторых свойств и методов, а потому все-равно компилироваться не будет. Так что могу только посоветовать использовать Delphi шестой версии. Ну, или если что попробую переписать компонент для пятой Delphi.
Kair (2004-11-04 08:09:00) [12]
> antonn © (03.11.04 15:28) [18]
>
> > Kair.
>
> Про листбох: можешь поставить красное выделение без стран..ненужной
> рамки?
Могу конечно:
CODE>
with PlayList1 do
begin
Style := lbOwnerDrawFixed; // чтобы свойства работали
SelItemColor := clRed; // цвет выделенного итема
ShowFocus := False; // чтобы рамка вокруг итема не рисовалась
end;<
P.S. Слово "стран.." я понимаю как "странной". Правильно понимаю?
> clampo © (03.11.04 23:11) [19]
> Kair, что-то твой компонент не устанавлиавется. Требует
> какой-то Playlist.pas ?
Посмотрю...
clampo (2004-11-03 23:11:00) [13]Kair, что-то твой компонент не устанавлиавется. Требует
какой-то Playlist.pas ?
antonn (2004-11-03 15:28:00) [14]
> Kair.
Про листбох: можешь поставить красное выделение без стран..ненужной рамки? Я не смог, поэтому создал свой контрол.
antonn (2004-11-03 15:24:00) [15]
> А перетаскивание с использованием Ctrl и Shift это че такое?
Это когда с зажатым контролом (CTLR, multiselect) несколько строк перемещаются(соблюдая постоение(кор. смотри ВыньАмп))
А селект в ЛистБохе все равно рисуется виндой:(
Kair. (2004-11-03 08:33:00) [16]to antonn: Вобщем проверил под Вин98 - работатет. Ты просто, наверное, инфу не читал...
А перетаскивание с использованием Ctrl и Shift это че такое?
Kair. (2004-11-03 07:14:00) [17]Так, вобщем переписал заново перетаскивание файлов из проводника - теперь работает.
> antonn © (02.11.04 16:17) [13]
>
> > Kair © (01.11.04 11:42) [7]
> > TListBox
>
>
> У тебя цвет select стандартный, виндовозный. Так? Это из
> бад...
Че там не так? Какая у тебя Винда, может из-за этого? Я тестил под Win2k. Свойство SelItemColor ставил?
> Анонимщик © (02.11.04 17:42) [14]
> Какую же хрень вы делаете
Какую хрень?
Анонимщик (2004-11-02 17:42:00) [18]Какую же хрень вы делаете
antonn (2004-11-02 16:17:00) [19]
> Kair © (01.11.04 11:42) [7]
> TListBox
У тебя цвет select стандартный, виндовозный. Так? Это из бад...
Файлы принимал так(щас не так, нр это работает):
procedure TiPlayListAdv.WMDropFiles(var Message: TWMDropFiles);
var aFile: array [0..255] of Char;
FilesCount,N : Integer;
begin
inherited;
FilesCount := DragQueryFile(Message.drop, $FFFFFFFF, nil, 0); {так можно узнать сколько файлов перетягивается}
begin for N := 0 to FilesCount - 1 do begin DragQueryFile(Message.drop, N, aFile, 256);
AddFilePLAuto(aFile);//собственно добавление
end;
end;
DragFinish(Message.Drop);
end;
[lamer]Barmaglot (2004-11-02 13:35:00) [20]Чего не получается? Код покажи...