изображения в качестве текста

[skalt12]

Всем доброго дня!
У меня вот тут есть желание попробовать, вместо цифр от 0 до 9 использовать изображения, соответствующие номеру, а потом каким-то образом выводить. Например, чтобы дата FormatDateTime('dd',now) отображалась картинками...
Подскажите, пожалуйста, как сие реализовать?! через Case of? буду очень признателен

[Stilet]

А откуда изображение для цифры твое берется?

[skalt12]

Сообщение от Stilet

А откуда изображение для цифры твое берется?

из файла *.png или *.bmp.. т.е. для каждой циферки свой файл с изображением

[Serge_Bliznykov]

накидайте на форму столько TImage, сколько надо выводить символов.
Подготовьте картинки с цифрами. (самый простой для Вас вариант - каждая цифра в отдельном файле (для примера digit1.bmp - цифра 1
digit2.bmp - цифра 2 и т.д.

Дальше в нужном месте (на Form OnCreate, например)
пишете:

var s : string;
begin
  s := FormatDateTime('dd',now);
  Button1.Caption := s;
  Image1.Picture.LoadFromFile('digit'+s[1]+'.bmp');
  Image2.Picture.LoadFromFile('digit'+s[2]+'.bmp');
end;

[skalt12]

Сообщение от Serge_Bliznykov

накидайте на форму столько TImage, сколько надо выводить символов.
Подготовьте картинки с цифрами. (самый простой для Вас вариант - каждая цифра в отдельном файле (для примера digit1.bmp - цифра 1
digit2.bmp - цифра 2 и т.д.

Дальше в нужном месте (на Form OnCreate, например)
пишете:

var s : string;
begin
  s := FormatDateTime('dd',now);
  Button1.Caption := s;
  Image1.Picture.LoadFromFile('digit'+s[1]+'.bmp');
  Image2.Picture.LoadFromFile('digit'+s[2]+'.bmp');
end;

о! то что нужно! спасибо огромное!