Вывод на форму прозрачного текста поверх компонентов

@_Vitalii_ · Регистрация: 23.11.2011

Author24 — интернет-сервис помощи студентам

Здравсвуйте!
Возникла необходимость вывести по центру формы прозрачный текст (чтобы под символами виднелись компоненты).
Для этого я решил сделать снимок формы, сохранить его в Image, после чего нужным образом наложить на Image текст и вывести Image на форму (таким образом, на время показа надписи будет невозможно взаимодействовать с компонентами формы, т.к. пользователь будет видеть лишь снимок, но это не важно в данном случае).
Пытаюсь, для начала, выполнить хотя бы снимок формы:

Delphi

procedure TForm1.FormCreate(Sender: TObject);
begin
...
Image1:=TImage.Create(Form1);
Image1.BoundsRect:=Form1.BoundsRect;
Image1.BringToFront;
...
end;
 
procedure TForm1.ShowImage();
begin
    BitBlt(Image1.Canvas.Handle,0,0,ClientWidth,ClientHeight,GetDC(Handle),0,0,SRCCOPY);
    ... // убираю с формы все компоненты, кроме Image, для того, чтобы понять, сделался ли снимок
    Image1.Show; //в итоге форма пустая, на ней нету никакого снимка
end;

Подскажите пожалуйста, что я делаю неправильно?

DenNik · 17.04.2013, 08:34

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

Я не вижу ничего сложного в том, чтобы переопределить свойство Visible у панели

что значит "переопределить". у этого свойства два значения - ВКЛ и ВЫКЛ. что там ты хочешь переопределить?!!

@cotseec · 17.04.2013, 08:49

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

Прошу, скажите, где найти исходник TPanel ?

модуль ExtCtrls TCustomControl<-TWinControl<-TControl<-модуль Controls TComponent<-модуль Classes и т.д. к родителю всего - TObject

@Stas_Garcia · 17.04.2013, 17:54

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

Спасибо большое, аналогичный вариант предлагал cotseec, но у этого способа решения проблемы есть свои недостатки: попробуйте поперемещать основную форму после вывода текста, и вы увидите, что остаются чудовищные следы, и текст "не успевает" за ней. А в моей программе перемещать основную форму нужно обязательно. Да мало ли, какие ещё проблемы могу возникнуть из-за второй формы (программа у меня довольно большая).

Я не вижу ничего сложного в том, чтобы переопределить свойство Visible у панели. Не понимаю, чем вариант с созданием второй формы "проще". С точки зрения "количества кода", разве что.
Прошу, скажите, где найти исходник TPanel ?

Форму закрепить в форме можно.

Добавлено через 11 минут
У меня есть идея, сейчас сделаю исходник.

Добавлено через 7 минут
Нет, не сработало(

Добавлено через 15 минут

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

Спасибо большое, аналогичный вариант предлагал cotseec, но у этого способа решения проблемы есть свои недостатки: попробуйте поперемещать основную форму после вывода текста, и вы увидите, что остаются чудовищные следы, и текст "не успевает" за ней. А в моей программе перемещать основную форму нужно обязательно. Да мало ли, какие ещё проблемы могу возникнуть из-за второй формы (программа у меня довольно большая).

Я не вижу ничего сложного в том, чтобы переопределить свойство Visible у панели. Не понимаю, чем вариант с созданием второй формы "проще". С точки зрения "количества кода", разве что.
Прошу, скажите, где найти исходник TPanel ?

Visible:=true - полностью невидима, false - полностью видима. Ни о какой прозрачности речь не может идти. У лэйбла нет свойств прозрачности.

@cotseec · 17.04.2013, 19:11

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

Но, всё-таки, идея с двумя формами кажется мне какой-то корявой.

во вложении с одной формой, по принципу, описанному в первом посте (снимаешь скрин формы и выводишь поверх), чтобы добавить текст необходимо ввести его в эдит и нажать кнопку показать текст, чтобы убрать -необходимо нажать ESC

@cotseec · 17.04.2013, 19:30

а чтобы текст был действительно прозрачный (сквозь тело букв, а не между буквами видны элементы) см. способ вывода текста тут

@Stas_Garcia · 17.04.2013, 19:39

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

а чтобы текст был действительно прозрачный (сквозь тело букв, а не между буквами видны элементы) см. способ вывода текста тут

На скрине написать текст можно через редактор изображений (fotoshop,gimp...)

@cotseec · 17.04.2013, 19:41

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

На скрине написать текст можно

можно, в процессе работы программа делает свой скрин (внешний вид программы меняется, например что-то вводится/выводится в мемо), сама открывает редактор (или просит об этом пользователя), добавляет текст и выводит свой скрин......какая-то хрень получается

@Stas_Garcia · 17.04.2013, 19:44

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

можно, в процессе работы программа делает свой скрин (внешний вид программы меняется, например что-то вводится/выводится в мемо), сама открывает редактор (или просит об этом пользователя), добавляет текст и выводит свой скрин......какая-то хрень получается

Не учел, извиняюсь)

