Не выводится изображение с помощью CopyRect по FormCreate

@paskal · Регистрация: 15.08.2011

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

Пытаюсь вывести на форму рисунок функцией CopyRect. Рисование делаю на обработчике события OnCreate. Ничего не происходит. Если же сделаю обработчик на нажатие кнопки, то по нажатию все рисует как надо. Но мне надо чтоб рисунок был сразу после запуска программы. Что я упустил?

@Joey · 24.01.2018, 00:05

После OnCreate срабатывает OnShow и производится Repaint, который переписывает, что Вы нарисовали на форме.

@paskal · 24.01.2018, 01:00 **[ТС]**

Так надо на OnShow делать чтоб работало?

@northener · 24.01.2018, 02:42

Лучше бы было рисовать на OnPaint.

@paskal · 24.01.2018, 21:25 **[ТС]**

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

Лучше бы было рисовать на OnPaint

А что за событие OnPaint? Для чего оно используется?
Поставил счетчик на это событие. Оказалось оно вызывается непрерывно с большой скоростью. В таком виде не займет ли оно процесс бесполезной работой?

@Joey · 24.01.2018, 23:37

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

А что за событие OnPaint? Для чего оно используется?

http://docs.embarcadero.com/pr... Paint.html
Графические компоненты постоянно перерисовываются

If you use the form's Canvas property outside the OnPaint event, it will be erased and drawn-over by the next OnPaint event.

Если Вы используете свойство формы Canvas не в обработчике события OnPaint, ваши каракули будут стерты и перерисованы следующим событием OnPaint

@paskal · 25.01.2018, 00:09 **[ТС]**

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

Графические компоненты постоянно перерисовываются

Я согласен что компоненты должны перерисовываться когда например окна передвигаешь. Но тут другой случай. Это событие строчит как пулемет когда весь экран полностью неподвижен.

@Joey · 25.01.2018, 00:17

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

Это событие строчит как пулемет когда весь экран полностью неподвижен

Приведите код, который показывает, что оно строчит как пулемет

@paskal · 25.01.2018, 01:14 **[ТС]**

На форму кидаю Label1 и ставлю обработчик на OnPaint:

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
var
  k:Cardinal;
  s:string;
procedure TForm1.FormPaint(Sender: TObject);
begin
  k:=k+1;
  str(k,s);
  Label1.Caption:=s;
end;
 
end.

@northener · 25.01.2018, 01:24

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

На форму кидаю Label1 и ставлю обработчик на OnPaint

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

procedure TForm1.FormPaint(Sender: TObject); begin k:=k+1; str(k,s); Label1.Caption:=s; end;

Ну просто зашибись! В обработчике OnPaint нужно рисовать что-то своё, а не заставлять форму заново перерисовываться! И именно вы заставляете вызывать этот обработчик в режиме пулемёта, изменяя Label1.Caption.

@paskal · 25.01.2018, 01:37 **[ТС]**

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

И именно вы заставляете вызывать этот обработчик в режиме пулемёта, изменяя Label1.Caption.

Ну я об этом догадывался. Но это не дает ответа что делать.
Если я что то рисую своё, то опять вызову OnPaint до бесконечности.

@northener · 25.01.2018, 01:51

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

Если я что то рисую своё, то опять вызову OnPaint до бесконечности.

А вы попробуйте и потом уже скажете что получилось.
Если вы будете только рисовать, то никаких повторных вызовов OnPaint не будет.
Точнее повторные вызовы конечно будут, но только по необходимости связанной с видимостью окна формы.

@krapotkin · 25.01.2018, 10:35

TForm.OnPaint выполняется когда сама форма еще ничего не отрисовала, и вы просто рисуете НА ПУСТОМ КАНВАСЕ

поверх полученной картины форма будет рисовать свои компоненты
уж точно нельзя изменять свойства компонентов, которые говорят форме что нужно перерисоваться еще раз...

а вообще лучше рисовать на специально предназначенных поверхностях типа TPaintBox, а не на стенах домов...

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,252
	25.01.2018, 01:51	12
	Сообщение от paskal Если я что то рисую своё, то опять вызову OnPaint до бесконечности. А вы попробуйте и потом уже скажете что получилось. Если вы будете только рисовать, то никаких повторных вызовов OnPaint не будет. Точнее повторные вызовы конечно будут, но только по необходимости связанной с видимостью окна формы. 1

