Delphi | SEclub.org
Delphi
Все новые
А вот за одно на держи код который изменит вид лист бокса. Только в ствойствах нужно поменять Стиль на lbOwnerDrawFixed а в событиях Листбокса процедура onDrawItem пишеш: With ListBox1 do begin If odSelected in State then Canvas.Brush.Color:="00BCBCFF // Цвет выделения else Canvas.Brush.Color:=clWhite; // Фон Canvas.FillRect(Rect); Canvas.TextOut(Rect.Left+2,Rect.Top,Items[Index]); // Отступ вверху и слева. end;

Ссылка на пост
Всего сообщений: 1912
*
IceMage
19 окт 2008 в 05:31
Ultimus, ftp как лучше делать, на неблокирующих сокетах или на блокирующих с антифризом? В тотал коммандере, например, на блокирующих, раздражает, однако! )))
*
Ultimus
19 окт 2008 в 18:53
Уж извяни с FTP в Delphi не работал, нооо была где то у меня одна программка, суть в том что можно было создать свои FTP...сам ее не изучал но если найду могу скинуть название. Надо?
*
IceMage
20 окт 2008 в 03:28
Ultimus, не, программок не надо.
*
Gaist_Endruy
20 окт 2008 в 09:19
MoteX - ну вот к примеру у тебя на форме есть Listbox, и ты хочеш сделать поиск по нем. лучше всего делать быстрый поиск. Нужно еще добавить на форму компонент TEdit.
*
Gaist_Endruy
20 окт 2008 в 09:24
MoteX - теперь когда у тебя на форме и ListBox и Edit то нужно в событиях Edit>OnChange прописать следующий код (Процедура): ListBox1.Perform(LB_SELECTSTRING,-1,longint(Pchar(Edit1.text)));
*
Gaist_Endruy
20 окт 2008 в 09:25
MoteX - если не пашет то скажи может гдето допустил ошибку, писал с памяти. Там где смайлик появился там закрываеш код.
*
Gaist_Endruy
20 окт 2008 в 09:29
А вот за одно на держи код который изменит вид лист бокса. Только в ствойствах нужно поменять Стиль на lbOwnerDrawFixed а в событиях Листбокса процедура onDrawItem пишеш: With ListBox1 do begin If odSelected in State then Canvas.Brush.Color:="00BCBCFF // Цвет выделения else Canvas.Brush.Color:=clWhite; // Фон Canvas.FillRect(Rect); Canvas.TextOut(Rect.Left+2,Rect.Top,Items[Index]); // Отступ вверху и слева. end;
*
Gaist_Endruy
20 окт 2008 в 09:30
MoteX - Тоже возможно где нить ошибка в знакках но прости уж с памяти. ггг
*
Gaist_Endruy
20 окт 2008 в 09:32
Для работы с FTP есть компоненты. И в хелпе все подробно описано как с ними работать.
*
Gaist_Endruy
20 окт 2008 в 09:33
!ceMage - делай на блокирующих.
*
Gaist_Endruy
20 окт 2008 в 09:36
=S@nek= - константу напиши. проще всетаки.
*
Gaist_Endruy
21 окт 2008 в 09:31
А вот еще по List Box ListBox.Items.Add(Edit1.Text); " Добавление новых строк с Едита в ЛистБокс. ListBox.Clear; "Чистим (очищаем). ListBox1.Sorted := not ListBox.Sorted; "Сортировка.
Для полноценного использования разделов сайта войдите или зарегистрируйтесь.
Создание сайтов и программирование | Компьютеры | Форум | Главная
18+ © Seclub.org 2003-2026