Delphi-Quellcode:
case Combobox1.ItemIndex of
0: LogBrush.lbStyle := BS_SOLID;
1: LogBrush.lbStyle := BS_CLEAR;
2: LogBrush.lbStyle := BS_IRGENDWAS;
{...}
else
{...};
end;
Mit StrToInt kannst du
nicht die vom Editor verwendeten Namen von Konstanten in die entsprechenden Werte umwandeln. StrToInt liefert nur Integers aus Hexwert-Strings (z.B. '$AAF02') und Zahlen-Strings (z.B. '1234567').
Du könntest natürlich auch eine Komponente von TCombobox ableiten, die mit den Items verknüpfte Cardinal-Werte als Eigenschaft besitzt.