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

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

mit einem normalen Pagecontrol ....

zusammenfalten · markieren

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;