TImage и Слайдшоу

@neva · Регистрация: 13.03.2013

Author24 — интернет-сервис помощи студентам

Сделал скринсейвер, но не могу загрузить туда картинку в исходном размере. Ее то растягивает во весь экран, то она уходит за границы экрана. А надо что бы она была отмасштабирована по центру. Как просмоторщиком изображений открывается.

Как разместить ее отмасштабированной по центру TImage, которая размером с весь экран пользователя? (пропорционально масштабируем пока не упремся в края экрана).
Варианты только вычислять размеры TImage, и грузить картинку в TImage уже по размерам как мне надо?

C++

    HDC hdc = GetDC(0);
    Top = 0;
    Left = 0;
    Width = GetDeviceCaps(hdc, HORZRES);
    Height = GetDeviceCaps(hdc, VERTRES);
 
    Image1->Picture->Bitmap->Width = Width;  //этими параметрами тоже пробовал играть. Вообще пропадает картинка
    Image1->Picture->Bitmap->Height = Height;
 
    Image1->Stretch = true; //с параметром false картинка в оригинальном размере, но улетает за пределы экрана
    TJPEGImage *jpg = new TJPEGImage;
jpg->LoadFromFile(ListBoxFiles->Items->Strings[i]+".jpg");
Image1->Picture->Bitmap->Canvas->StretchDraw(Image1->ClientRect, jpg);  //масштабируется во весь экран!
//Image1->Picture->LoadFromFile(ListBoxFiles->Items->Strings[i]+".jpg"); 
 
Show();
ReleaseDC(0, hdc);
Application->Restore();
SetForegroundWindow(Handle);

Добавлено через 9 минут
P/S: Не прошу писать за меня, можно просто намекнуть куда смотреть.

Добавлено через 14 минут
Я так понял вот тут надо думать как разместить?

C++

1 2	Image1->Picture->Bitmap->Width = Width; Image1->Picture->Bitmap->Height = Height;

@gunslinger · 12.02.2020, 01:02

У Image отключи Stretch (выставь значение в false), а Center и Proportional сделай равным true.

@neva · 12.02.2020, 12:32 **[ТС]**

gunslinger, пробовал так, не получилось, - попробую снова - может упустил что-то . У Timage стоит свойство AutoSize - true;

Добавлено через 9 минут

C++

if(i>ListBoxFiles->Items->Count-1)
     {i=0;}
 
    HDC hdc = GetDC(0);
    Top = 0;
    Left = 0;
    Width = GetDeviceCaps(hdc, HORZRES);
    Height = GetDeviceCaps(hdc, VERTRES);
 
 
    Image1->Picture->Bitmap->Width = Width;
    Image1->Picture->Bitmap->Height = Height;
 
        Image1->Stretch = false;
        Image1->Proportional=true;
        Image1->Center=true;
 
    TJPEGImage *jpg = new TJPEGImage;
 
 
 
 
jpg->LoadFromFile(ListBoxFiles->Items->Strings[i]+".jpg");
Image1->Picture->Bitmap->Canvas->StretchDraw(Image1->ClientRect, jpg); //растягивает на весь экран
//Image1->Picture->LoadFromFile(ListBoxFiles->Items->Strings[i]+".jpg");  /грузит не в центре и вылазит за границы экрана(
 
 
 
i++;

Добавлено через 4 часа 33 минуты
Возможно проблема в установленном свойстве Autosize - и надо поставить его в false . А Image1 - alClient. А Form1 - размером с экран. Тогда имейдж растянется на весь экран, изображение загрузиться по центру и отмачштабированно с сохранением пропорций?))) Верно?

@neva · 12.02.2020, 23:21 **[ТС]**

C++

if(i>ListBoxFiles->Items->Count-1)
     {i=0;}
 
 
 
    HDC hdc = GetDC(0);
 
    Top = 0;
    Left = 0;
    Width = GetDeviceCaps(hdc, HORZRES);
    Height = GetDeviceCaps(hdc, VERTRES);
 
 
 
        Image1->Picture->Bitmap->Width = Width;
        Image1->Picture->Bitmap->Height = Height;
 
        Image1->Stretch = true;
        Image1->Proportional=true;
        Image1->Center=true;
 
    TJPEGImage *jpg = new TJPEGImage;
 
Image1->Picture->LoadFromFile(ListBoxFiles->Items->Strings[i]+".jpg");
 
 
 
i++;

Решено) Всем спасибо

Добавлено через 27 минут
Свойство Autosize должно быть установлено в false.

@gunslinger случайный прохожий 2919 / 1936 / 606 Регистрация: 20.07.2013 Сообщений: 5,132
	12.02.2020, 01:02	2
	У Image отключи Stretch (выставь значение в false), а Center и Proportional сделай равным true. 0

	12.02.2020, 23:21

Опции темы