@krapotkin 5785 / 4527 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	25.01.2018, 10:35	13
	TForm.OnPaint выполняется когда сама форма еще ничего не отрисовала, и вы просто рисуете НА ПУСТОМ КАНВАСЕ поверх полученной картины форма будет рисовать свои компоненты уж точно нельзя изменять свойства компонентов, которые говорят форме что нужно перерисоваться еще раз... а вообще лучше рисовать на специально предназначенных поверхностях типа TPaintBox, а не на стенах домов... 1

@paskal 484 / 331 / 32 Регистрация: 15.08.2011 Сообщений: 1,071
		1
	Не выводится изображение с помощью CopyRect по FormCreate 23.01.2018, 23:25. Показов 1449. Ответов 12 Метки нет (Все метки) Пытаюсь вывести на форму рисунок функцией CopyRect. Рисование делаю на обработчике события OnCreate. Ничего не происходит. Если же сделаю обработчик на нажатие кнопки, то по нажатию все рисует как надо. Но мне надо чтоб рисунок был сразу после запуска программы. Что я упустил? 0

@Joey Джоуи 1081 / 643 / 240 Регистрация: 05.05.2015 Сообщений: 3,559 Записей в блоге: 2
	24.01.2018, 00:05	2
	После OnCreate срабатывает OnShow и производится Repaint, который переписывает, что Вы нарисовали на форме. 1

@paskal 484 / 331 / 32 Регистрация: 15.08.2011 Сообщений: 1,071
	24.01.2018, 01:00 [ТС]	3
	Так надо на OnShow делать чтоб работало? 0

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,252
	24.01.2018, 02:42	4
	Лучше бы было рисовать на OnPaint. 0

@paskal 484 / 331 / 32 Регистрация: 15.08.2011 Сообщений: 1,071
	24.01.2018, 21:25 [ТС]	5
	Сообщение от northener Лучше бы было рисовать на OnPaint А что за событие OnPaint? Для чего оно используется? Поставил счетчик на это событие. Оказалось оно вызывается непрерывно с большой скоростью. В таком виде не займет ли оно процесс бесполезной работой? 0

@Joey Джоуи 1081 / 643 / 240 Регистрация: 05.05.2015 Сообщений: 3,559 Записей в блоге: 2
	24.01.2018, 23:37	6
	Сообщение от paskal А что за событие OnPaint? Для чего оно используется? http://docs.embarcadero.com/pr... Paint.html Графические компоненты постоянно перерисовываются If you use the form's Canvas property outside the OnPaint event, it will be erased and drawn-over by the next OnPaint event. Если Вы используете свойство формы Canvas не в обработчике события OnPaint, ваши каракули будут стерты и перерисованы следующим событием OnPaint 1

@paskal 484 / 331 / 32 Регистрация: 15.08.2011 Сообщений: 1,071
	25.01.2018, 00:09 [ТС]	7
	Сообщение от Joey Графические компоненты постоянно перерисовываются Я согласен что компоненты должны перерисовываться когда например окна передвигаешь. Но тут другой случай. Это событие строчит как пулемет когда весь экран полностью неподвижен. 0

@Joey Джоуи 1081 / 643 / 240 Регистрация: 05.05.2015 Сообщений: 3,559 Записей в блоге: 2
	25.01.2018, 00:17	8
	Сообщение от paskal Это событие строчит как пулемет когда весь экран полностью неподвижен Приведите код, который показывает, что оно строчит как пулемет 0

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,252
	25.01.2018, 01:24	10
	Сообщение от paskal На форму кидаю Label1 и ставлю обработчик на OnPaint Сообщение от paskal procedure TForm1.FormPaint(Sender: TObject); begin k:=k+1; str(k,s); Label1.Caption:=s; end; Ну просто зашибись! В обработчике OnPaint нужно рисовать что-то своё, а не заставлять форму заново перерисовываться! И именно вы заставляете вызывать этот обработчик в режиме пулемёта, изменяя Label1.Caption. 2

@paskal 484 / 331 / 32 Регистрация: 15.08.2011 Сообщений: 1,071
	25.01.2018, 01:37 [ТС]	11
	Сообщение от northener И именно вы заставляете вызывать этот обработчик в режиме пулемёта, изменяя Label1.Caption. Ну я об этом догадывался. Но это не дает ответа что делать. Если я что то рисую своё, то опять вызову OnPaint до бесконечности. 0