Последние записи
- Пример заполнения динамического массива
- Исходник нахождения обратной матрицы
- Нужен ли сайт разработчику?
- Обсуждаем технологию I2P
- Как запустить программу указанную в Edit.Text
- Скачать файл с использованием потока
- Поиск слова в Memo
- Распаковщик формата .img из GTA San Andreas
- Подсчет количества повторяющихся букв в файле
- Простейший скрипт загрузки картинки с помощью php
1st
Апр
Выбрать программно последний пункт в ListBox
Собственно можно ли как то программно ставить фокус на последний элемент в списке? (читать всё…)
20th
Янв
Перенос значений из ListBox в Memo через разделитель
Нужно значения из ListBox перенести в Memo и разделить их «,». Нужно, чтобы после последнего значения, внесенного в Мемо, не было в конце запятой. (читать всё…)
31st
Окт
Пример нахождения символа под курсором в ListBox
Имеется два листбокса, при нажатии на строку в 1-ом листбоксе во второй записывается символ, над которым расположен курсор. Вопрос в том как отследит номер символа в строке (читать всё…)
14th
Окт
Процедура поиска в ListBox
1. Есть ListBox, есть Edit. Составьте пожалуйста процедуру поиска в ListBox строчки, значение которой соответствует значению Edit.Text, с последующим удалением этой строчки.
2. На форме есть Edit. Есть ListBox. Составьте пожалуйста процедуру переноса рандомной строчки из ListBox’а в Edit. (читать всё…)
4th
Май
Как автоматически заполнить ListBox?
День добрый! Вот такой вопрос – имеется ListBox и Edit, надо что бы вписывая напрмер в Edit число 6 и при нажатие на кнопку в ListBox прописывалось 6 строчек от 1-го до 6-ти. (читать всё…)
23rd
Фев
Копировать содержиое listbox
Last:
Здравствуйте, есть два listbox’а, надо скопировать элементы из одного в другой. Пишу на Си:
разобрался, код выглядит так:
case IDL_BUTTON_ADD_ALL:
switch (whi)
{
case BN_CLICKED:
{
int i = 0, n;
n = SendMessage(GetDlgItem(hwnd, IDL_LIST_FILENAME) ,LB_GETCOUNT,0,0);
for (i = 0; i < n; i++)
{
LPTSTR *String = (LPTSTR*)malloc(1024*sizeof(TCHAR));
SendMessage(GetDlgItem(hwnd, IDL_LIST_FILENAME), LB_GETTEXT, i, (LPARAM)String);
SendMessage(GetDlgItem(hwnd, IDL_LIST_SEL_FILENAME), LB_ADDSTRING, 0, (LPARAM)String);
free(String);
}
}
}
return 0;Syhi-подсветка кода
switch (whi)
{
case BN_CLICKED:
{
int i = 0, n;
n = SendMessage(GetDlgItem(hwnd, IDL_LIST_FILENAME) ,LB_GETCOUNT,0,0);
for (i = 0; i < n; i++)
{
LPTSTR *String = (LPTSTR*)malloc(1024*sizeof(TCHAR));
SendMessage(GetDlgItem(hwnd, IDL_LIST_FILENAME), LB_GETTEXT, i, (LPARAM)String);
SendMessage(GetDlgItem(hwnd, IDL_LIST_SEL_FILENAME), LB_ADDSTRING, 0, (LPARAM)String);
free(String);
}
}
}
return 0;Syhi-подсветка кода
26th
Окт
Заполнение StringGrid из ListBox c извлечением имени
мне надо убрать расширение у файлов и показывать только имя.
18th
Окт
ListBox как проводник
Добрый день.
У меня сейчас имеется ComboBox в котором идет выбор локального диска, после того как я выбрал диск в ListBox появляется все папки и файлы на этом диске. Вопрос: как сделать переход по директориям в ListBox , чтобы можно было ходить по папкам как в проводнике)
20th
Сен
Изменение цвета шрифта надписи в выделенной ячейки ListBox
Stilet:
Выставь свойство Style:=lbOwnerDrawFixed
И опиши два обработчика:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
with TListBox(Control) do begin
if index=ItemIndex then
Canvas.font.Color
:=clred
else
Canvas.font.Color:=clblack;
Canvas.FillRect(rect);
Canvas.TextOut(rect.Left,rect.Top,items[index]);
end;
end;
Rect: TRect; State: TOwnerDrawState);
begin
with TListBox(Control) do begin
if index=ItemIndex then
Canvas.font.Color
:=clred
else
Canvas.font.Color:=clblack;
Canvas.FillRect(rect);
Canvas.TextOut(rect.Left,rect.Top,items[index]);
end;
end;
procedure TForm1.ListBox1Click(Sender: TObject);
begin
ListBox1.Repaint;
end;
5th
Июл
Изменение цвета шрифта надписи в ListBox
Stilet:
Вполне.
Выставь свойство Style:=lbOwnerDrawFixed
И опиши два обработчика:procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
with TListBox(Control) do begin
if index=ItemIndex then
Canvas.font.Color:=clred
else
Canvas.font.Color:=clblack;
Canvas.FillRect(rect);
Canvas.TextOut(rect.Left,rect.Top,items[index]);
end;
end;procedure TForm1.ListBox1Click(Sender: TObject);
begin
ListBox1.Repaint;
end;