имею некую таблицу с полями id, parent_id в ней указаны id категорий и id категории родителя (если родителя нет то там 0)
не получается из этой таблицы построить treeview, глубина вложенности не известна, в таблице элементы расположены на бум то есть table[0] не обязательно корневой, и для него родителем может быть любой из них.

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

На рабочем столе есть ярлык программы. При двойном клике по ярлыку программа запускается и показывает свой интерфейс и это правильно.
Как сделать, чтобы при повторном двойном клике по ярлыку уже запущенная программа снова показала свой интерфейс?
Например, программа свёрнута на панели задач или закрыта в трей

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

Использую VirtualStringTree. Вопросы:

1. Как получить номер(индекс,расположение) элемента дерева, по которому был совершен клик?
2. Можно ли как нибудь сделать редактор ячеек этого дерева. Дерево выглядит как grid элемент, наподобии таблицы. Можно ли сделать чтобы можно было редактировать значение в кликнутой ячейке?

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

Задача такая: по кнопке нужно изменить курсор, курсор я уже заготовил, проблема его поменять на 10 винде. Я пишу setcursor(cur), и по нажатию на заветную кнопень, менее секунды появляется мой курсор и снова ставит обратно как было, объясните почему он так делает?
вот код как я это реализую

procedure TForm1.Button1Click(Sender: TObject);
Var
  Cur: HICON;
begin
  Cur := LoadCursorFromFile(PWideChar(ExtractFilePath(Application.ExeName) +
    '1.cur'));
  SetCursor(Cur);
end;

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

Может ли кто-то помочь с кодом? Знаю что это делается как-то через CopyRect, но как именно равные части получить не соображу.

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

Есть программа и пользователи Windows 10 (не все, зависимости пока не нашел) сталкиваются с множественными ошибками в работе этой программы. Опытным путем выяснилось, что при инструкции записи в базу данных и даже просто отображения текущий даты с помощью «DateToStr(now)» результат получается не совсем ожидаемым. А именно, к примеру: «Пт 12.01.00». Соответственно, при попытке обратного преобразования «StrToDate» возникает ошибка: «Пт 12.01.00 is not a valid date».

Может, кто сталкивался с подобным и знает как можно с этим бороться? Не хотелось бы пилить костыль преобразования строки в нужную дату путем удаления лишних «Пт «, «Чт » и так далее.

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

Для ускорения расчётов в программе, написанной на Delphi XE2 (…XE6), ранее использовались потоки (объект TThread) на CPU. Сейчас возникла идея использовать возможности GPU. Простой, как казалось, путь — подключить модули (заголовочные файлы к OpenCL.dll по сути) — и использовать возможности OpenCL от Khronos Groupe.

Работает всё это, но…только при компиляции дельфового проекта под Win32. А мне нужны большие массивы, динамические: компиляция всей научной программы под Win64 просто необходима (используем иногда до 12 Гбайт оперативки CPU).

При компиляции под Win32 работает, а под Win64 — нет!!

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

Изображения

 

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

Изображения

jillitil

  RadioGroup1.Buttons[0].Enabled:= false;
  RadioGroup1.Buttons[6].Enabled:= false;
  RadioGroup1.Buttons[7].Enabled:= false;
  RadioGroup1.Buttons[5].Enabled:= false;
  RadioGroup1.Buttons[11].Enabled:= false;

Изображения

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

На форме 2 RadioButton. при вызове этой формы должно быть условие: если в БД в определенном поле значение 0, то активен RadioButton1, если в БД в этом поле 1, то активен RadioButton2.

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