Topic: Работа с рисунками
Здраствуйте, в этой системе можно реализовать эффект увеличительного стекла для увеличения части рисунка? И как проверить наличие файла перед под грузкой его в компонент Рисунок. Спасибо.
My Visual Database → Russian → Работа с рисунками
Здраствуйте, в этой системе можно реализовать эффект увеличительного стекла для увеличения части рисунка? И как проверить наличие файла перед под грузкой его в компонент Рисунок. Спасибо.
Сделал для вас проект с примером.
Для проверки наличия файла есть функция FileExists
При запуске ругается на CopyRect Неизвестный идентификатор
Скачайте пожалуйста последнюю бета версию
http://myvisualdatabase.com/forum/viewtopic.php?id=5704
запросил новый ключ
Работает плохо, на левом экране появилась сетка из пикселей и центровки изображений нет
Я сделал вам пример с основным функционалом, доработать думаю вы сможете самостоятельно.
А где взять описание этого функционала
Как узнать размер загружаемого рисунка, а то при сжатии его нарушается центровка увеличителя?
Узнать размеры можно у объекта 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
.....
My Visual Database → Russian → Работа с рисунками
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi