Problem mit Vst spalte färben

[youuu]

Hi,

Ich möchte bei einem besimmten Wert die Column einfärben in der, der Wert steht:

Ich dachte mir ich mach es so

Delphi-Quellcode:

procedure TFormKunden.VstPositionenGetText(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
  var CellText: string);
Var
  CustomerPos: TCustomerPositionen;
begin
  CustomerPos:= TCustomerPositionen(VstPositionen.GetNodeData(node)^ );
  case Column of
    0: Celltext:= CustomerPos.name;
    1: CellText:= IntToStr(CustomerPos.volume);
    2: CellText:= FloatToStr(CustomerPos.price);
    3: CellText:= FloatToStr(CustomerPos.price * CustomerPos.volume);
    4: If CustomerPos.status = 'aktive' Then
       Begin
         Color:= ClGreen;
         CellText:= CustomerPos.status;
       End
       Else
       Begin
         Color:= ClRed;
         CellText:= CustomerPos.status;
       End;
  end;
end;

Jedoch färbt er dabei leider nichts ein.

[xZise]

Naja aus dem ganz einfachen Grund, weil Color zum Formular gehört!

Genau deshalb gibt es das Ereignis "BeforeCellPaint".

MfG
xZise

[youuu]

Wie sag ich ihm dort aber, zeichne nur die Zeile 1 Grün wenn "xyz"und nicht das ganze VST?
Also wie ist der Befehl dafür?

[xZise]

Es gibt dort doch einen Spaltenparameter?

MfG
xZise

[CoLT]

Das musst du im OnBeforeCellPaint selber malen:

Delphi-Quellcode:

case Column of
  4:
     begin
       TargetCanvas.Brush.Color := clRed;
       TargetCanvas.FillRect(CellRect);
     end;
end;

mfg CoLT