利用路径进行绘图

  • 主题发起人 主题发起人 import
  • 开始时间 开始时间
I

import

Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject); var
lb : TLogBrush;
begin
lb.lbStyle := BS_SOLID;
lb.lbColor := RGB(255, 0, 0);
lb.lbHatch := 0;
Canvas.Pen.Handle := ExtCreatePen(PS_GEOMETRIC or PS_INSIDEFRAME or
PS_ENDCAP_SQUARE or PS_JOIN_BEVEL, 20, lb, 0, nil);
 
后退
顶部