Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Компонент image 
:(
    Опции темы
Reaktor488
  Дата 29.5.2010, 19:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 29.5.2010

Репутация: нет
Всего: нет
Добрый вечер!Для записи поверх картинки использую Image1.Canvas.TextOut(x,y,Edit1.Text); вопрос можно ли изменять вид текста ,цвет,размер шрифта и вид и можно ли поверх этого изображения поставить другое а потом сохранить как единое целое? Заранее благодарен,спасибо!
PM MAIL   Вверх
DarkProg
Дата 29.5.2010, 20:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Законченный романтик
***


Профиль
Группа: Завсегдатай
Сообщений: 1784
Регистрация: 11.3.2009
Где: Земля

Репутация: 4
Всего: 19
Можно smile
В DRKB есть подробные примерыsmile


--------------------
"И твоя голова всегда в ответе за то куда сядет твой зад..."

"Я студент - скажите с какого я ВУЗа..."

 smile  smile  smile 
PM MAIL   Вверх
Reaktor488
Дата 29.5.2010, 21:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 29.5.2010

Репутация: нет
Всего: нет
Цитата(DarkProg @ 29.5.2010,  20:09)
Можно smile
В DRKB есть подробные примерыsmile

 smile это где?
PM MAIL   Вверх
Proxin
Дата 29.5.2010, 23:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 363
Регистрация: 21.6.2008

Репутация: 1
Всего: 3
drkb.ru
пример на коленке.
Код

procedure texttoimage(text:string;afont:tfont;coordx,coordy:integer);
begin
with image1.canvas do begin
font:=afont;
textout(coordx,coordy,text);
end;
end;
procedure mergeimgs(var imagea,imageb:timage;opitac:byte);
var bl:tblendfunction;
begin
with bl do begin
blendop:=ac_src_over;
belndflags:=0;
sourceconstantalpha:=opitac;
alphaformat:=0;
end;
alphablend(image1.canvas.handle,0,0,image1.width,image1.height,image2.canvas.handle,0,0,image2.width,image2.height,bl);
end;
procedure savetofile(path:string);
begin
image1.savetofile(path);
end;

вроде, так.
зы. reaktor488, вы при регистрации единицу забыли.


Это сообщение отредактировал(а) Proxin - 29.5.2010, 23:15
PM MAIL   Вверх
Argilius
Дата 1.7.2010, 14:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 1.7.2010
Где: Москва

Репутация: нет
Всего: 0
Если есть канвас, то можно делать с ним все, что угодно.
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0410 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.