Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

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-подсветка кода

тема на форуме

Добавлено в Пост-обзор. Дата Февраль 23rd, 2011

28th
Окт

Как создать в listbox события OnChange и OnChanging?

(читать всё…)

Добавлено в Пост-обзор. Дата Октябрь 28th, 2010

27th
Окт

Как втавить Image в ListBox?

(читать всё…)

Добавлено в Пост-обзор. Дата Октябрь 27th, 2010

26th
Окт

Заполнение StringGrid из ListBox c извлечением имени

мне надо убрать расширение у файлов и показывать только имя.

(читать всё…)

Добавлено в Пост-обзор. Дата Октябрь 26th, 2010

24th
Окт

Как удалить все значения Items в ListBox?

(читать всё…)

Добавлено в Пост-обзор. Дата Октябрь 24th, 2010

18th
Окт

ListBox как проводник

Добрый день.
У меня сейчас имеется ComboBox в котором идет выбор локального диска, после того как я выбрал диск в ListBox появляется все папки и файлы на этом диске. Вопрос: как сделать переход по директориям в ListBox , чтобы можно было ходить по папкам как в проводнике)

(читать всё…)

Добавлено в Топик-обзор. Дата Октябрь 18th, 2010

18th

Как перемешать значения в listbox?

(читать всё…)

Добавлено в Пост-обзор. Дата Октябрь 18th, 2010

20th
Сен

Изменение цвета шрифта надписи в выделенной ячейки ListBox

Stilet:
Выставь свойство Style:=lbOwnerDrawFixed
И опиши два обработчика:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
with TListBox(Control)dobegin
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;

Тема на форуме

Добавлено в Пост-обзор. Дата Сентябрь 20th, 2010

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;