Показать сообщение отдельно

Часы на картинке...
  #1  
Старый 23.12.2008, 18:34
WON
Новичок
Регистрация: 02.07.2008
Сообщений: 17
С нами: 9399094

Репутация: 8
Post Часы на картинке...

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

Я пробовал зделать так:
Код:
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.
Я понимаю что оно не может рисовать на загруженом рисунке поэтому возникает вопрос... Как зделать что бы можно было?

Последний раз редактировалось WON; 23.12.2008 в 18:36..