Stringgrid und Objekte

[kiar]

mit folgendem code

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
                                     Rect: TRect; State: TGridDrawState);

var
   Rect1,
   Rect2 :TRect;
     s
   ,s1:string;

begin

    s :='Hallo';
    s1:=' Welt';
    if gdfixed in state then exit;
      with stringgrid1 do
        begin
          if cells[Acol,arow] <> '' then
           begin
              If not FGeteilterDienst then
               begin
                 Rect1:=CellRect(Acol,Arow);
                 Canvas.Fillrect(Rect1);
                 drawText(canvas.Handle,
                          Pchar(s),length(s),
                          Rect, dt_singleline or
                          dt_center or dt_VCenter)
               end else
                 begin
                   FStatus:=pointer(Stringgrid1.objects[acol,arow]);
                   FStatus.Fdienst:=FGeteilterDienst;
                   Rect1:=CellRect(Acol,arow);
                   FStatus.FRect1Color:=zeigeFarbe;
                   Canvas.Brush.Color:=TColor(FStatus.FRect1Color);
                   Canvas.Fillrect(Rect1);
                   drawText(Canvas.Handle,
                            Pchar(s), length(s),
                            Rect1, Dt_Center);

                   Rect2:=cellrect(acol,arow);
                   Rect2.Left:= Rect1.left;
                   Rect2.top := Rect1.top+ RowHeights[Arow] div 2;
                   FStatus.FRect2Color:=zeigeFarbe1;
                   Canvas.Brush.Color:=TColor(FStatus.FRect2Color);
                   Canvas.FillRect(Rect2);
                   Drawtext(Canvas.Handle,
                            Pchar(s1), length(s1),
                            Rect2, DT_Center or DT_Wordbreak);

                 end;
          end;
      end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
 s:String;
begin

    if FgeteilterDienst then
       s:= 'Hallo' +#13#10 + 'Welt'
    else
       s:= 'Hallo';
       with Stringgrid1 do
         begin
            Cells[Col, Row]:=s;
            Objects[Col, Row]:=FStatus;
         end;
end;

will ich so etwas erreichen,

das die zellen zweifarbig dargestellt werden. das funktioniert so weit. wenn ich jetzt aber invalidate mache wird nur der status der letzten einstellung übernommen.

wie kriege ich das nun gebacken, das der status der jeweiligen zelle aufgerufen wird.

raik