Как писать в консоли русскими буквами? Кроме как слова в DOS кодировку перегонять?

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

Иногда так бывает, что надо скопировать текст/код, содержащий кириллические буквы, из редактора кода или текстовых полей разработанного приложения.

Проблема состоит в том, что, когда такой текст вставляется в другие текстовые редакторы, кириллические символы вставляются в неверной кодировке. Например, такой код:

// комментарии
procedure TForm1.FormCreate(Sender: TObject);
begin
 showMessage('Всё хорошо')
end;

end.

Может быть вставлен в таком виде:

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

На форме есть несколько компонентов TImage1, TImage2, TImage3 и т.д. Как реализовать открытие изображения в компонентах путем перетаскивания самой картинки с рабочего стола в программу. Причем каждая картинка должна открываться в том компоненте TImage, на который ее собственно перетащили. Могу реализовать подобную задачу с помощью DragandDrop, но чтоб именно картинка открывалась в том компоненте, на который ее перетащили, не получается.

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

Alex11223

Свершилось, джва двадцать лет ждали и наконец дождались.

Появились Community издания Delphi и C++Builder.
Бесплатный аналог Professional с ограничением на коммерческое применение (оборот менее 5000$ в год и менее 5 разработчиков в компании).
Еще нельзя одновременно Delphi и C++Builder, и раз в год надо обновлять лицензию на сайте (видимо скачивая последнюю версию).

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

Вложения

Christmas.rar (1.20 Мб)

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

имею некую таблицу с полями 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, но как именно равные части получить не соображу.

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