Læse cellerne i et DBGrid

Når værdien af cellen er læst skal hele rækken i DBGridet skifte farve til rød hvis det er et negativt tal.

Er der slet ingen som har en god ide ?

Properties  [DBGrid3.DefaultDrawing:=False]

Du skal teste på dit felt i DB!(BookTbBetalt.value=true)


procedure TForm1.DBGrid3DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
Var Bfarve: Tcolor;
    Str : String;
    OldFont : TFont;
begin
  with (Sender as TDBGrid).Canvas do begin
      OldFont:=Font;
      if gdFocused in State then begin
        Bfarve:=clNavy;
        Font.Color:=clWhite;
      end else begin
      if BookTbBetalt.value=true then  Bfarve:=$00C5FD79 else
        Bfarve:=$00C7EEF3;
        Font.Color:=clBlack;
      end;
      DBGrid3.Canvas.Brush.Color:=Bfarve;
      DBGrid3.Canvas.Fillrect(Rect);
      DBGrid3.Canvas.Textout(Rect.Left+5,Rect.Top+2,Str);
      Font:=OldFont;
      DBGrid3.DefaultDrawDataCell(Rect,Column.Field,State);
  end;
end;

/Søren

Hvordan skal BookTbBetalt erklæres ?

BookTBetalt skal i mit tilfælde erklæres på følgende vis

if DataSource.DataSet.FieldByName(\'Id\').AsInteger > 0 then....

Mange tak for hjælpen

Det gik lidt hurtigt!

Jeg håber det er DBGrid du bruger til at vise dine data.

Hvis det er StringGrid er det lidt anderledes

Hvis du har problemer med ovenstående så kommenter

/Søren

Hej Søren jeg har faktisk lidt problemer med det

Jeg har nu følgende kode

begin
  with (Sender as TDBGrid).Canvas do begin
      OldFont:=Font;
      if gdFocused in State then begin
        Bfarve:=clNavy;
        Font.Color:=clWhite;
      end else begin
      if DataSourceAl.DataSet.FieldByName(\'AlType\').AsInteger = 12 then
      begin
        BFarve := clWhite;
        Font.Color:=clRed;
      end
      else
        Bfarve:=clWhite;
        Font.Color:=clBlack;
      end;
      DBGridAlarm.Canvas.Brush.Color:=Bfarve;
      DBGridAlarm.Canvas.Fillrect(Rect);
      DBGridAlarm.Canvas.Textout(Rect.Left+5,Rect.Top+2,Str);
      Font:=OldFont;
      DBGridAlarm.DefaultDrawDataCell(Rect,Column.Field,State);
  end;


Og som du kan se er det tekst farven jeg vil skifte istedet for baggrundsfarven, det virker imidlertid ikke ???

Mit problem nr 2:
Når jeg holder kontrol tasten nede vil jeg gerne kunne mærke nogle felter op med musen, det har jeg kunnet tidligere med en blå række hele vejen igennem på dem jeg trykker på, nu er det kun den sidste række som jeg trykker på der bliver blå, og kun det første felt i rækken ???

Håber du har svar på disse 2 ting også

mvh
Morten

Mit spørgsmål 1. kan du se bort fra der mangler et begin efter else (flovt)

men spg. 2 er stadig aktuelt

Det er lidt svært når jeg ikke kan se din DBGridAlarm  Properties [Options]
jeg mener det er der problemet er

/Søren

alt er sat til true bortset fra dgEditing og dgAlwaysShowEditor.

Men jeg har brøvet og sætte et breakpoint i
if gdFocused in State then
    begin
      Bfarve:=clNavy;
      Font.Color:=clWhite;
    end
Og jeg kan se at den aldrig kommer ind i dette kode ?

Er du sikker på at nedenstående kode er O.K. ?

if gdFocused in State then

Koden:
if gdSelected in State then

Giver den sidst mørkede række = blå,
når Ctrl tasten  holdes nede samtidigt med at der klikkes med musen ?