Einzelnen Beitrag anzeigen

Relicted

Registriert seit: 24. Jan 2006
Ort: Iserlohn
646 Beiträge
 
Delphi 10.4 Sydney
 
#4

Re: Hintergrundfarbe einer Zeile in dbgrid oder JVUltimGrid

  Alt 13. Mär 2007, 14:24
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
  Mit Zitat antworten Zitat