Вниз
Скачать: CL | DM;

Как сохранить нарисованне на канве PaintBox, в переменной TBitmap   Найти похожие ветки 

 
Отто фон Бисмарк   (2004-04-18 12:16) [0]

Как сохранить рисунок, нарисованный на канве компонента TPaintBox, в объекте TBitmap, т.е. чтобы то что я нарисовал, можно было сохранить в переменной типа TBitmap, чтобы в последующем можно было сохранить рисунок и использоват mtuj при событии OnPaint...


 
Mihey ©   (2004-04-18 15:47) [1]

Создать этот TBitmap, выставить размеры и через TBitmap.Canvas.CopyRect скопировать на него область из канвы TPaintBox.


 
Думкин ©   (2004-04-18 16:14) [2]

> Отто фон Бисмарк   (18.04.04 12:16)

В ветке из которой возник сей вопрос я писал об одном коде (первоначальный прикид) - он лежит где-то тут в пределах 30-40 постов. Поищи, там есть ответ на твой вопрос.


 
Отто фон Бисмарк   (2004-04-18 21:50) [3]

Mihey...
я сразу так и сделал (вот код)
Image.Canvas.CopyRect(paintBox1.Canvas.ClipRect,PaintBox1.Canvas,paintBox1.Canvas.ClipRect);
но это ничего не изменило...


 
Mihey ©   (2004-04-18 22:06) [4]

Image.Canvas.CopyRect(paintBox1.Canvas.ClipRect,PaintBox1.Canvas,paintBox1.Canvas.ClipRect);

---->

Image.Canvas.CopyRect(paintBox1.Canvas.ClipRect,PaintBox1.Canvas,paintBox1.Canvas.ClientRect);


 
Mihey ©   (2004-04-18 22:06) [5]

Ну и первый параметр соответсвенно тоже.


 
Отто фон Бисмарк   (2004-04-18 22:25) [6]

Mihey
[Error] Unit1.pas(236): Undeclared identifier: "ClientRect"
там вообще такого свойства нету...


 
Mihey ©   (2004-04-19 21:05) [7]

2 Отто фон Бисмарк:

В смысле PaintBox1.ClientRect.


 
Отто фон Бисмарк   (2004-04-19 21:37) [8]

Mihey..спасибо!! всё работает!



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.022 c
14-1087370201
IceBeerg
2004-06-16 11:16
2004.07.04
2а вопроса


3-1086701394
serg128
2004-06-08 17:29
2004.07.04
Не работает Lookup поле, посмотрите плиз, почему?


3-1086615740
Inkotex
2004-06-07 17:42
2004.07.04
DBGrid и его набор даных


14-1087280962
DimKa
2004-06-15 10:29
2004.07.04
Сколько в кубометре байтов?


9-1077131254
Zeqfreed
2004-02-18 22:07
2004.07.04
Посмотрите на "игру"




   Наверх