VirtualTreeView (VST) : Header Option coVisible abfragen

[Piro]

Moin zusammen,

irgendwie bekomme ich nicht die Option coVisible abgefragt. Möchte gerne den Wert True oder False ermitteln, um es zu speichern.

Mit folgendem Code, kann ích die Option setzen.

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;

Nur abfragen gelingt mir nicht. Habe auch schon folgendes versucht aber ohne erfolgt.

Delphi-Quellcode:

var
 ColumnVisible : Boolean;
...
ColumnVisible := vst_requests.Header.Columns[i].Options[coVisible];

Wäre sehr dankbar für einen Gedankenanstoß.

MfG
Sven

[Lemmy]

Hi,

ein

Delphi-Quellcode:

ColumnVisible := coVisible in vst_requests.Header.Columns[i].Options;

geht nicht?

[Piro]

Cool.

Danke.

[uligerhardt]

Zitat:

Zitat von Piro (Beitrag 1218000)

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;