Добавлено через 2 минуты
Но ведь можно просто вывести картинку которая будет совпадать с формой только в части, вот пример(грубый):
и просто сделать границы image как границы формы а картинку поместить посредине.

@Stas_Garcia · 17.04.2013, 19:45

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

Не учел, извиняюсь)

Добавлено через 2 минуты
Но ведь можно просто вывести картинку которая будет совпадать с формой только в части, вот пример(грубый):
и просто сделать границы image как границы формы а картинку поместить посредине.

вот::

@Stas_Garcia · 17.04.2013, 19:53

Вот пример программы:

@Stas_Garcia · 17.04.2013, 19:56

Ну если лень в центр подстраивать то можно пустую Timage добавить а на нее обычную.

@_Vitalii_ · 18.04.2013, 18:51 **[ТС]**

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

что значит "переопределить". у этого свойства два значения - ВКЛ и ВЫКЛ. что там ты хочешь переопределить?!!

Метод SetVisible, а точнее - его подметод, отвечающий за прорисовку (VisibleChanging, если я не ошибаюсь). Убрать оттуда стирание "бэкграунда" перед отрисовкой (как я понял, именно поэтому происходит мерцание). Но, т.к. это всё в private, придётся подменять свойство Visible своим.

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

во вложении с одной формой

Спасибо, твой вариант почему то не мерцает. Вроде бы, всё точно так же (разве что элементы расположены наоборот). У меня же форма конкретно белой становится на доли секунд. Может, потому что все компоненты стиля win7.

P.S. завтра попробую реализовать написанное выше, выложу, что получится.

DenNik Житель Земли 3002 / 3004 / 391 Регистрация: 26.07.2011 Сообщений: 11,463 Записей в блоге: 1
	17.04.2013, 08:34	21
	Сообщение от _Vitalii_ Я не вижу ничего сложного в том, чтобы переопределить свойство Visible у панели что значит "переопределить". у этого свойства два значения - ВКЛ и ВЫКЛ. что там ты хочешь переопределить?!! 0

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	17.04.2013, 08:49	22
	Сообщение от _Vitalii_ Прошу, скажите, где найти исходник TPanel ? модуль ExtCtrls TCustomControl<-TWinControl<-TControl<-модуль Controls TComponent<-модуль Classes и т.д. к родителю всего - TObject 1

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	17.04.2013, 19:30	25
	а чтобы текст был действительно прозрачный (сквозь тело букв, а не между буквами видны элементы) см. способ вывода текста тут 1

@Stas_Garcia Ушел наливать чай 188 / 138 / 32 Регистрация: 02.03.2013 Сообщений: 650
	17.04.2013, 19:39	26
	Сообщение от cotseec а чтобы текст был действительно прозрачный (сквозь тело букв, а не между буквами видны элементы) см. способ вывода текста тут На скрине написать текст можно через редактор изображений (fotoshop,gimp...) 0

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	17.04.2013, 19:41	27
	Сообщение от Stas_Garcia На скрине написать текст можно можно, в процессе работы программа делает свой скрин (внешний вид программы меняется, например что-то вводится/выводится в мемо), сама открывает редактор (или просит об этом пользователя), добавляет текст и выводит свой скрин......какая-то хрень получается 0

