Hallo, Habe Problem nach einfärben von Zellen eines StrinGrids über die Funktion OnDrawCell mittels Canvas.
Mein Code siehr wie folgt aus:

zusammenfalten · markieren

Delphi-Quellcode:

//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
procedure TF_Haupt.SG_PlanDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
    oldColor:TColor;
    oldBrush:TBrush;
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
begin
    with SG_Plan.Canvas do
    begin
        oldColor:=Font.Color;
        oldBrush:=Brush;
        if (aCol=1) and (aRow>0) then
        begin
            Brush.Color:=RGB(255,204,153);
            FillRect(Rect);
        end;
        if (aCol=2) and (aRow>0) then
        begin
            Brush.Color:=RGB(255,255,153);
            FillRect(Rect);
        end;
        if (aCol=3) and (aRow>0) then
        begin
            Brush.Color:=RGB(204,255,255);
            FillRect(Rect);
        end;
        if (aCol=4) and (aRow>0) then
        begin
            Brush.Color:=RGB(204,255,153);
            FillRect(Rect);
        end;
        Font.Color:=oldColor;
        Brush:=oldBrush;
    end;
end;

Habe dabei recht sinderbaren Effekt:
Nach rückgabe der alten Farbe an Font.Color steht darin ein negativer Wert (-16777208)

Wie kriege ich die Einträge in StringGrid nach Einfärben der Zellen wieder zu sehen?

Danke

E. B.

habe eben in Frage Code eingefügt

Gruß

E. B.

Hallo E.B.,

der negative Farbwert ist okay, der ist auch schon vorher da. Du hast zwar mit RGB-Werten operiert, aber die belegen nur die unteren 3 Bytes eines 4-Byte Integers (TColor). Wenn das höchst-wertige Byte $FF ist, dann sind die anderen drei Byte kein RGB-Wert sondern eine Systemfarbe. Und das dein Text nicht ausgegeben wird, das kannst du mit Canvas.TextOut() ändern.

Grüße vom marabu