Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi] Сохранение рисунка с канвы

Автор: kosta 13.9.2006, 00:29

подскажите плз как с канвы paintboxa сохранить то что я нарисовал там (всякие кружочки и квадратики =) ). Можно в переменную, можно в файл. И еще подскажите плз как достать потом эти данные и поместить на другую канву меньшего размера пропорционально сжав при этом рисунок.

Автор: Alexeis 13.9.2006, 00:36

Сохраниь можно в файл, предворительно скопировав изображение и канвы паинтбокса на канву битмапа при помощи метода copyrect
Для сжатия можно испльзовать также мтода канвы StreatchDraw

Автор: kosta 13.9.2006, 00:42

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

Автор: kosta 13.9.2006, 12:13

копировать в файл вроде уже получаеться, но застрял вот на каком месте - файл создаеться, но пустой =( может я в коде чо не дописал, подскажите плз

Код


...
arect:=rect(0,0,100,100);
b:=TBitmap.Create;
b.Canvas.CopyMode:=cmSrcCopy;
b.Canvas.CopyRect(arect,pbFractal.Canvas,arect);
b.SaveToFile('BW1.bmp');
b.Free;
...

Автор: kosta 13.9.2006, 13:20

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