Здравствуйте. Разбираюсь с компонентом Virtual Treeview. Так как все примеры на Delphi пытаюсь с него переводить. Возникла проблема с проверкой свойства у ноды. Вот эта строка vsSelected in Node.States
| Код |
procedure TfrmMain.VTPaintText(Sender: TBaseVirtualTree;
const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
TextType: TVSTTextType);
var
PhoneNode: PPhoneNode;
begin
PhoneNode := VT.GetNodeData(Node);
if Assigned(PhoneNode) then
TargetCanvas.Font.Color := PhoneNode^.Fg;
if (vsSelected in Node.States) and (Sender.Focused) then
TargetCanvas.Font.Color := clHighlightText;
end;
|
|