VirtualTreeView (VST) : Header Option coVisible abfragen

[uligerhardt]

Zitat von Piro:

Delphi-Quellcode:

ColumnIndex := 1;
 case Ord(cb_setup_computername.Checked) of
   0: vst_overview.Header.Columns[ColumnIndex].Options := vst_overview.Header.Columns[ColumnIndex].Options - [coVisible];
   1: vst_overview.Header.Columns[ColumnIndex].Options := vst_overview.Header.Columns[ColumnIndex].Options + [coVisible];
 end;

Wäre

Delphi-Quellcode:

ColumnIndex := 1;
if cb_setup_computername.Checked then
  vst_overview.Header.Columns[ColumnIndex].Options := vst_overview.Header.Columns[ColumnIndex].Options + [coVisible]
else
  vst_overview.Header.Columns[ColumnIndex].Options := vst_overview.Header.Columns[ColumnIndex].Options - [coVisible];
end;

nicht lesbarer?

Oder noch besser

Delphi-Quellcode:

ColumnIndex := 1;
Col := vst_overview.Header.Columns[ColumnIndex];
if cb_setup_computername.Checked then
  Col.Options := Col.Options + [coVisible]
else
  Col.Options := Col.Options - [coVisible];
end;