Ergebnis der Suchanfrage

• Forum: Datenbanken

  AW: DBGrid1 färben

   
    by Alterauge, 29. Apr 2011
  procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
  begin
  if DBGrid1.DataSource.DataSet.FieldByName('STATUS').Value = 'Erfasst' then begin
  DBGrid1.Canvas.Brush.Color := clYellow;
  DBGrid1.Canvas.Font.Color := clred
  end else begin
  DBGrid1.Canvas.Brush.Color := clWhite;
  ...
• Forum: Datenbanken

  AW: DBGrid1 färben

   
    by Alterauge, 29. Apr 2011
  procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
  var
  aValue: string;
  begin
  if Column.Index = 1 then begin {nummer der spalte im dbgrid}
  aValue:= Column.Field.asString; {suchbegriff auslesen}
  if aValue = 'Erfasst' then begin
  DBGrid1.Canvas.Brush.Color := clYellow;
  ...
• Forum: Datenbanken

  AW: DBGrid1 färben

   
    by Alterauge, 25. Apr 2011
  hier ! habe selber eine lösung gefunden!
  
  procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
  var
  aValue: string;
  begin
  if Column.Index = 1 then begin {nummer der spalte im dbgrid}
  aValue:= Column.Field.asString; {suchbegriff auslesen}
  if aValue = 'Erfasst' then begin
• Forum: Datenbanken

  AW: DBGrid1 färben

   
    by Alterauge, 25. Apr 2011
  hey ???
  
  wo stelle ich das ein ? finde nix?
  procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
  var
  aValue: string;
  begin
  if Column.Index = 2 then begin {nummer der spalte im dbgrid}
  aValue:= Column.Field.asString; {suchbegriff auslesen}
• Forum: Datenbanken

  AW: DBGrid1 färben

   
    by Alterauge, 25. Apr 2011
  die zeile färb sich nicht ein !
  
  wenn in der spalte 3 = der wert Erfasst steht!
  dann soll sich die zeile färben!
• Forum: Datenbanken

  AW: DBGrid1 färben

   
    by Alterauge, 25. Apr 2011
  procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
  var
  aValue: string;
  begin
  if Column.Index = 2 then begin {nummer der spalte im dbgrid}
  aValue:= Column.Field.asString; {suchbegriff auslesen}
  if aValue = 'Erfasst' then begin
  DBGrid1.Canvas.Brush.Color := clred;
  end;
• Forum: Datenbanken

  DBGrid1 färben

   
    by Alterauge, 25. Apr 2011
  procedure TForm1.FormCreate(Sender: TObject);
  begin
  ??????????????????????????????????????????????
  end;
  
  habe eine DBGrid,
  sagen wir in der zweiten spalte ist die Zeile (Status) Status 1, oder 2 oder 3 oder 4 oder 5 oder 6 oder 7.
  
  wenn status 1 aktiv ist, soll sich die Zeile gelb färben
  bei 3 rot