TPageControl mit transparentem Bereich hinter dem letzten Tab

[hoika]

Hallo #,

komplizierter ging es nicht
Was ich eigentlich will der Bereich hinter dem letzten Tab soll nicht gemalt werden,
sondern transparent sein.
TMS kann das schon mal nicht (oder ich habe es nicht gefunden).

Weiss jemand, wie ich das hinbekomme ?

Danke


Heiko

[uligerhardt]

Zitat von hoika:

Was ich eigentlich will der Bereich hinter dem letzten Tab soll nicht gemalt werden, sondern transparent sein.

Ich könnte mir vorstellen, dass die rkSmartTabs das können. Hab's aber nicht ausprobiert.

Edit: rkAeroTabs gibt's dort auch noch

[Bummi]

mit einem normalen Pagecontrol ....

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
 PCResize(PC);
end;

procedure TForm2.PCResize(Sender: TObject);
var
 SumTabWidth:Integer;
 i,th:Integer;
 rg1,rg2:THandle;
begin
 SumTabWidth := 0;
 th :=  PC.Tabrect(0).Bottom - PC.Tabrect(0).Top;
 for i := 0 to PC.Pagecount - 1 do
  if PC.Pages[i].TabVisible then SumTabWidth := SumTabWidth + PC.Tabrect(i).Right - PC.Tabrect(i).left + 2;
 rg1 := CreateRectRgn(0, 0, PC.Width, PC.Height);
 rg2 := CreateRectRgn(SumTabWidth,0,PC.Width,th);
 CombineRgn(rg1, rg1, rg2, RGN_XOR);
 SetWindowRgn(PC.Handle,rg1,true);
 DeleteObject(rg1);
 DeleteObject(rg2);
end;