@Stas_Garcia Ушел наливать чай 188 / 138 / 32 Регистрация: 02.03.2013 Сообщений: 650
	17.04.2013, 17:54	23
	Сообщение от _Vitalii_ Спасибо большое, аналогичный вариант предлагал cotseec, но у этого способа решения проблемы есть свои недостатки: попробуйте поперемещать основную форму после вывода текста, и вы увидите, что остаются чудовищные следы, и текст "не успевает" за ней. А в моей программе перемещать основную форму нужно обязательно. Да мало ли, какие ещё проблемы могу возникнуть из-за второй формы (программа у меня довольно большая). Я не вижу ничего сложного в том, чтобы переопределить свойство Visible у панели. Не понимаю, чем вариант с созданием второй формы "проще". С точки зрения "количества кода", разве что. Прошу, скажите, где найти исходник TPanel ? Форму закрепить в форме можно. Добавлено через 11 минут У меня есть идея, сейчас сделаю исходник. Добавлено через 7 минут Нет, не сработало( Добавлено через 15 минут Сообщение от _Vitalii_ Спасибо большое, аналогичный вариант предлагал cotseec, но у этого способа решения проблемы есть свои недостатки: попробуйте поперемещать основную форму после вывода текста, и вы увидите, что остаются чудовищные следы, и текст "не успевает" за ней. А в моей программе перемещать основную форму нужно обязательно. Да мало ли, какие ещё проблемы могу возникнуть из-за второй формы (программа у меня довольно большая). Я не вижу ничего сложного в том, чтобы переопределить свойство Visible у панели. Не понимаю, чем вариант с созданием второй формы "проще". С точки зрения "количества кода", разве что. Прошу, скажите, где найти исходник TPanel ? Visible:=true - полностью невидима, false - полностью видима. Ни о какой прозрачности речь не может идти. У лэйбла нет свойств прозрачности. 0

@Stas_Garcia Ушел наливать чай 188 / 138 / 32 Регистрация: 02.03.2013 Сообщений: 650
	17.04.2013, 19:44	28
	Сообщение от cotseec можно, в процессе работы программа делает свой скрин (внешний вид программы меняется, например что-то вводится/выводится в мемо), сама открывает редактор (или просит об этом пользователя), добавляет текст и выводит свой скрин......какая-то хрень получается Не учел, извиняюсь) Добавлено через 2 минуты Но ведь можно просто вывести картинку которая будет совпадать с формой только в части, вот пример(грубый): и просто сделать границы image как границы формы а картинку поместить посредине. 0

@Stas_Garcia Ушел наливать чай 188 / 138 / 32 Регистрация: 02.03.2013 Сообщений: 650
	17.04.2013, 19:45	29
	Сообщение от Stas_Garcia Не учел, извиняюсь) Добавлено через 2 минуты Но ведь можно просто вывести картинку которая будет совпадать с формой только в части, вот пример(грубый): и просто сделать границы image как границы формы а картинку поместить посредине. вот:: Миниатюры 0

@Stas_Garcia Ушел наливать чай 188 / 138 / 32 Регистрация: 02.03.2013 Сообщений: 650
	17.04.2013, 19:56	31
	Ну если лень в центр подстраивать то можно пустую Timage добавить а на нее обычную. 0

@_Vitalii_ 3 / 3 / 0 Регистрация: 23.11.2011 Сообщений: 90
	18.04.2013, 18:51 [ТС]	32
	Сообщение от DenNik что значит "переопределить". у этого свойства два значения - ВКЛ и ВЫКЛ. что там ты хочешь переопределить?!! Метод SetVisible, а точнее - его подметод, отвечающий за прорисовку (VisibleChanging, если я не ошибаюсь). Убрать оттуда стирание "бэкграунда" перед отрисовкой (как я понял, именно поэтому происходит мерцание). Но, т.к. это всё в private, придётся подменять свойство Visible своим. Сообщение от cotseec во вложении с одной формой Спасибо, твой вариант почему то не мерцает. Вроде бы, всё точно так же (разве что элементы расположены наоборот). У меня же форма конкретно белой становится на доли секунд. Может, потому что все компоненты стиля win7. P.S. завтра попробую реализовать написанное выше, выложу, что получится. 0