Delphi-Quellcode:
procedure TStringGridHandler.StringGridDrawCell(Sender: TObject; ACol,
ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
if ( aCol <> 0 ) and ( aRow <> 0 ) then
begin
with m_coStringGrid do
begin
if not Sametext( Cells[ ACol, ARow ], Cells[ 0,Arow ] ) then
begin
Canvas.Brush.Color := clSkyBlue;
Canvas.FillRect( Rect );
Canvas.TextOut( Rect.Left, Rect.Top, Cells[ ACol, ARow ] );
end;
end;
end;
end;
hier mal nen beispiel vom stringgrid... musst halt nur die parameter an deine anpassen...
ist nicht soooo viel unterschiedlich hab nur gerade den
qc vom dbgrid ned da
Gruß
reli