Ja also, ich schreib an nem Grafikprogramm. Wenn ich nun beim herkömmlichen Canvas die Pen.Width auf 30 Stelle und ne Linie zeichne, dann hat diese abgerundete Ecken. Deshalb nehme ich etwas aus dem System:
Delphi-Quellcode:
const
PenStyle = PS_Geometric or PS_Solid;
var
sx,sy:integer;
LogBrush: TLOGBRUSH;
begin
LogBrush.lbStyle := bs_Solid; //bsSolid ist ein Cardinalwert
LogBrush.lbColor := clred;
LogBrush.lbHatch := 0;
with Form6.Bild.Canvas do begin
Pen.Handle := ExtCreatePen(PS_Geometric+PS_Dash+PS_Endcap_Square+PS_Join_Round, StrToInt(Form4.ComboBox2.Text), LogBrush, 0, nil);
end;
So ich möchte nun, dass der User über ne ComboBox das Brushstyle selbst auswählt, also bs_Clear oder BS_DiagCross etc. Das funktioniert aber nicht, wenn ich die hier mache:
LogBrush.lbStyle := Combobox1.Text;