Farvede celler i TStringGrid

StringGrid: http://www.swissdelphicenter.com/en/showcode.php?id=273

ListBox: http://www.swissdelphicenter.com/en/showcode.php?id=248

Snowball

Ok. Jeg er lidt ny til det her så: Hvordan får jeg disse to flettet ind i min String grid og list box?

Farven skal kunne ændres dynamisk således at hvis der er en streng i [1,3] skal denne være grøn. Hvis strengen så flyttes til [2,5] skal denne celle være grøn og ikke [1,3].

Er du der?

Prøver lige at lave et eksempel til dig.

Snowball

Prøv og kig lidt på http://home1.inet.tele.dk/j-cgeert/386530.zip

Snowball

Undskyld den lange vente tid, men jeg har været på ferie.

Ok Jeg kan godt se dit eksempel. Men jeg forstår det stadig ikke. :( Endvidere arbejder jeg i Delphi 4 og kan ikke bruge Variants.

TStringGrid
Det første jeg ikke forstår er parametrerne til funktionen. Sender er min TstringGrid, Acol og Arow er den celle der skal farves(ikke?), men hvad er Rect og staten?

Jeg har denne funktion:
function TOpgaveMainForm.TegnOpgave(ansTid : integer; tid : String;
                                  Ansat : String; output : string) : integer;
var r,k,i : integer;
begin
  r := PlacOpgR(ansat,tid);
  k := PlacOpgK(ansat,tid);
  for i:=1 to (ansTid*2) do
  begin
    TidGrid.Cells[k,r] := output;
    inc(r);
  end;
end;

Kan man ikke ved hver celle bruge canvas til at farve baggrunden i cellen. Eller hvordan får jeg præcis denne celle farvet?

x-masman: Du kan bare fjerne Variants under Uses. Det skulle gerne virke alligevel.

Rect er det "areal" som der skal tegnes. State er jeg ikke helt sikker på, men det er vist noget med om cellen er selected eller noget i den stil.

Snowball

men hvordan kalder jeg så funktionen fra tegnopgave?

Det er ikke noget du selv skal gøre. Funktionen bliver automatisk kaldt hver gang du ændrer indholdet af en celle i dit stringgrid.

Snowball

ok. Men så forstår jeg det stadig ikke. :) sorry, jeg er ikke helt inde i hvordan componenter benyttes i delphi. Burde det virke hvis jeg bare indsatte din funktion i mit program? (med ændrede navne selvfølgelig). Altså kalder min TStringGrid selv funktionen?

Hvis du på dit stringgrid opretter en OnDrawCell procedure, så kan du bare indsætte det kode jeg bruger i mit eksempel. Så burde det virke.

Snowball

Ok. Så forstår jeg det. Skide godt. Jeg prøver det lige når jeg kommer hjem.

Så. Nu virkede det sgu!!!!! Du er lidt sej til delphi:) tak for hjælpen!