5,928
社区成员




PaintBox
↑
Image
↑
Panel
procedure TForm1.PaintBox1Paint(Sender: TObject);
var
FImg: TBitmap;
begin
with (Sender as TPaintBox) do
begin
//先禁止填充
Canvas.Brush.Style := bsClear;
//再开始画图
Canvas.Pen.Style := psSolid;
Canvas.Pen.Color := clNavy;
Canvas.Pen.Mode := pmBlack;
//画一条直线
Canvas.MoveTo(5, 5);
Canvas.LineTo(100, 100);
//画一个矩形
Canvas.Rectangle(40, 10, 60, 20);
//复制图片
FImg := TBitmap.Create;
try
FImg.LoadFromFile('globe.bmp'); //导入源图
FImg.TransparentColor := clPurple; //设置透明色
FImg.Transparent := True; //设置透明
Canvas.StretchDraw(Rect(20, 70, 52, 86), FImg);
finally
FreeAndNil(FImg);
end;
end;
end;