Часы на картинке...

[WON]

Форма не имеет строки заголовка, всю её клиентскую часть занимает картинка, на которой отображается текущее время.

Я пробовал зделать так:
procedure TForm1.FormCreate(Sender: TObject);
begin
WindowState := wsMaximized;
BorderStyle := bsNone;
Image1.Align := alClient;
Image1.Picture.LoadFromFile('C:\Documents and Settings\Администратор\Мои документы\Мои рисунки\x_030ddb01.jpg');
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Image1.Canvas.TextOut(100,100, TimeToStr(Time));
end;

Но выскакивает ошибка:
Project Project1.exe raised exception class EInvalidOperation with message 'Can only modify am image if it containts a bitmap'. Process stopped. Use Step or Run to continue.
Я понимаю что оно не может рисовать на загруженом рисунке поэтому возникает вопрос... Как зделать что бы можно было?

[bons]

если рисунок в bmp ошибки не будет. Если не хочешь хранить файл рисунка в таком формате то можешь преобразовывать его в битмап непосредственно в программе.

[WON]

А как?

procedure TForm1.FormCreate(Sender: TObject);

var jpeg : TJPEGImage;

begin

//jpeg.Create;

WindowState := wsMaximized;

Image1.Align := alClient;

BorderStyle := bsNone;

jpeg.LoadFromFile('C:\Documents and Settings\Администратор\Мои документы\Мои рисунки\x_030ddb01.jpg');

Image1.Picture.Bitmap.Assign(jpeg);

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Image1.Canvas.TextOut(100,100, TimeToStr(Time));

end;

такой вариант работать не хочет... даже если коментарий убрать...

[bons]

procedure TForm1.FormCreate(Sender: TObject);
var jpg:TJPEGImage;
begin
jpg:=TJPEGImage.Create;
jpg.LoadFromFile('d:\Apathy.jpg');
Image1.Picture.Bitmap.Assign(jpg);
jpg.Free;
end;

[WON]

всё спасибо.. я понял где протупил....
jpeg := TJPEG.Create;

[De-visible]

Вопрос решен. Closed.