String Grid

[Hans-Peter Bongers]

Guten Tag Delphianer,

ich möchte in einem Stringgrig Celle(x,y) ein Rechteck mit den Abmessungen von a,b zeichnen und evtl mit einer Farbe füllen.
Hat vielleicht schon Jemand ähnliches Programmiert??
Könnt Ihr mir weiter helfen??

Mit freundlichem Gruß
Hans-Peter Bongers

[Lannes]

Hallo,

meinst Du so etwas?:

<pre>procedure TForm1.StringGrid1DrawCell(Sender: TObject; Col, Row: Integer;
Rect: TRect; State: TGridDrawState);
var aRect : TRect;
begin
if (Col = 2) and (Row = 2) then
begin
aRect.Left := Rect.Left+2;
aRect.Top := Rect.Top+2;
aRect.Right := Rect.Left+40;
aRect.Bottom := Rect.Top+20;
StringGrid1.Canvas.Brush.Color := clRed;
StringGrid1.Canvas.FillRect(aRect);
end;
end;</pre>

MfG Lanne

[Hans-Peter Bongers]

Guten Tag Lannes,
so was ähnliches habe ich gemeint.
Da ich Maschinenlaufzeiten darstellen möchte, habe ich jedoch entschlossen alles in einer TChart-Komponente darzustellen.

Aber trotzdem herzlichen Dank für Deine Hilfe.
Hans-Peter Bonger