Hallo an alle!!!
Ich habe zwei Proceduren, in der ersten mache ich Berechnungen und in der zweite
werden die berechnete Werte in eine Stringgrid zielenweise eingetragen.
Ich möchte das beim Durchlauf der Proceduren jede neue Zeile andere Textfarbe bekommt,
z.b. über eine Variable "farbe" die ich in einer Procedur dafor bestimme.
Wie lässt sich so-was realisieren???
Ich habe es mit OnDrawCell Erreignis versucht, aber es klapt irgend-wie nicht mit dem Ablauf meiner Proceduren.
Danke für jede Hilfe im Vorraus.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
| procedure wertetabelle_ber;
var Nr: integer;
begin
Nr :=-5;
Sp := 4;
while Nr < 6 do
begin
cell := a*sqr(Nr)+ b*(Nr)+ c;
tab_werte_eintragen;
Nr := Nr+1;
inc (Sp);
end;
i := i+1;
Form1.Werteliste.RowCount := Form1.Werteliste.RowCount+1;
end;
procedure tab_werte_eintragen;
begin
Form1.Werteliste.Cells[0,i] := inttostr(i);
Form1.Werteliste.Cells[1,i] := Form1.Panel1.Caption;
Form1.Werteliste.Cells[2,i] := Form1.Panel2.Caption;
Form1.Werteliste.Cells[3,i] := Form1.Panel3.Caption;
Form1.Werteliste.Cells[Sp,i] := FloatToStr(cell);
end; |
Moderiert von 
raziel: Delphi-Tags hinzugefügt und Color- in Highlight-Tags geändert.
