Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

картинка и рабочий стол [D6, Win95/98]

Natalia © (2003-02-04 10:48:00)
Привет. Скажите, пожалуйста, как картинку из Image1 отправить на рабочий стол в качестве обоев?Спасибо.

Mihey (2003-02-06 22:04:00) [1]
Можно при помощи RxGifAnimator:

TRxGIFAnimator Component

Unit
GIFCtrl
Description

Компонента предназначена для отображения в Ваших формах анимированных графических изображений формата GIF.
Рисунок, отображаемый в форме, задается свойством Image. Номер кадра, отображаемого в настоящий момент, во время выполнения можно определить по значению свойства FrameIndex. Вы можете также задать это значение в дизайнере. Если свойство Animate установлено в True, то изображение анимируется. Частота смены кадров задана в самом формате GIF и не может быть изменена.
Свойство Transparent определяет, будет ли компонента изображать GIF прозрачным, используя свойство TGIFImage
.TransparentColor.
Компонета также включает в себя свойства, аналогичные свойствам TImage.

--------------------------------------------------------------------------------

Примеры работы и некоторые интересные свойства и методы.

Declaration
property Image: TGIFImage;
Description
Свойство Image задает графическое изображение формата GIF, которое может быть использовано для анимации.

--------------------------------------------------------------------------------

Declaration
property FrameIndex: Integer;

Description
Свойство определяет номер текущего отображаемого кадра в компоненте. Номер кадра должен принадлежать диапазону от 0 до максимального номера кадра в изображении GIF, заданного свойством Image (TGIFImage.Count - 1).
Когда свойство Image не задано, значение FrameIndex = -1.

--------------------------------------------------------------------------------

Declaration
property Animate: Boolean;

Description
Свойство определяет, будет ли автоматически меняться номер отображаемого кадра с интервалом, заданным в формате GIF. Если это свойство имеет значение False, то смены изображений не происходит, а номер текущего отображаемого кадра задается свойством FrameIndex.
Если свойство Loop = False, то после однократного "проигрывания" всех кадров изображения свойство Animate будет сброшено в значение False.

--------------------------------------------------------------------------------

Declaration
property Loop: Boolean;

Description
Свойство определяет, будет ли циклически повторяться последовательность кадров анимации, сохраненной в формате GIF. Если свойство установлено в значение True (по умолчанию), то после того, как свойство FrameIndex достигнет максимально возможного значения, оно будет сброшено в значение 0, и анимация будет продолжена. Если Loop=False, то после прохождения полного цикла анимации свойство Animate будет установлено в значение False (с вызовом события OnStop).

--------------------------------------------------------------------------------

Declaration
property Transparent: Boolean;

Description
Свойство определяет, будет ли изображение GIF рисоваться прозрачным, используя свойство TransparentColor класса TGIFImage; или же будет использован фоновый цвет, указанный в изображении формата GIF.

Natalia (2003-02-06 15:03:00) [2]
А с помощью GifCtrl можно в Imageпоказать движущийся gif?

Mihey (2003-02-05 21:28:00) [3]
Подойдёт.

Natalia (2003-02-05 16:26:00) [4]
А GifCtrl из RxLib подойдёт?

MBo (2003-02-05 12:24:00) [5]
bmp.assign(jpegimage)

для gif нужны сторонние библиотеки, например, TGifImage

Natalia (2003-02-05 11:58:00) [6]
Как bmp в jpg знаю, а как gif и jpg в bmp?

Mirovodin (2003-02-05 10:48:00) [7]
Нужно предварительно сконвертировать в BMP, на прямую невозможно.

Natalia (2003-02-05 00:25:00) [8]
Получилось, Большое Спасибо :-)

Грузит только bmp, а можно чтобы и jpg, и gif тоже???

Mihey (2003-02-04 20:26:00) [9]
Надо знать путь к картинке в Image1 (как-то же её туда загрузили). Если это неизвестно, то используем SaveToFile - теперь то имя файла у нас есть. А далее:

SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, PChar("путь к файлу"), SPIF_UPDATEINIFILE + SPIF_SENDWININICHANGE);

Как видишь, функция PChar преобразует String в PChar, так что волноваться не надо.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »