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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

type
  t1 = record
    a, b, c, d: LongWord;
  end;
  p1 = ^t1;

procedure aaa(b:p1)

Вопрос: если я использую asm, то как мне обращаться к переменным a, b, c, d?
Считывать и записывать их.

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

Да, я знаю, что тема перехвата вывода консоли не нова. И в интернете полно вариантов, как это можно сделать. Однако. Из того что я нашёл все варианты «ждут», пока консоль завершится и выводят результат уже после этого.

Мне нужно запустить консольный архиватор 7z.exe — он в консоли отображает прогресс упаковки (сколько файлов упаковано и процент сжатия, если не ошибаюсь).

Результатом консоли после закрытия будет что-то вроде «Упаковано K файлов. Объём архива L байт.»

А мне, в том-то и дело — нужно чтобы пользователь видел прогресс. И информацию с самого начала работы архиватора.

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

function GetCurrentProcessToken: THandle; stdcall; external 'kernel32.dll' name 'GetCurrentProcessToken';

---------------------------
Project1.exe - Точка входа не найдена
---------------------------
Точка входа в процедуру GetCurrentProcessToken не найдена в библиотеке DLL C:\Install\Project1.exe. 
---------------------------
ОК   
---------------------------

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

with TButton.Create do begin
  {настройка кнопки}
end;

И вот такой вопрос: мне внутри этого блока нужно вызвать процедуру, аргументом которой будет сама кнопка. Есть ли такая возможность?

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

Подскажите как можно отследить нажатие кнопки или элемента на сайте?

Допустим есть кнопка <button id=»777″>test</button>

В самом браузере кликаем на кнопку и получаем сообщение от Делфи.

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