Прорисовка в памяти

@97mik · Регистрация: 08.04.2009

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

Как в delphi включить прорисовку в памяти? В pascal abc это можно сделать с помощью функции lockdrawing; а потом redraw; а как это сделать в delphi?

@Alex_pac · 16.11.2012, 22:55

TBitmap.Canvas чтоле?

читаю ваши мысли:

Delphi

1	TForm.DoubleBuffered:=true;

оно нет?

@97mik · 16.11.2012, 23:05 **[ТС]**

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

оно нет?

Наверно, я вывожу рисунок в paintbox, как мне это написать что бы например линия в пасяти рисовалась а потом выводилась в paintbox?

@Alex_pac · 16.11.2012, 23:10

создавай TBitmap и рисуй а потом через canvas.copyrect уже в готовом виде на paintBox

также еще можно через WinApi BitBlt копировать с канваса на канвас

@97mik · 16.11.2012, 23:15 **[ТС]**

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

создавай TBitmap и рисуй а потом через canvas.copyrect уже в готовом виде на paintBox

Я не сильно профи, если можно объясните пожалуста

@Alex_pac · 16.11.2012, 23:22

долго объяснять. Иди лучше в гугл и читай про TBitmap и работу с Canvas

@97mik · 16.11.2012, 23:28 **[ТС]**

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

Иди лучше в гугл и читай про TBitmap и работу с Canvas

Дайте ссылку плз

16.11.2012, 23:29

Не так уж и долго.

Delphi

procedure PaintBox1Paint(Sender : TObject);
var
  bmp : TBitmap;
begin
  bmp := TBitmap.Create;
  bmp.Width := PaintBox1.Width;
  bmp.Height := PaintBox1.Height;
  try
    bmp.Canvas. // что-то рисуем
    BitBlt(PaintBox1.Canvas.Handle, 0, 0, bmp.Width, bmp.Height, bmp.Canvas.Handle, 0, 0, SRCCOPY);
  finally
    Bmp.Free;
  end;
end;

@Alex_pac · 16.11.2012, 23:31

try
bmp.Canvas. // что-то рисуем
BitBlt(PaintBox1.Canvas.Handle, 0, 0, bmp.Width, bmp.Height, bmp.Canvas.Handle, 0, 0, SRCCOPY);
finally
Bmp.Free;
end;

зачем там try и finally ? разве там могут быть исключения?

Bmp.Free;

вовсе обязательно уничтожать буфер, особенно в том случае если надо будет опять в скором времени его использовать. Однако тогда, буфер должен быть объявлен как глобальная или переменная класса, и создаваться при Form.Create

@97mik · 16.11.2012, 23:32 **[ТС]**

Что обозначает

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

try

и

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

BitBlt(PaintBox1.Canvas.Handle, 0, 0, bmp.Width, bmp.Height, bmp.Canvas.Handle, 0, 0, SRCCOPY);
* finally

16.11.2012, 23:34

Дело не в исключениях, это правило хорошего тона ставить защиту.
Конечно лучше создать битмап глобально в OnCreate формы. Но ведь это только пример.

@Alex_pac · 17.11.2012, 00:40

Delphi

procedure PaintBox1Paint(Sender : TObject);
var
  bmp : TBitmap;
begin
  bmp := TBitmap.Create;
  bmp.Width := PaintBox1.Width;
  bmp.Height := PaintBox1.Height;
 
 //bmp.Canvas. // что-то рисуем << бла бла
 
  with PaintBox1.Canvas do CopyRect(ClipRect,bmp.Canvas,ClipRect);
 
  Bmp.Free;
end;

хотя в данном случае буфер может и не понадобиться если у формы будет выставлен двойной буфер

Form1.DoubleBuffered:=true;

Delphi

procedure PaintBox1Paint(Sender : TObject);
begin
 
 //PaintBox1.Canvas // что-то рисуем << бла бла
 
end;

