Besten Dank!
Habe das mit dem
Handle einfach ganz rausgeschmissen (wusste sowieso nie was der da soll, das war der Teil des Codes den ich von der Ursprungskomponente übernommen hab ... ^^) und hab das ganze jetzt direkt auf den Canvas gemalt. Allerdings immernoch auf den Canvas des Panels, da soll's ja schließlich auch hin.
Delphi-Quellcode:
Canvas.Brush.Color := FBorderColor[PaintOrder[i]];
Canvas.Pen.Color := FBorderColor[PaintOrder[i]];
Canvas.Pen.Width := 1;
with Canvas do
begin
if FBorderColor[PaintOrder[i]] <> clNone then
case PaintOrder[i] of
1: Rectangle(0,0,Width,FBorderWidth);
2: Rectangle(0,0,FBorderWidth,Height);
3: Rectangle(Width-FBorderWidth,0,Width,Height);
4: Rectangle(0,Height-FBorderWidth,Width,Height);
end;
end;
So funktionierts prima. Danke
Liebe Grüße