BitMap

← →
tytus (2003-05-21 20:03) [0]

Подскажите, как в Canvas.CopyRect(dest:TRect,canvas,source:TRect) указать прямоугольник Dest, если он - TBitmap???

← →
Song (2003-05-21 20:16) [1]

Что-то с параметрами ты наврал..

← →
tytus (2003-05-21 20:26) [2]

Я пишу так:
var
canva:TCanvas;
ScreenDC:HDC;
BM:TBitmap;
begin
canva:=TCanvas.Create;
ScreenDc:=GetDC(0);
BM:=TBitmap.Create;
Canva.Handle:=ScreenDC;
Canva.CopyRect(Rect(0,0,100,100),canva,Rect(
SpinEdit1.Value,Spinedit2.Value,SpinEdit1.Value+100,SpinEdit2.Value+100));
Идея такая - получить в ВМ копию десктопа.

← →
tytus (2003-05-21 20:44) [3]

Когда пишу
Image1.Canvas.CopyRect(Rect(0,0,100,100),canva, и т д...) то все работает. А вот с битмапом - не получается...

← →
Плохой человек (2003-05-21 21:45) [4]

Я знаю в чём ошибка. Ты создаёшь TBitMap, но не указываешь его размеры. Укажи размеры, типа:

BM.Width := 100;
BM.Height := 100;

← →
Плохой человек (2003-05-21 21:46) [5]

И ещё, лучше используй BitBlt.

← →
servs (2003-05-24 13:43) [6]

Canva.CopyRect(Rect(0,0,100,100), canva,Rect(
SpinEdit1.Value,Spinedit2.Value,SpinEdit1.Value+100,SpinEdit2.Value+100));

И что ты хочешь?

Может стоит написать
Canva.CopyRect(Rect(0,0,100,100), BM.Canvas,Rect(
SpinEdit1.Value,Spinedit2.Value,SpinEdit1.Value+100,SpinEdit2.Value+100));

← →
servs (2003-05-24 13:51) [7]

т.е наоборот

BitMap Найти похожие ветки