1,183
社区成员
发帖
与我相关
我的任务
分享
bru:=TBrush.Create;
try
bru.Color := clYellow;
bru.Style := bsCross;
FillRect(Canvas.Handle, Rect(x1, y1, x2, y2), bru.Handle);
finally
bru.Free;
end;
3.同样去掉Canvas.Brush.Color := clYellow; 和Canvas.Brush.Style := bsCross;改为使用API函数绘制。
hbr:=CreateHatchBrush(HS_CROSS, clYellow);
FillRect(Canvas.Handle, Rect(x1, y1, x2, y2), hbr);
DeleteObject(hbr);