Ich benutze folgenden Code um zwei Textzeilen mit unterschiedlicher Farbe und unterschiedlichem Einruck in ein DrawGrid zu zeichnen.
Delphi-Quellcode:
procedure TForm1.DrawGridDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
Var
Rect1, Rect2: TRect;
S: String;
begin
Rect1.Left := Rect.Left + 5;
Rect1.Top := Rect.Top;
Rect1.Height := Rect.Height Div 2;
Rect2.Left := Rect.Left + 25;
Rect2.Top := Rect.Top + (Rect.Height Div 2);
Rect2.Height := Rect.Height DIV 2;
S := 'Text 1';
DrawGrid.Canvas.Font.Color := clBlack;
DrawGrid.Canvas.TextRect(Rect1, S, [tfVerticalCenter, tfSingleLine]);
S := 'Text 2';
DrawGrid.Canvas.Font.Color := $006B6B6B;
DrawGrid.Canvas.TextRect(Rect2, S, [tfVerticalCenter, tfSingleLine]);
Das funktioniert soweit auch super. Nur wenn ich nun eine Zelle bzw die ganze Reihe anklicke und dieser blaue SelektierRahmen erscheint, verschwindet die untere Textzeile
Woran liegt das?
Zur Verdeutlichung hab ich ein Foto angehängt.
Danke schonmal.
Liebe Grüße.