SQLRU.net: Delphi » Путевый TImage

Начало » Программирование » Delphi » Путевый TImage

Показать: Сегодняшние сообщения :: Голосования :: Навигатор по сообщениям
Отправить по e-mail

Путевый TImage [сообщение #2179]

Sat, 06 May 2023 00:19

GrigoryFomin
Сообщений: 91
Зарегистрирован: April 2023

Member

Подскажите, плз, может кто уже применял. Нжно отображать блоб из БД в виде отсканированного изображения. Ессно, сканы разногоразмера,с пустыми полями. Нужно это дело показать пользователю с возможностью мышкой двигать изображение внутри компонента, если он больше по размеру, ну и плюс возможность Rotate и Flip. cxDBImage от девок вообще мимо, TMS как я понял, тоже не шмог.

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

Re: Путевый TImage [сообщение #2180 является ответом на сообщение #2179]

Sat, 06 May 2023 14:22

SD
Сообщений: 407
Зарегистрирован: August 2022

Senior Member

Лично я использую для этого TPaintBox.

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

Re: Путевый TImage [сообщение #2185 является ответом на сообщение #2180]

Mon, 08 May 2023 01:04

GrigoryFomin
Сообщений: 91
Зарегистрирован: April 2023

Member

почитал про компонент, профита не понял, это просто канвас с регулируемыми размерами? Все функции реализуем сами руками?

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

Re: Путевый TImage [сообщение #2186 является ответом на сообщение #2185]

Mon, 08 May 2023 09:16

sg729
Сообщений: 52
Зарегистрирован: June 2022

Member

ImageEn v.3.1.2 не помню может ли Rotate, в остальном удобный компонент.

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

Re: Путевый TImage [сообщение #2188 является ответом на сообщение #2186]

Mon, 08 May 2023 15:54

GrigoryFomin
Сообщений: 91
Зарегистрирован: April 2023

Member

качнул его, он с дллками должен идти рядом с экзешником?

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

Re: Путевый TImage [сообщение #2189 является ответом на сообщение #2188]

Mon, 08 May 2023 19:29

sg729
Сообщений: 52
Зарегистрирован: 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
Сообщений: 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 ] [

] [

]

Текущее время: Fri Nov 15 08:32:30 GMT+3 2024

Общее время, затраченное на создание страницы: 0.01253 секунд