Thema: Delphi farbige Stringgrid ?

Einzelnen Beitrag anzeigen

Benutzerbild von eddy
eddy

Registriert seit: 3. Jan 2003
Ort: Sachsen
573 Beiträge
 
Delphi 5 Professional
 
#2

Re: farbige Stringgrid ?

  Alt 12. Mär 2004, 14:30
Hallo stoxx,

mit StringGrid kann ich Dir nicht helfen, aber so geht's in TDBGrid:

Code:
procedure TFMoney.dbgKDDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  Grid : TDBGrid;
  i : integer;
begin
  if (gdSelected in State) or (gdFocused in State) then exit;
  Grid:= TDBGrid(Sender);
  i := Grid.DataSource.DataSet.RecNo;
  if odd(i) then begin
    Grid.Canvas.Brush.Color := clInfoBk;
    Grid.DefaultDrawColumnCell(Rect, 0, Column, State);
  end;
end;
So ähnlich wird's wohl auch mit Stringgrid gehen.

mfg
eddy
  Mit Zitat antworten Zitat