Wenn es dich nicht stört Images zu verwenden dann
nimm das hier.
erstelle ganz einfache Bitmaps in den ausmaßen mit einer beliebigen Farbe.
Wenn du dann andere Farben zur Laufzeit verwenden möchtest fülle die Images einfach mit FillRect(bla, bla
ändere die funtion uRender zeile 62 nach.. oder addiere eine korrekte Funktion die als Beispiel Win10 erkennt.
Ich habe das schon gemacht aber nicht in dem Beispiel.
Delphi-Quellcode:
function TRender.CompatabilityCheck: Boolean;
begin
// Result := False;
//
// if GetOs >= os2K then
Result := True;
end;
entferne madexcept danach sollte es sich kompilieren lassen.
gruss