Помощь в разработке плагина визуализации

[Artem]

Не получается установить ACLPackage для режима х64

IDE работает в 32-битном режиме, пакет нужно ставить в 32-бит. А код уж компилится в обоих

Если без установки в uses прописать нужные модули из runtime, то на каждый (и на все, что те ссылаются) выдаёт:
[dcc64 Fatal Error] ACL.Graphics.pas(16): F1026 File not found: 'ACL.Config.inc'

Нужно пути прописать к файлам (ну или кинуть все в папку с проектом)

[Black_AVP_Bim]

Нужно пути прописать к файлам (ну или кинуть все в папку с проектом)

Пути прописаны ко всем библиотекам.
Даже если скопировать все pas из \Base в папку с проектом, ошибка та же: File not found: 'ACL.Config.inc', причём для обеих разрядностей и на все модули, где есть {$I ACL.Config.inc}.

[Artem]

ACL.Config.inc

так он лежит не в Base, а на уровне выше, рядом с пакетом. Конфиг распространяется на всю либу, а не только на Base

[Black_AVP_Bim]

так он лежит не в Base, а на уровне выше, рядом с пакетом.

Вот в этом вся загвоздка и была! Общую папку я и не прописал. Спасибо!

[Black_AVP_Bim]

Не получается нарисовать с прозрачностью. На png-ке красный круг на прозрачном фоне, а выводиться красный квадрат.


Компилируется без ошибок:

Code: [Select]

procedure TForm1.DrawBtnClick(Sender: TObject);
var
  LImage : TACLImage;
  LBitmap : TACLBitmap;
  LDib : TACLBitmapLayer;

begin
//  LImage := TACLImage.Create(HInstance, 'Red', PChar('RCDATA'));
  LImage := TACLImage.Create('d:\Delphi_Projects\ACL_exp\Red.png');
  try
    LBitmap := LImage.ToBitmap;
    try
      LDib := TACLBitmapLayer.Create;
      LDib.Assign(LBitmap);
    finally
      LBitmap.Free;
    end;
  finally
    LImage.Free;
  end;
  PaintBox.Canvas.Brush.Color := clBlack;
  PaintBox.Canvas.FillRect(PaintBox.ClientRect);
  LDib.DrawBlend(PaintBox.Canvas, Point(100,100), bmAddition, 255);
  LDib.Free
end;

Почему-то потребовалось указать полный путь к файлу, хотя картинка лежит в папке проекта.
Это понял, почему - в Release картинку закинул, а в Debug забыл.
Из ресурсов загрузить тоже не получилось, но она там точно есть.

[Artem]

Похоже баг дельфи. TBitmap.SupportsPartialTransparency всегда возвращает False, хотя пиксели у картинки валидные. Поисследую и отпишусь

[Artem]

Как оказалось, все дело в Dib-секции, которую возвращает winapi, там почему-то нет одного блока данных. В общем... я сделал иначе, и оно даже стало чуть проще.

Code: [Select]

  LDib := TACLBitmapLayer.Create;
  LImage := TACLImage.Create('B:\Red.png');
  try
    LImage.SaveToDib(LDib);
  finally
    LImage.Free;
  end;
  PaintBox1.Canvas.Brush.Color := clBlack;
  PaintBox1.Canvas.FillRect(PaintBox1.ClientRect);
  LDib.DrawBlend(PaintBox1.Canvas, Point(100,100), bmAddition, 255);
  LDib.Free

Только возьми с гит-хаба последнюю версию ACL.Graphic.Images

[Black_AVP_Bim]

В общем... я сделал иначе, и оно даже стало чуть проще.

Угу, заработало, сейчас рисуется нормально.
Но теперь другая незадача, вернее, две. Из ресурсов png так и не могу загрузить, пишет, что ресурс не найден, хотя при использовании VCL.Imaging.pngimage загружается:

Code: [Select]

  ImgR := TPNGImage.Create;
  ImgR.LoadFromResourceName(HInstance, 'Red');
