Try using the PrepareCanvas event.
Something loke:
procedure TArpDatForm.SG1PrepareCanvas(sender: TObject; aCol, aRow: Integer;
aState: TGridDrawState);
Var
St:String;
begin
SG1.Canvas.brush.color := clWhite;
If aCol = 4 Then
Begin
St := SG1.Cells[4,arow];
St := Copy(St,1,pos('.',st)-1);
If (SG1.Cells[3,aRow] <> St) Then
Begin
SG1.Canvas.Brush.color := clRed;
end;
End;
end;
From: Alexsander Rosa [mailto:[email protected]]
Sent: 12. september 2012 22:34
To: Lazarus mailing list
Subject: [Lazarus] Brush color on TListView
I was using a TStringGrid to show some data but I need the "non-linear
multi-select" from TListView.
However, the tricks to set Brush color inside of OnCustomDraw or
OnAdvancedCustomDraw do not work.
Am I missing something? How is it done?
--
Atenciosamente,
Alexsander da Rosa
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
