Grid-Komponente für D7 und Delphi.NET

[Benni]

Servus,

ich bin auf der Suche nach einer Grid-Komponente, die gleichermaßen in Delphi 6/7 wie in Delphi.NET funktioniert, kostenlos und mit Source ist. Sie muß mit sehr großen Datenmengen zurecht kommen sowie die Einfärbung und Schriftart jeder Zelle sollte änderbar sein.

Ich suche schon seit einiger Zeit danach, hab aber bisher noch nichts sinnvolles gefunden.

Kennt jemand einen Kandidaten?

Bielen Dank!

Benjamin Heil

[Michael Habbe]

Hi,

ich bin zwar immer noch auf Delphi5, aber versuch es mal hiermit:
<pre>
<code>
<font size=3 face="Courier New" color="#000000">
<b>procedure </b>TfrmKundeOffenePostenUebersicht.DBGrid1DrawColum nCell(
Sender: TObject; <b>const </b>Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
<b>var </b>
breite: Integer;
hoehe: integer;
<b>begin </b>
<b>if </b>Column.FieldName = 'OFFENERPOSTEN' <b>then </b>
<b>begin </b>
<b>if </b>KundeTblOFFENERPOSTEN.AsFloat = 0 <b>then </b>
Exit;<br>
breite := DbGrid1.Canvas.TextWidth(Column.Field.Text);
hoehe := DbGrid1.Canvas.TextHeight(Column.Field.Text);
DBGrid1.Canvas.Brush.Color:=$00A8B1F4;
DBGrid1.Canvas.Font.Color:=clBlack;
DbGrid1.Canvas.Rectangle(Rect.Left<i>{-1}</i>, Rect.Top<i>{-1}</i>, Rect.Right+1, Rect.Bottom+1);
DbGrid1.Canvas.TextOut(Rect.Right - Breite - 3,
Rect.Bottom - Hoehe - 2,
Column.Field.Text);
<b>end</b>;
<b>end</b>;
</font>
</code>
</pre>
Ich denke, dass Du hier auch die Schrift verändern kannst. (ungetestet)

Gruß
Michae