Но этот TPNGImage, похоже, к ACL никак ни приткнуть.

Другая незадача в том, что мне нужно ресайзить выводимую картинку, а ACLDib.Resize использовать не получается и DrawBlend принимает только TPoint.
С первой проблемой разобрался, дошагав по твоим исходникам до TResourceStream, оказывается для типа ресурсов нужны обычные константы, вот так загружается:
  LImage := TACLImage.Create(HInstance, 'Red', RT_RCDATA).

[Artem]

ACLDib.Resize использовать не получается

Это ресайз буфера, изображение не переносится.

ACLDib.Resize использовать не получается и DrawBlend принимает только TPoint

Да, нужно предварительно масштабировать картинку на другой буфер, и уже потом тот буфер выводить.
Там есть другая функция DrawBlend, принимающая TRect, вот с помощью нее тебе нужно отресайзить картинку на временный буфер, а уже потом его Blend-ить с учетом нужного режима.

[Black_AVP_Bim]

Вроде, получилось, не знаю уж, насколько правильно:

Code: [Select]

procedure TForm1.DrawBtnClick(Sender: TObject);
var
  LImage : TACLImage;
  DstDib, LDib : TACLBitmapLayer;

begin
  LImage := TACLImage.Create(HInstance, 'Red', RT_RCDATA);
  LDib := TACLBitmapLayer.Create;
  DstDib := TACLBitmapLayer.Create(PaintBox.ClientRect);
  try
    LImage.SaveToDib(LDib);
  finally
    LImage.Free;
  end;
  PaintBox.Canvas.Brush.Color := clBlack;
  PaintBox.Canvas.FillRect(PaintBox.ClientRect);
  LDib.DrawBlend(DstDib.Canvas, Rect(50,50,300,300), 255, true);
  DstDib.DrawBlend(PaintBox.Canvas, Point(0,0), bmAddition, 255);
  LDib.Free;
  DstDib.Free
end;

Но как это будет шевелиться в плагине в Draw, ещё и ресайз слоёв делать надо при изменении размера окна.

[Artem]

Вроде правильно.

Но как это будет шевелиться в плагине в Draw, ещё и ресайз слоёв делать надо при изменении размера окна.

Целиком этот код в Draw не надо. Загрузка и ресайз должны быть в Init/Resize, а в Draw - непосредственно графика

[Black_AVP_Bim]

Не получается в плагине подключить модули  ACL.Graphics.Ex,  ACL.Graphics.Images (на форме работает).
При попытке компиляции открываются эти файлы и стопорится на одном и том же месте:


[dcc64 Fatal Error] ACL.Graphics.Ex.pas(37): F2613 Unit 'Graphics' not found.

[Artem]

Не получается в плагине подключить модули  ACL.Graphics.Ex,  ACL.Graphics.Images (на форме работает).
При попытке компиляции открываются эти файлы и стопорится на одном и том же месте:


[dcc64 Fatal Error] ACL.Graphics.Ex.pas(37): F2613 Unit 'Graphics' not found.

В свойствах проекта в разделе компилятора надо дописать в Unit scope names Vcl;Vcl.Imaging;Vcl.Touch;

[Black_AVP_Bim]

В свойствах проекта в разделе компилятора надо дописать в Unit scope names Vcl;Vcl.Imaging;Vcl.Touch;

Спасибо, Артём! Не подскажешь, где можно почитать про все эти настройки проекта, желательно на русском, чтоб тебя не дёргать каждый раз?
Столько, всё-таки, непонятного для меня полсе D7.

[Black_AVP_Bim]

Собрал два варианта: на API и на ACL. Всё-таки, на ACL плагин заметно тяжелее получился, нагрузка на проц примерно в 3 раза больше, в полноэкранном режиме на моём железе еле шевелится, но зато более гладко выглядит. Если рисовать без блюра, то по нагрузке почти одинаково, но без него пикселизация заметна.