Topic: Работа с рисунками

Здраствуйте, в этой системе можно реализовать эффект увеличительного стекла для увеличения части рисунка? И как проверить наличие файла перед под грузкой его в компонент Рисунок. Спасибо.

Re: Работа с рисунками

Сделал для вас проект с примером.


Для проверки наличия файла есть функция FileExists

Post's attachments

Attachment icon Zoom.zip 5.9 kb, 286 downloads since 2019-11-13 

Dmitry.

Re: Работа с рисунками

При запуске ругается на CopyRect Неизвестный идентификатор

Re: Работа с рисунками

Скачайте пожалуйста последнюю бета версию
http://myvisualdatabase.com/forum/viewtopic.php?id=5704

Dmitry.

Re: Работа с рисунками

запросил новый ключ

Re: Работа с рисунками

Работает плохо, на левом экране появилась сетка из пикселей и центровки изображений нет

Re: Работа с рисунками

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

Dmitry.

Re: Работа с рисунками

А где взять описание этого функционала

Re: Работа с рисунками

Как узнать размер загружаемого рисунка, а то при сжатии его нарушается центровка увеличителя?

Re: Работа с рисунками

Узнать размеры можно у объекта Graphic, пример

    .....
    if sExt='.jpg' then
    begin
        Graphic := TJpegImage.Create;
        Graphic.LoadFromFile(Filename);
        ShowMessage(Graphic.Width); // ширина, Graphic.Height - высота
        Form1.Image1.Picture.Bitmap.Assign(Graphic);
        Graphic.Free;
    end else
    .....
Dmitry.