SQLRU.net
Разработка приложений баз данных
Начало » Программирование » Delphi » Путевый TImage
Путевый TImage [сообщение #2179] Sat, 06 May 2023 00:19 Переход к следующему сообщению
GrigoryFomin в настоящее время не в онлайне  GrigoryFomin
Сообщений: 91
Зарегистрирован: April 2023
Member
Подскажите, плз, может кто уже применял. Нжно отображать блоб из БД в виде отсканированного изображения. Ессно, сканы разногоразмера,с пустыми полями. Нужно это дело показать пользователю с возможностью мышкой двигать изображение внутри компонента, если он больше по размеру, ну и плюс возможность Rotate и Flip. cxDBImage от девок вообще мимо, TMS как я понял, тоже не шмог.

Известить модератора

Re: Путевый TImage [сообщение #2180 является ответом на сообщение #2179] Sat, 06 May 2023 14:22 Переход к предыдущему сообщениюПереход к следующему сообщению
SD в настоящее время не в онлайне  SD
Сообщений: 411
Зарегистрирован: August 2022
Senior Member
Лично я использую для этого TPaintBox.

Известить модератора

Re: Путевый TImage [сообщение #2185 является ответом на сообщение #2180] Mon, 08 May 2023 01:04 Переход к предыдущему сообщениюПереход к следующему сообщению
GrigoryFomin в настоящее время не в онлайне  GrigoryFomin
Сообщений: 91
Зарегистрирован: April 2023
Member
почитал про компонент, профита не понял, это просто канвас с регулируемыми размерами? Все функции реализуем сами руками?

Известить модератора

Re: Путевый TImage [сообщение #2186 является ответом на сообщение #2185] Mon, 08 May 2023 09:16 Переход к предыдущему сообщениюПереход к следующему сообщению
sg729 в настоящее время не в онлайне  sg729
Сообщений: 58
Зарегистрирован: June 2022
Member
ImageEn v.3.1.2 не помню может ли Rotate, в остальном удобный компонент.

Известить модератора

Re: Путевый TImage [сообщение #2188 является ответом на сообщение #2186] Mon, 08 May 2023 15:54 Переход к предыдущему сообщениюПереход к следующему сообщению
GrigoryFomin в настоящее время не в онлайне  GrigoryFomin
Сообщений: 91
Зарегистрирован: April 2023
Member
качнул его, он с дллками должен идти рядом с экзешником?

Известить модератора

Re: Путевый TImage [сообщение #2189 является ответом на сообщение #2188] Mon, 08 May 2023 19:29 Переход к предыдущему сообщениюПереход к следующему сообщению
sg729 в настоящее время не в онлайне  sg729
Сообщений: 58
Зарегистрирован: June 2022
Member
GrigoryFomin писал(а) Mon, 08 May 2023 15:54
качнул его, он с дллками должен идти рядом с экзешником?
В бесплатной 3.1.2 не было dll, а вы видимо качнули версию 10.х.х (платную) - там в папке DLL есть ReadMe.txt с таким содержанием:
Цитата:
IMAGEEN DLLS

View details on ielib32/64 in the help file section, "ImageEn DLLs and 64bit Support"

https://www.imageen.com/help/ImageEn_DLLs.html


IELang32/64 provides support for localization in twenty-five languages:

https://www.imageen.com/help/Language_support.html
=================
www.downloadly.ir

Известить модератора

Re: Путевый TImage [сообщение #2205 является ответом на сообщение #2189] Wed, 10 May 2023 20:46 Переход к предыдущему сообщениюПереход к следующему сообщению
GrigoryFomin в настоящее время не в онлайне  GrigoryFomin
Сообщений: 91
Зарегистрирован: April 2023
Member
Вообщем, поделюсь, как решил проблему с помощью DevExpress и компонента cxImage
uses
  dxGDIPlusClasses;
......

procedure TpbRevisionForm.btnFlipHorizClick(Sender: TObject);
var
  ABitmap: TcxAlphaBitmap;
  APngImage: TdxPNGImage;
begin
  ABitmap := TcxAlphaBitmap.CreateSize(img1.Picture.Width, img1.Picture.Height, True);
  ABitmap.Canvas.Draw(0, 0, img1.Picture.Graphic);
  ABitmap.Flip(true,false);

  APngImage := TdxPNGImage.CreateFromBitmap(ABitmap);
  img1.Picture.Graphic := APngImage;
  APngImage.Free;
  ABitmap.Free;
end;

procedure TpbRevisionForm.btnFlipVertClick(Sender: TObject);
var
  ABitmap: TcxAlphaBitmap;
  APngImage: TdxPNGImage;
begin
  ABitmap := TcxAlphaBitmap.CreateSize(img1.Picture.Width, img1.Picture.Height, True);
  ABitmap.Canvas.Draw(0, 0, img1.Picture.Graphic);
  ABitmap.Flip(false,true);

  APngImage := TdxPNGImage.CreateFromBitmap(ABitmap);
  img1.Picture.Graphic := APngImage;
  APngImage.Free;
  ABitmap.Free;
end;

procedure TpbRevisionForm.btnRotateMinusClick(Sender: TObject);
var
  ABitmap: TcxAlphaBitmap;
  APngImage: TdxPNGImage;
begin
  ABitmap := TcxAlphaBitmap.CreateSize(img1.Picture.Width, img1.Picture.Height, True);
  ABitmap.Canvas.Draw(0, 0, img1.Picture.Graphic);
  ABitmap.Rotate(raMinus90);

  APngImage := TdxPNGImage.CreateFromBitmap(ABitmap);
  img1.Picture.Graphic := APngImage;
  APngImage.Free;
  ABitmap.Free;
end;

Известить модератора

Re: Путевый TImage [сообщение #2837 является ответом на сообщение #2205] Fri, 28 July 2023 15:30 Переход к предыдущему сообщению
Соколинский Б в настоящее время не в онлайне  Соколинский Б
Сообщений: 3
Зарегистрирован: July 2022
Junior Member
Делать специальный буфер для поворота - слегка извращение.
Через WorldTransform такие действия выполняются, на порядок быстрее будет

Известить модератора

Предыдущая тема: Обработать результат функции, возвращаемый в виде интерфейса
Следующая тема: DNS-суффикс подключения
Переход к форуму:
  

[ Сформировать XML ] [ RSS ] [ PDF ]

Текущее время: Sat Nov 23 16:43:07 GMT+3 2024

Общее время, затраченное на создание страницы: 0.00683 секунд
.:: Обратная связь :: Начало ::.

При поддержке: FUDforum 3.1.3.
© 2001-2022 FUDforum Bulletin Board Software