Текущий архив: 2006.08.20;
Скачать: CL | DM;
Вниз
Скопировать изображение Найти похожие ветки
← →
BioWar2 (2006-07-27 16:36) [0]Как скопировать изображение TBitmap в буфер, если известны координаты прямоугольника?
← →
Gydvin © (2006-07-27 16:55) [1]uses clipbrd
clipboard.Assign();
← →
SerJaNT © (2006-07-27 17:20) [2]
> Gydvin © (27.07.06 16:55) [1]
Это я знаю, а вот как определенный кусок TBitmap запихнуть в буфер?
← →
Gydvin © (2006-07-27 17:40) [3]Скопировать его на отдельный битмап нужного тебе размера
bitblt()
потом в буфер обмена
← →
SerJaNT © (2006-07-28 02:51) [4]А не подскажите кодом?
Координаты прямоугольника на TImage: левый верхний угол XL, YL, правый нижний угол XR, YR.
← →
Gydvin © (2006-07-28 10:42) [5]
procedure TForm1.Button1Click(Sender: TObject);
procedure CopyBitmapToClipboard(bitmap: tbitmap; x, y, x1, y1: integer);
var
bmp: tbitmap;
begin
if (x1 <= x) or (y1 <= y) then exit;
bmp := tbitmap.Create;
bmp.Width := x1 - x;
bmp.Height := y1 - y;
bmp.Canvas.Draw(-x, -y, bitmap);
clipboard.Assign(bmp);
bmp.Free;
end;
begin
CopyBitmapToClipboard(image1.Picture.Bitmap, 80, 80, 250, 250);
end;
← →
SerJaNT © (2006-07-29 02:29) [6]
> Gydvin © (28.07.06 10:42) [5]
Не подскажешь, как проделать тоже самое но только относительно TGraphic?
← →
McSimm © (2006-07-29 02:35) [7]> bmp.Canvas.Draw(-x, -y, bitmap);
Help:TCanvas.Draw(X, Y: Integer; Graphic: TGraphic);
Страницы: 1 вся ветка
Текущий архив: 2006.08.20;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.057 c
