Есть N JPG картинок загруженных в Лист.
Запускаем режим слайдшоу. Выбираем по одной картинке.
Когда перебираем последовательно — все просто.
Как сделать рандомный выбор картинки без повторов.
Присваивать каждой картинке переменную? А если N=500…?
Может есть более хитрый способ исключить из результата «уже использованные»?
(Удалять «уже использованные» из листа не получится он чистится только весь)

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

Реально ли создать событие при входе мышки в НЕпрямоугольную область?

1) Для TImage
2) Для другого компонента

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

Поможете мне устранить такой баг?

У меня в папке «E:\tmp» имеется множество файлов и папок. Мне нужно удалить полностью всю папку.
Вот код:

type TArrayString = array of string;

procedure DirList(Dir: string; var DirArr: TArrayString; Over: byte = 0);
var F: TSearchRec;
begin
   ChDir(Dir);
   if Over=0 then
      SetLength(DirArr, 0);
   SetLength(DirArr, Length(DirArr)+1);
   DirArr[Length(DirArr)-1]:=Dir;
   if Dir[Length(Dir)]<>'\' then
      Dir:=Dir+'\';
   if FindFirst('*', faAnyFile, F)=0 then
   repeat
      if F.Attr and faDirectory <> faDirectory then
         DeleteFile(Dir+F.Name);
   until FindNext(F)<>0;
   if FindFirst('*', faAnyFile, F)=0 then
   repeat
      if F.Attr and faDirectory = faDirectory then
         if not (F.Name='.') and not (F.Name='..') then
         begin
            DirList(Dir+F.Name, DirArr, 1);
            ChDir(Dir);
         end;
   until FindNext(F)<>0;
   FindClose(F);
   if Over=0 then
      ChDir('C:\');
end;

procedure TForm1.Button1Click(Sender: TObject);
var DirArr: TArrayString;
    i: integer;
begin
   DirList('E:\tmp', DirArr);
   for i:=High(DirArr) downto Low(DirArr) do
      RemoveDir(DirArr);
end;

Проблема заключается в том, что программа удаляет папки с ошибками (см. скриншот).
Подробнее: при нажатии на кнопку папка физически не удаляется (она остается), но зайти в нее не получается. Однако, при закрытии программы она автоматически удаляется.

В связи с этим вопрос: как удалить папку с файлами полностью без закрытия приложения?

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

Как отправить на распечатку файл средствами 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 секунд после нажатия кнопки?

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

Попал в такую ситуацию: есть 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 на русском языке?

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