Навигатор

Программирование

Вебмастеру

ОС

Хотите раскрутить свой сайт в Яндекс и Google?
Недорогое и качественное продвижение сайта от 50$

Delphi 1

TPaintBox в буфер обмена

var

pbRect: TRect; begin

pbRect := Rect(0, 0, PaintBox1.Width, PaintBox1.Height);

BitMap := TBitMap.Create;

try

Bitmap.Width := PaintBox1.Width;

Bitmap.Height := PaintBox1.Height;

BitMap.Canvas.CopyRect(pbRect, PaintBox1.Canvas, pbRect);

ClipBoard.Assign(BitMap);

finally

BitMap.Free;

end; end;

- Xavier Pacheco [000824]

Материалы, которые находятся на этой страничке, любезно предоставлены Игорем Ивановым

РЕКЛАМНЫЙ БЛОК