Farve en row i en stringgrid

Hej Piqbear,

nedenstående virker, men som du ser gentegnes griddet, hver gang en celle forlades.
Dette kan naturligvis forbedres med kontrol af ændret celleindhold inden repaint kaldes :-)


procedure TForm1.StringGrid1DrawCell(Sender: TObject; Col, Row: Integer;
  Rect: TRect; State: TGridDrawState);
begin
if stringgrid1.cells[1,row] =stringgrid1.cells[2,row] then
  begin
  stringgrid1.Font.Color:= clBlack;
  Stringgrid1.canvas.Brush.Color:=clgreen;
  Stringgrid1.canvas.FillRect(rect);
  Stringgrid1.Canvas.TextOut(rect.left,rect.top,stringgrid1.cells[col,row]);
  end;
end;

procedure TForm1.StringGrid1SelectCell(Sender: TObject; Col, Row: Integer;
  var CanSelect: Boolean);
begin
stringgrid1.repaint;
end;

Du har ret i det ville være fint at kunne sætte attributes på kolonner/rækker
f.eks. også at en kolonne skal højrestilles. Også det kan klares gennem DrawCell.

mvh  Anders

Hej Anders,

Tak for svar, men det ser ikke ud til at virke efter hensigten.
Jeg ved ikke helt hvad der sker, men den ser ud til at have samme problem som jeg havde før, nemlig at farven skifter først når man flytter markøren.

mvh pigbear

NB: Den skifter til hvid farve når kol 1 = kol 2

Hej igen Anders,

Din løsning virker alligevel. Jeg havde lagt repaint ind i forkert event.
Perfekt, tak skal du have.
Jeg har egentlig manglet repaint i alle de test's jeg har lavet

Mvh

Pigbear

Anders, hvordan giver jeg dig de 30 point ???

mvh

pigbear

På dette svar,

Fint du fik det til at virke !

mvh

Velbekomme