|
Registriert seit: 23. Jun 2003
416 Beiträge
Delphi 2006 Professional
|
Re: Canvas-Pen zeichnet abgerundete Linien
11. Mai 2004, 21:25
Delphi-Quellcode:
var
Brush: LOGBRUSH;
// ...
Brush.lbStyle := BS_SOLID;
Brush.lbColor := RGB(0, 0, 0);
h := SelectObject(Canvas.Handle, ExtCreatePen(PS_GEOMETRIC or PS_SOLID or PS_ENDCAP_FLAT or PS_JOIN_MITER, 1, @Brush, 0, nil));
// Linien zeichnen
DeleteObject(SelectObject(Canvas.Handle, h));
"Electricity is actually made up of extremely tiny particles called electrons, that you cannot see with the naked eye unless you have been drinking." (Dave Barry)
|
|
|
Zitat
|