|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
09.04.2008, 19:36 | #1 |
Пользователь
Регистрация: 09.04.2008
Сообщений: 30
|
Сделать скрин формы
Вообщем мне нужно сделать такую ерунду - есть форма на которой есть десять строк текста и его нужно сохранить в виде картинки ! Можете подсказать как или написать код проги а то я уже незнаю что и делать - была мысля поместить текст на Image но тоже провалилась !!!!
From Stilet: Тему называй так чтоб понятно было. В следующий раз удалюю Последний раз редактировалось Stilet; 10.04.2008 в 09:54. |
09.04.2008, 19:41 | #2 |
Участник клуба Подтвердите свой е-майл
Регистрация: 14.12.2007
Сообщений: 1,434
|
НАдо работать с канвой формы.
Проповедую design patterns, верую в MVC, доверяю eXtrime programming.
|
09.04.2008, 19:49 | #3 |
Форумчанин
Регистрация: 15.02.2008
Сообщений: 621
|
Скорее всего эту переместят в помощь студентам или даже закроют из-за не коректного имени.
Вот первое что пришло на ум: Код:
Помог? Ну так нажми на весы!
Последний раз редактировалось SNUPY; 09.04.2008 в 20:01. |
09.04.2008, 19:58 | #4 |
Пользователь
Регистрация: 09.04.2008
Сообщений: 30
|
Я вот нарыл такой кодик - по идее должно помещать прозрачный текст на Image а что нужно изменить чтоб он был не прозрачный !!!!
procedure TForm1.Button1Click(Sender: TObject); var OldBkMode : integer; begin Image1.Picture.Bitmap.Canvas.Font.C olor := clBlue; OldBkMode := SetBkMode(Image1.Picture.Bitmap.Can vas.Handle,TRANSPARENT); Image1.Picture.Bitmap.Canvas.TextOu t(300, 300, 'Hello'); SetBkMode(Image1.Picture.Bitmap.Can vas.Handle,OldBkMode); end; |
09.04.2008, 20:31 | #5 |
Пользователь
Регистрация: 09.04.2008
Сообщений: 30
|
Код:
Оно копирует и сохраняет не только форму но и часть рабочего стола сохраняет в картинку |
09.04.2008, 20:48 | #6 |
Форумчанин
Регистрация: 15.02.2008
Сообщений: 621
|
Ну это из-за рамки... А вообще этот метод имеет один существенный минус он берет не форму а то что находиться над ней...
Помог? Ну так нажми на весы!
|
09.04.2008, 21:09 | #7 |
Пользователь
Регистрация: 09.04.2008
Сообщений: 30
|
А может кто знает как разместить текста на сам Images ???
|
09.04.2008, 21:22 | #8 |
Форумчанин
Регистрация: 15.02.2008
Сообщений: 621
|
Ну на канве Имеджа нарисуй
Помог? Ну так нажми на весы!
|
09.04.2008, 21:22 | #9 |
Пользователь
Регистрация: 09.04.2008
Сообщений: 30
|
Вот это код по идее должен вставлять прозрачный текст на Convas Tbitmap но у меня вроде не работает можете у себя глянуть и если работает то что нужно поменять чтоб текст был не прозрачный ???
Код:
|
09.04.2008, 21:24 | #10 |
Форумчанин
Регистрация: 29.03.2008
Сообщений: 300
|
код:
var can: tcanvas; begin image1.canvas.copyrect(rect(0, 0, image1.width, image1.height), form1.canvas, rect(0, 0, form1.width, form1.height)); end не проверял, но должно работать..
Карп преодолевший водопад становится драконом.
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как сделать чтобы динамически созданные объекты оставались после закрытия формы? | AHAPXUCT2007 | Общие вопросы Delphi | 7 | 28.09.2007 08:46 |
Принт скрин | MAcK | Win Api | 1 | 31.08.2007 20:48 |
Лого скрин | Elm0 | Свободное общение | 10 | 23.06.2007 13:08 |
Скажите как сделать так, чтобы размер формы оставался фиксированным? | Faramund | Помощь студентам | 2 | 20.03.2007 20:14 |
как сделать так чтобы при открытии второй формы олько она была активной | doncova1 | Общие вопросы Delphi | 2 | 03.02.2007 19:34 |