Добавлено через 1 час 3 минуты

Дело не в исключениях, это правило хорошего тона ставить защиту

ставить защиту там где она не нужна? усложнять логику кода там где в этом нет необходимости?

17.11.2012, 01:03

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

@Alex_pac · 17.11.2012, 01:20

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

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

откуда ей быть? следуя вашей логике надо везде параноидально после begin сразу писать try, на всякий случай

17.11.2012, 01:29

Не по теме:

Не нужно утрировать. Дальнейшее препирательство считаю бессмысленным.

@DaMortum · 17.11.2012, 14:50

Не по теме:

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

откуда ей быть? следуя вашей логике надо везде параноидально после begin сразу писать try, на всякий случай

Учитывая что самого кода рисования нет, там может быть что угодно. Я могу разделить на ноль...случайно. Try стоит не просто после begin, до этого был создан TBitmap, в случае ошибки произойдёт утечка памяти( хотя всем на эти утечки давно плевать).

@Alex_pac · 17.11.2012, 14:59

в случае ошибки произойдёт утечка памяти

для этого надо еще создать условия для этой ошибки.

Например работа с нестабильными компонентами типа Indy которые зависят от запросов сети. или Работа классом TJpeg который может внезапно исключение выдать. Вот в этих случаях try оправдан, в остальных это просто лишние строчки

Вообще само ожидание в блоке try каких либо ошибок говорит о неуверенности в надежности составленного алгоритма. Либо о незнании чего либо.

@97mik · 17.11.2012, 19:18 **[ТС]**

Когда пишу

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

Bmp.Free;

Выдаёт такую ошибку

@Alex_pac · 17.11.2012, 19:48

Сообщение от 97mik

Когда пишу

Выдаёт такую ошибку

код в студию

@97mik · 17.11.2012, 22:00 **[ТС]**

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

код в студию

Вот исходник, сделайте пожалуйста что бы не мерцало при каждой прорисовке, и ещё, в Pascal ABC в этой же программе 200 шариков не глючит (оперативка 1гб) а в делфи 30 глючит, может там какие нибудь лишние модули подключены или что то такое, сделайте пожалуйста что бы не глючило!

@97mik 12 / 12 / 5 Регистрация: 08.04.2009 Сообщений: 879
		1
	Прорисовка в памяти 16.11.2012, 21:00. Показов 2504. Ответов 23 Метки нет (Все метки) Как в delphi включить прорисовку в памяти? В pascal abc это можно сделать с помощью функции lockdrawing; а потом redraw; а как это сделать в delphi? 0

@97mik 12 / 12 / 5 Регистрация: 08.04.2009 Сообщений: 879
	16.11.2012, 23:05 [ТС]	3
	Сообщение от Alex_pac оно нет? Наверно, я вывожу рисунок в paintbox, как мне это написать что бы например линия в пасяти рисовалась а потом выводилась в paintbox? 0

@Alex_pac 1302 / 708 / 107 Регистрация: 25.05.2011 Сообщений: 2,158 Записей в блоге: 51
	16.11.2012, 23:10	4
	создавай TBitmap и рисуй а потом через canvas.copyrect уже в готовом виде на paintBox также еще можно через WinApi BitBlt копировать с канваса на канвас 0

@97mik 12 / 12 / 5 Регистрация: 08.04.2009 Сообщений: 879
	16.11.2012, 23:15 [ТС]	5
	Сообщение от Alex_pac создавай TBitmap и рисуй а потом через canvas.copyrect уже в готовом виде на paintBox Я не сильно профи, если можно объясните пожалуста 0

@Alex_pac 1302 / 708 / 107 Регистрация: 25.05.2011 Сообщений: 2,158 Записей в блоге: 51
	16.11.2012, 23:22	6
	долго объяснять. Иди лучше в гугл и читай про TBitmap и работу с Canvas 0

