Forum: Multimedia
Delphi
by SirThornberry,
8. Feb 2006
rund gehts so:
var LReg1, LReg2: Cardinal;
begin
LReg1 := CreateEllipticRgn(0, 0, Panel1.Width div 2, Panel1.Height);
LReg2 := CreateEllipticRgn(Panel1.Width div 2, 0, Panel1.Width, Panel1.Height);
CombineRgn(LReg1, LReg1, LReg2, RGN_OR);
SetWindowRgn(Panel1.Handle, LReg1, True);
DeleteObject(LReg1);
DeleteObject(LReg2);
Forum: Multimedia
Delphi
by SirThornberry,
8. Feb 2006
Also da das ganze mit Overlay geht wird das mit über dem panel liegen nicht klappen. Was aber auf jeden fall funktioniert (gerade probiert) ist das du das Panel wo das Video drauf angezeigt wird mit "SetWindowRgn" entsprechend eine form zuweist.
So kannst du zum Beispiel ein kleines Viereck an der Oberseite rausschneiden. (und somit sieht man was unter dem Panel dort liegt:
var LReg:...