картинка и рабочий стол

← →
Natalia (2003-02-04 10:48) [0]

Привет. Скажите, пожалуйста, как картинку из Image1 отправить на рабочий стол в качестве обоев? Спасибо.

← →
Mihey (2003-02-04 20:26) [1]

Надо знать путь к картинке в Image1 (как-то же её туда загрузили). Если это неизвестно, то используем SaveToFile - теперь то имя файла у нас есть. А далее:

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

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

← →
Natalia (2003-02-05 00:25) [2]

Получилось, Большое Спасибо :-)

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

← →
Mirovodin © (2003-02-05 10:48) [3]

Нужно предварительно сконвертировать в BMP, на прямую невозможно.

← →
Natalia (2003-02-05 11:58) [4]

Как bmp в jpg знаю, а как gif и jpg в bmp?

← →
MBo © (2003-02-05 12:24) [5]

bmp.assign(jpegimage)

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

← →
Natalia (2003-02-05 16:26) [6]

А GifCtrl из RxLib подойдёт?

← →
Mihey (2003-02-05 21:28) [7]

Подойдёт.

← →
Natalia (2003-02-06 15:03) [8]

А с помощью GifCtrl можно в Image показать движущийся gif?

← →
Mihey (2003-02-06 22:04) [9]

Можно при помощи 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.

картинка и рабочий стол Найти похожие ветки