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

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

23.12.2008, 18:34

WON

Новичок

Регистрация: 02.07.2008

Сообщений: 17

С нами: 9399094

Репутация: 8

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

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

Я пробовал зделать так:

Код:

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.

Я понимаю что оно не может рисовать на загруженом рисунке поэтому возникает вопрос... Как зделать что бы можно было?

𝕏 Twitter Reddit Telegram Копировать ссылку

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

23.12.2008, 19:32

bons

Участник форума

Регистрация: 20.12.2007

Сообщений: 295

С нами: 9679872

Репутация: 347

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

Последний раз редактировалось bons; 23.12.2008 в 19:34..

23.12.2008, 19:52

WON

Новичок

Регистрация: 02.07.2008

Сообщений: 17

С нами: 9399094

Репутация: 8

А как?

Код:

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;

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

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

23.12.2008, 20:06

bons

Участник форума

Регистрация: 20.12.2007

Сообщений: 295

С нами: 9679872

Репутация: 347

Код:

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;