代码搜索：TBitmap
找到约 563 项符合「TBitmap」的源代码
代码结果 563
www.eeworm.com/read/451979/7452488
pas sborders.pas
unit sBorders;
{$I sDefs.inc}
interface
uses Windows, Graphics, Classes, SysUtils, sMaskData;
procedure PaintRgnBorder(Bmp : TBitmap; Region : hrgn; Filling : boolean; MaskData : TsMaskData;
www.eeworm.com/read/361283/10061086
pas lbbmputils.pas
unit LBBMPUtils;
{$P+,S-,W-,R-}
interface
Uses Windows, Classes, Graphics, Controls,Forms;
function GetTransparentColor(B: TBitMap): TColor;
procedure DrawBitmapTransparent(Dest: TCanvas;
www.eeworm.com/read/116636/14960731
pas depng.pas
{$INCLUDE switches}
unit DePNG;
{ Load TBitmap from PNG file
Reduced version of the PngImage unit by Edmund H. Hand
Modifications by Steffen Gerlach
PngImage.
www.eeworm.com/read/100541/15872514
pas rotateunit.pas
unit RotateUnit;
interface
uses
Windows, SysUtils, Classes, Graphics, ExtCtrls;
type
TRotationType = (ra90, ra180, ra90rev, raFlipVert, raFlipHorz);
TRotBitmap = class(TBitmap)
www.eeworm.com/read/230024/14309139
txt save jpeg into database and read from database.txt
procedure Tfrm_Pic_Adm.btn_Load_Picture01Click(Sender: TObject);
var
pics:TStream;
Jpeg:TJpegImage;
bmp:TBitMap;
begin
// uses JPEG;
if not OpenPictureDialog1.Execute() then exit;
ib
www.eeworm.com/read/224025/14607477
txt bmp change jpg.txt
bmp change jpg
/**********************bmp位图转jpeg begin*************************
begin
abitmap := tbitmap.Create;
od1.Filter := '位图文件|*.bmp';
if od1.Execute then
filename := od1.filename
www.eeworm.com/read/224025/14607479
txt bmpchangejpg.txt
bmp change jpg
/**********************bmp位图转jpeg begin*************************
begin
abitmap := tbitmap.Create;
od1.Filter := '位图文件|*.bmp';
if od1.Execute then
filename := od1.filename
www.eeworm.com/read/262281/11595052
pas fft_2d.pas
// Transmap在 主程序中定义为TBitmap, 用之前要Create, 并将原图装入。
unit fft_2d;
interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, Menus,
StdCtrls, Dialogs, Buttons, Messages, ExtCtrls,
www.eeworm.com/read/224025/14607482
txt bmp转成jpg也是压缩哦！.txt
bmp转成jpg也是压缩哦！
/**********************bmp位图转jpeg begin*************************
begin
abitmap := tbitmap.Create;
od1.Filter := '位图文件|*.bmp';
if od1.Execute then
filename := od1.filename
www.eeworm.com/read/368317/9702003
txt 实现摄像头拍照.txt
http://www.moon-soft.com/doc/35133.htm
DELPHI实现摄像头拍照
procedure Tfrm1.Button2Click(Sender: TObject);
Var
jpeg: TJPEGImage;
bmp: TBitmap;
MyStm:TMemoryStream;
strfilename,strcard:String;