Как в компоненте TChromium (CEF3) сохранять изображения, например из контекстного меню?

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

У меня есть кнопка, и надо чтобы через 5 секунд после её нажатия — она отжалась назад. Я попробовал добавить на форму таймер, и в обработчике нажатия кнопки написал:

ReturnToReadModeTimer.Enabled:=false;
ReturnToReadModeTimer.Interval:=5000;
ReturnToReadModeTimer.Enabled:=true;

В событии таймера соответственно ReturnToReadModeTimer.Enabled:=false;
Но это пока не работает как надо: в первый раз кнопка отжимается через 5 секунд, а в последующие — сразу. Как обнулить счётчик таймера, чтобы он и во второй раз сработал не сразу, а через 5 секунд после нажатия кнопки?

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

Что надо написать в поле ForeColor, чтобы цвет шрифта вводимого в TextBox на форме стал темно-синий и темно-зеленый. Если «&H8000000D&» — цвет голубой.

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

Попал в такую ситуацию: есть 2 временных TPNGImage; один загружен из файла, второй — пустой, предназначен для вывода растянутого/ужатого первого.

При копировании первого во второй и его последующем ресайзе теряется альфа-канал.
Вот такого плана:

var
  Src,Dst:TPngImage;
  width,height:integer;
...
procedure Resize;
begin
  Dst.SetSize(width,height);
  Dst.StretchDraw(Dst.Canvas.ClipRect,Src);
end;

Как можно заново просчитать маску прозрачности (или как это делается), учитывая новые размеры?

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

При печати графического файла распечатывается только часть изображения. Подскажите, как вывести на печать все изображение?
Использовал такой код:

 using (var pd = new System.Drawing.Printing.PrintDocument())
            {
                               pd.PrintPage += (o, en) =>
                {
                    var img = System.Drawing.Image.FromFile(@"D:\Scan.jpg");

                    en.Graphics.DrawImage(img, new Point(100, 100));
                };
                pd.DefaultPageSettings.Landscape = true;
                pd.Print();

            }

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

Если установить к примеру node.js то в любой момент можно запросить через командную строку к примеру node —version или node —help
Вопрос как реализовать подобное. То есть запуск в фоновом режиме и обращение по конкретному имени, а не просто запуск файла.

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

Пытаюсь портировать свою программу с Delphi на Lazarus, чтобы скомпилировать её в Linux и Mac. Столкнулся со множеством проблем и подводных камней, так что теперь не исключаю, что лучшим решением будет остаться на Delphi (и ждать, когда подтянут Firemonkey). А у вас был такой же опыт? Вопрос по теме: правильно ли я понял, что авторы The Bat (который написан на Delphi) сознательно приняли решение не портировать проект на Linux и Mac по этим же причинам? И ещё вопрос по теме — Wine для Mac жив или умер?
Что мне не нравится в Lazarus как средстве разработки под Windows:
— Какая-то чехарда с .inc, .pp файлами вместо обычных модулей, легко запутаться (хотя возможно я просто не освоился);
— Часто возникает ошибка Warning: Recompiling …, checksum changed for ….ppu
— Иногда приходится устранять конфликт одинаковых имён модулей, может быть это специфика моих проектов.
Ещё вопрос, как финансируется Lazarus? Немного настораживает, что он бесплатный.

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

Нужен системо-независимый код, от чего нужно знать в какой именно ОС он был запушен. Пишем на Lua, но думаю это не суть.
Встроенной функции нет.

Нашёл следующее. В Винде есть переменная окружения «OS» которая должна содержать тип ОС.
В разных местах написано, что «в Windows XP и Windows 2000 будет равно Windows_NT».
Проверил у себя на Windows 10, возвращает «Windows_NT». Проверил на Linux ALT, не такой переменной — то есть nil.

Можно ли ожидать, что в Windows независимо от версии (включая серверные) будет возвращаться «Windows_NT», а в любой версии Linux будет возвращаться пустое значение?

Если нет, то как лучше поступать?

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

Как в лазарусе сменить язык автоматически, скажем в поле Едит1 вводится текст на английском, а в Едит2 на русском языке?

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

В сообщении «Сравнение языков на массивах. Часть 1» в этом разделе описывались программы на языке C++, а в этом сообщении будут рассматриваться программы на языке Ada. Язык Ada по возможностям и стилю программирования очень похож на C++, но более надёжный. Он применяется там, где цена ошибки высока. Так же как для С++, программы будут компилироваться и запускаться в двух операционных системах на основе Linux — Debian 10 и ALT Linux 10. Компилятор языка Ada — GNAT от компании AdaCore. В Debian GNAT версии 8.3, а в ALT — 10.3 .

Все программы компилировались с опцией оптимизации -O2 или -O3, а иначе скорость их работы становится позорно низкой. Если в результатах замеров времени никаких пометок — значит в Debian, если пометка (alt) — значит в ALT.

В отличие от C++ в Ada есть run-time проверки, в том числе проверка индекса массива на выход из допустимого диапазона. Однако они реализованы достаточно эффективно и не сильно снижают производительность программ.

В Ada так же будем проверять скорость работы со статическим массивом, динамическим массивом и массивом в типе-контейнере Vector.
Тестовые массивы те же, один на 500000 элементов, второй на 50000.

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