Форум: "Media";
Текущий архив: 2002.11.18;
Скачать: [xml.tar.bz2];
Вниз
Bitmap Найти похожие ветки
← →
sanci (2002-07-26 15:59) [0]Здрасте, мастера. Помогите разобраться:
на панельку Panel1:TPanel кидаю компоненты: button, edit, label.
Теперь хочу сохранить всю эту картину на панели в bitmap и передать в Image.
procedure TForm1.bbImageClick(Sender: TObject);
var
bitmap :TBitmap;
begin
Image1.Picture:=nil;
bitmap:=TBitmap.Create;
bitmap.Width:=Panel1.Width;
bitmap.Height:=Panel1.Height;
Panel1.PaintTo(bitmap.canvas.handle,0,0);
Image1.Picture.Bitmap.Assign(bitmap);
Bitmap.Free;
end;
На Image рисуется только Label - все, Edit - первый созданный, Button - ни одного. Что делать?
← →
VEG (2002-07-28 00:32) [1]Нужно копировать с anvas экрана функцией BitBlt! Написать пример?
← →
VEG (2002-07-28 00:36) [2]Ща напишу пример...
← →
VEG (2002-07-28 01:15) [3]
procedure TForm1.ButtonClick(Sender: TObject);
var
bitmap : TBitmap;
ScreenDC : hDC;
PanelPoint: TPoint;
begin
bitmap:=TBitmap.Create;
bitmap.Width:=Panel1.Width;
bitmap.Height:=Panel1.Height;
ScreenDC := GetDC(0); //Получаем контекст экрана
PanelPoint:=ClientToScreen(Point(panel1.BoundsRect.Left,panel1.BoundsRect.Top));//Получаем координаты панели на экране
BitBlt(Bitmap.Canvas.Handle, 0, 0, Bitmap.Width, Bitmap.Height, ScreenDC, PanelPoint.X, PanelPoint.Y, SRCCOPY);//Копируем изображение панели
ReleaseDC(0,ScreenDC);//Освобождаем контекст
Image1.Picture.Bitmap.Assign(bitmap);
Bitmap.Free;
end; //©VEG, 28.07.2002 0:22
Уфф... Когда писал, немного запутался:-)
-<>-<>-<>-<>-<<<Фраза>>>-<>-<>-<>-<>-
Зверь, самый лютый, жалости не чужд.
Я чужд. Значит я не зверь.
← →
sanci (2002-07-30 11:14) [4]Все работает. Огромное спасибо (хоть и с опозданием).
← →
VEG (2002-07-30 17:46) [5]sanci
Не за что!
ЗЫ: Я имел ввиду "Есть за что":-)
Страницы: 1 вся ветка
Форум: "Media";
Текущий архив: 2002.11.18;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c