Row im Row überzeichnen

[EWeiss]

Hallo
Irgendwie neben der Rolle heute..
Ich möchte ein Row im Row überzeichnen zur besseren verständigung quasi die Vertikalen linien
die sichtbar sind wenn man ein Quadrat nach rechts verschiebt ohne das vorherige zu löschen.

Meine Funktion sieht so aus.

Delphi-Quellcode:

procedure TMidiTracker.SetRow(WinHandle: HWND; y: Integer);
var
  RowY: Integer;
  SwapScreen: HDC;
  rc: TRect;
  DC: HDC;

begin
  RowY := y * 16;
  DC := GetDc(WinHandle);
  GetClientRect(WinHandle, rc);

  SwapScreen := CreateCompatibleDC(DC);
  SelectObject(SwapScreen, SKAERO_GetButImageBackProperty(WinHandle));
  BitBlt(DC, 0, RowY, rc.Right, 15, SwapScreen, 0, 0, SRCCOPY);

  DeleteDC(SwapScreen);
  ReleaseDC(WinHandle, DC);
end;

Ich übergeben die Y Position der Aktuellen Maus koordinaten.
Dann erstelle ich ein DC vom Grid WindowHandle
Anschließend möchte ich beide Bilder vertauschen um das Qadrat also die vertikalen linien zu übermalen.
Wobei hier das Originale Hintergrinmd Bild komplett weiss ist.

Hoffe jemand versteht was ich meine.

Funktionieren tut es nicht obwohl es eigentlich richtig sein müßte.

gruss

[EWeiss]

Hat sich erledigt Danke ...

gruss