ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2
Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
Перезагрузить страницу Часы на картинке...
   
Закрытая тема
 
Опции темы Поиск в этой теме Опции просмотра

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

Репутация: 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..
 

  #2  
Старый 23.12.2008, 19:32
bons
Участник форума
Регистрация: 20.12.2007
Сообщений: 295
Провел на форуме:
1777055

Репутация: 347
По умолчанию
если рисунок в bmp ошибки не будет. Если не хочешь хранить файл рисунка в таком формате то можешь преобразовывать его в битмап непосредственно в программе.
Последний раз редактировалось bons; 23.12.2008 в 19:34..
 

  #3  
Старый 23.12.2008, 19:52
WON
Новичок
Регистрация: 02.07.2008
Сообщений: 17
Провел на форуме:
93013

Репутация: 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..
 

  #4  
Старый 23.12.2008, 20:06
bons
Участник форума
Регистрация: 20.12.2007
Сообщений: 295
Провел на форуме:
1777055

Репутация: 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;
 

  #5  
Старый 23.12.2008, 20:13
WON
Новичок
Регистрация: 02.07.2008
Сообщений: 17
Провел на форуме:
93013

Репутация: 8
По умолчанию
всё спасибо.. я понял где протупил....
Код:
jpeg := TJPEG.Create;
 

  #6  
Старый 23.12.2008, 21:01
De-visible
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638

Репутация: 1821


Отправить сообщение для De-visible с помощью ICQ
По умолчанию
Вопрос решен. Closed.
 
Закрытая тема



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Video Camera Watch - шпионские часы с видеокамерой lilsaint Новости мира "железа" 3 01.12.2008 15:28
Наручные часы надели на ухо и оснастили Bluetooth KoTeG Мировые новости 3 17.08.2006 01:21
Часы с телефоном †Romi4† Мировые новости 4 10.07.2006 10:47
прикрепление червя к картинке koi8-r Уязвимости 4 09.03.2006 00:37
Часы из электронной бумаги появятся в магазинах dinar_007 Мировые новости 1 07.12.2005 16:42



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