Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.11.23;
Скачать: CL | DM;

Вниз

Как скопировать один TBitmap в другой?   Найти похожие ветки 

 
TBitmap   (2008-10-13 12:47) [0]

Вот код:

var bmp1,bmp2:TBitmap;

procedure TForm1.FormCreate(Sender: TObject);
var r:TRect;
begin
 bmp1:=TBitmap.Create;
 bmp2:=TBitmap.Create;

 bmp1.LoadFromFile("e:\IMG\untitled.bmp");

 R.Left:=0; R.Top:=0; R.Right:=bmp1.Width; R.Bottom:=bmp1.Height;
 bmp2.Canvas.CopyRect(R,bmp1.Canvas,R);

 Image1.Picture.Assign(bmp2);

 bmp2.free;
 bmp1.Free;
end;


Что-то не копируется.


 
brother ©   (2008-10-13 12:52) [1]

а вот так: bmp2.picture:=bmp1.picture ?


 
{RASkov} ©   (2008-10-13 12:55) [2]

assign


 
{RASkov} ©   (2008-10-13 12:57) [3]

а в [0] второму битмапу bmp2 размер кто будет задавать?


 
ПРавильный$Вася   (2008-10-13 12:58) [4]


> Image1.Picture.Assign(bmp2);

и где у тебя назначение картинке твоего битмапа?


 
TBitmap   (2008-10-13 13:27) [5]

Понял,

 bmp2.Assign(bmp1);


Всем спасибо!



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

Текущий архив: 2008.11.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
15-1222172851
Vlad Oshin
2008-09-23 16:27
2008.11.23
скажите, это что такое?


3-1209663336
trubin
2008-05-01 21:35
2008.11.23
Дерево в БД - проблема при удалении узла


15-1222252700
@!!ex
2008-09-24 14:38
2008.11.23
Проблема с propsheet от Rouse


2-1224054082
cosinus@bk.ru
2008-10-15 11:01
2008.11.23
Вывод из неконсольного приложения в консоль...


2-1223617781
F@T@L_Err0r
2008-10-10 09:49
2008.11.23
Запуск приложения