Как отправить на распечатку файл средствами delphi?

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

Есть массив данных.

 BufferREAD  : Array[0..3] Of Byte;

В нём лежат 4 байта.
Необходимо конвертировать содержимое в значение Double.
Чередование байтов в массиве верное.

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

Как в компоненте 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 будет возвращаться пустое значение?

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

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