@97mik 12 / 12 / 5 Регистрация: 08.04.2009 Сообщений: 879
	16.11.2012, 23:28 [ТС]	7
	Сообщение от Alex_pac Иди лучше в гугл и читай про TBitmap и работу с Canvas Дайте ссылку плз 0

@Alex_pac 1302 / 708 / 107 Регистрация: 25.05.2011 Сообщений: 2,158 Записей в блоге: 51
	16.11.2012, 23:31	9
	try bmp.Canvas. // что-то рисуем BitBlt(PaintBox1.Canvas.Handle, 0, 0, bmp.Width, bmp.Height, bmp.Canvas.Handle, 0, 0, SRCCOPY); finally Bmp.Free; end; зачем там try и finally ? разве там могут быть исключения? Bmp.Free; вовсе обязательно уничтожать буфер, особенно в том случае если надо будет опять в скором времени его использовать. Однако тогда, буфер должен быть объявлен как глобальная или переменная класса, и создаваться при Form.Create 1

@97mik 12 / 12 / 5 Регистрация: 08.04.2009 Сообщений: 879
	16.11.2012, 23:32 [ТС]	10
	Что обозначает Сообщение от angstrom try и Сообщение от angstrom BitBlt(PaintBox1.Canvas.Handle, 0, 0, bmp.Width, bmp.Height, bmp.Canvas.Handle, 0, 0, SRCCOPY); * finally 0

angstrom
	16.11.2012, 23:34	11
	Дело не в исключениях, это правило хорошего тона ставить защиту. Конечно лучше создать битмап глобально в OnCreate формы. Но ведь это только пример.

angstrom
	17.11.2012, 01:03	13
	Пишите как привыкли, только потом не жалуйтесь, что не сможете найти где и почему происходит утечка памяти.

@Alex_pac 1302 / 708 / 107 Регистрация: 25.05.2011 Сообщений: 2,158 Записей в блоге: 51
	17.11.2012, 01:20	14
	Сообщение от angstrom Пишите как привыкли, только потом не жалуйтесь, что не сможете найти где и почему происходит утечка памяти. откуда ей быть? следуя вашей логике надо везде параноидально после begin сразу писать try, на всякий случай 0

angstrom
	17.11.2012, 01:29 #15
	Не по теме: Не нужно утрировать. Дальнейшее препирательство считаю бессмысленным.

@DaMortum
	17.11.2012, 14:50 #16
	Не по теме: Сообщение от Alex_pac откуда ей быть? следуя вашей логике надо везде параноидально после begin сразу писать try, на всякий случай Учитывая что самого кода рисования нет, там может быть что угодно. Я могу разделить на ноль...случайно. Try стоит не просто после begin, до этого был создан TBitmap, в случае ошибки произойдёт утечка памяти( хотя всем на эти утечки давно плевать). 0

@Alex_pac 1302 / 708 / 107 Регистрация: 25.05.2011 Сообщений: 2,158 Записей в блоге: 51
	17.11.2012, 14:59	17
	в случае ошибки произойдёт утечка памяти для этого надо еще создать условия для этой ошибки. Например работа с нестабильными компонентами типа Indy которые зависят от запросов сети. или Работа классом TJpeg который может внезапно исключение выдать. Вот в этих случаях try оправдан, в остальных это просто лишние строчки Вообще само ожидание в блоке try каких либо ошибок говорит о неуверенности в надежности составленного алгоритма. Либо о незнании чего либо. 0

@97mik 12 / 12 / 5 Регистрация: 08.04.2009 Сообщений: 879
	17.11.2012, 19:18 [ТС]	18
	Когда пишу Сообщение от Alex_pac Bmp.Free; Выдаёт такую ошибку Миниатюры 0

@Alex_pac 1302 / 708 / 107 Регистрация: 25.05.2011 Сообщений: 2,158 Записей в блоге: 51
	17.11.2012, 19:48	19
	Сообщение от 97mik Когда пишу Выдаёт такую ошибку код в студию 0