Советы по Delphi


           

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]



Содержание





Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий