Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 841 • TDictionary Custom Sort 6 830 • Fast Watermark Sources 6 609 • 3D Designer 9 575 • Sik Screen Capture 6 951 • Patch Maker 7 395 • Айболит (remote control) 7 345 • ListBox Drag & Drop 6 203 • Доска для игры Реверси 98 212 • Графические эффекты 7 519 • Рисование по маске 6 803 • Перетаскивание изображений 5 656 • Canvas Drawing 6 034 • Рисование Луны 5 826 • Поворот изображения 5 276 • Рисование стержней 3 868 • Paint on Shape 3 023 • Генератор кроссвордов 3 981 • Головоломка Paletto 3 155 • Теорема Монжа об окружностях 3 996 • Пазл Numbrix 2 636 • Заборы и коммивояжеры 3 450 • Игра HIP 2 364 • Игра Go (Го) 2 283 • Симулятор лифта 2 678 • Программа укладки плитки 2 242 • Генератор лабиринта 2 798 • Проверка числового ввода 2 401 • HEX View 2 744 • Физический маятник 2 430

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

Автор: Xavier Pacheco

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;